在vb怎样读db2数据库?

[21cg21cg]

在vb怎样读db2数据库?请给个例子解释???????????

[db2boy]

http://www-900.ibm.com/developerWorks/cn/dmdd/library/techarticles/0302hasin/0302hasin.shtml

[KingRabbit]

pbsConnection = "DSN=数据库名;UID=模式;PWD=密码;DBALIAS=系统连接"
Set looRdoCn = rdoEnvironments(0).OpenConnection("", , , pbsConnection)

[lingyunfeipu]

dim conn As New ADODB.Connection
dim connstr As String
dim rs As New ADODB.Recordset

connstr = "Provider=MSDASQL.1;Password=" & stradminpwd & ";Persist Security Info=True;User ID=" & stradminname & ";Data Source='" & strdatabasename & "'"
conn.Open connstr
rs.CursorLocation = adUseClient
rs.Open "select bh from jcxt.yhxx", conn, adOpenKeyset
If rs.BOF = True And rs.EOF = True Then
*********
End If

[tangdyn]

更简单 建ODBC后，其它的你应该会吧

[singer_101]

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=数据源;uid=用户名;pwd=密码;Datebase=数据库名"
set rs=server.createobject("adodb.recordset")
rs.open "select * from 模式名.表",conn,1,3
读取数据吧

rs.close