CONNECTION 有些差别,大题上没差什么

解决方案 »

  1.   

    '差不多一样,举个例子:
    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服务器名"    Set iDb = New ADODB.Connection
        Set iRe = New ADODB.Recordset
        iDb.Open iConc
        iRe.Open "表名", iDb, adOpenKeyset, adLockOptimistic
        Msgbox iRe(0)    iRe.Close
        iDb.Close
        Set iRe=Nothing    
        Set iDb=Nothing
    End Sub