超急求——谁有ado中调用sql server 2000的源码例子 越简单越好 up给分

Question

'打开表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
 End Sub

Answer 1

建议转到对应的程序版块,数据库是不管程序代码的.