数据库开发中的小问题——SQL SEVER 2000数据库如何与VB连接？？

[mlsg]

请问各位高手，我做毕业设计，用SQL SEVER 2000建立数据库，用VB编写应用程序，不懂怎样在VB中引用SQL中的数据库，用PB建立我会，是不是SQL的驱动驱动程序比较特殊呢？请问具体该怎么做？谢谢了：）我用的是SQL 2000个人版+VB 6。0

[zjcxc]

'引用:Microsoft ActiveX Data Objects 2.x Library
'2.x是版本号

Sub sql()
Dim iDb As ADODB.Connection
Dim iRe As ADODB.Recordset
Dim iConc As String

iConc = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
"User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"

iConc = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=客户资料"

Set iDb = New ADODB.Connection
iDb.Open iConc
iSql = "select * into #t from sysobjects"
iSql = iSql & vbCrLf & "select * from #t"
iSql = iSql & vbCrLf & "drop table #t"
Set iRe = iDb.Execute(iSql)
Set iRe = iRe.NextRecordset
MsgBox iRe(0)
iRe.Close
iDb.Close
Set iRe = Nothing
Set iDb = Nothing

Set iRe = New ADODB.Recordset
iRe.Open "表名", iConc, adOpenKeyset, adLockOptimistic
iRe.Save "c:\aa.xml", adPersistXML

Debug.Print iRe.Fields("字段名")
End Sub

[ghostzxp]

1
你使用打dao的话，建立odbc,程序调用odbc进行连接！
Global WDB0 As Database
Set WDB0 = OpenDatabase("数据库", dbSeeChanges, False,“ODBC;database=数据库;UID=sa;PWD=;DSN=数据库”)
2
你使用ado的话，直接旧可以进行连接！
Public Conn As New ADODB.Connection
gSql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=;Initial Catalog=" & 数据库 & ";Data Source=" & 服务器
gGZConn.CursorLocation = adUseClient
gGZConn.Open gSql