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

Question

'引用: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

Answer 1

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