请教：在Winsows用VB访问AS400中的数据？？

tangram

我需要在Windows（2000 Server）访问AS400（4.3）中的数据，
打算通过Client Access软件（ODBC驱动），
使用MS VB 6.0通过ADO等组件进行操作（包括抽取结果集、修改删除数据、调用AS400上的存储过程并获得返回数据集合以及调用返回状态等），

请问这种途径可行么？并请告知一些需要注意的问题（例如涉及AS400环境的问题）。。。

谢谢！！

jj8610

Have you tried REFLECTION FOR AS/400?

wildfish

和你访问别的数据库一样的 除了必须要加library之外（除非你不想访问跨library的数据，那样你可以在连接串里面直接指定哪个数据库），还有就是你连接串中使用的用户必须是有权限的

tangram

Thanks All !!

to jj8610:
您说的REFLECTION FOR AS/400提供什么功能呢？需要购买额外的软件么？
还请解释相关的使用方法～～

Lantern

好象和VB无关的，只要ODBC能连接AS400就可以了

yangzg

如果你只是维护400上的数据，做增删改处理，只要通过ODBC连接上400用SQL做就可以了，如果要在400上调用程序，通过调用400上的procedure就可以了。

XFIVE

CA ODBC

DB2 DIRVER

OLE DB

  通过 以上 连400 用 VB ASP ＝ 写程序都可以的 我写过 VB ASP VBA 的都行 但有 写 RECORDSET 的方法不支持 。

人世间

这是我以前的老贴，你看看
ca
windows 2000
os/400 v5r2


RDO 方式
Private Sub RDO_DB2_Click()

Dim ConnStr As String
Dim Sqlstr As String
Dim UserID As String
Dim Password As String
Dim RdoConn As New RDOConnection
Dim RdoRst As rdoResultset

UserID = " wxc "
Password = " wxc "

'RdoConn.Connect = "DSN=" + DSNName + ";uid=" + UserID + ";pwd=" + Password
'方式一 联接
RdoConn.Connect = "server=192.168.12.254;driver={Client Access ODBC Driver (32-bit)}" + ";uid=" + UserID + ";pwd=" + Password + ";database=qgpl;system=S651826C"
RdoConn.CursorDriver = rdUseOdbc
RdoConn.EstablishConnection

'方式二 联接
'With RdoConn
' .Connect = "server=192.168.12.254;driver={Client Access ODBC Driver (32-bit)}" + ";uid=" + UserID + ";pwd=" + Password + ";database=qgpl;system=S651826C"
' .LoginTimeout = 5
' .EstablishConnection
'End With


strSql = "select * from erpdtalib.xtm03"
Set RdoRst = RdoConn.OpenResultset(strSql)
Do Until RdoRst.EOF
Debug.Print RdoRst("xtdwdm" & " " & RdoRst("xtdwmc"
RdoRst.MoveNext
Loop

RdoRst.Close

Set RdoConn = Nothing

'没有加错误处理
End Sub

-------------------------------------------------------------------------------
ADO 方式
Private Sub ADO_DB2_Click()

Dim ConnStr As String
Dim Sqlstr As String
Dim UserID As String
Dim Password As String
Dim AdoConn As New ADODB.Connection 'ADO连接类型
Dim AdoRst As New ADODB.Recordset

UserID = "wxc" 'as400 用户对数据库要有权限
Password = "wxc"

'ConnStr = "dsn=" + DSNName + ";uid=" + UserID + ";pwd=" + Password + ";database=qgpl;system=S651826C"
'ConnStr = "server=192.168.12.254;driver={Client Access ODBC Driver (32-bit)}" + ";uid=" + UserID + ";pwd=" + Password + ";database=qgpl;system=S651826C"
ConnStr = "server=192.168.12.254;driver={iSeries Access ODBC Driver}" + ";uid=" + UserID + ";pwd=" + Password + ";database=erpdtalib;system=S651826C"
AdoConn.Open ConnStr

strSql = "select * from erpdtalib.xtm03"
Set AdoRst = AdoConn.Execute(strSql)
While Not AdoRst.EOF
Debug.Print AdoRst("xtdwdm" & " " & AdoRst("xtdwmc"
AdoRst.MoveNext
Wend

AdoRst.Close

Set AdoConn = Nothing

End Sub