如何使用vb6將服務連接到SQL Server

Question

我想從vb6連接到SQL Server，但是我不知道代碼。

我的提供者“某人”給了我以下數據：

• SQL Server版本：SQL Server 2008 R2 Express
• SQL Server地址：koroikadb.mssql.somee.com
• 登錄名：xxxxxx
• 登錄密碼：yyyyyy
• 連接字符串：工作站ID = koroikadb.mssql.somee.com;數據包大小= 4096;用戶ID = xxxxxx; pwd = yyyyyy;數據源= koroikadb.mssql.somee.com;持久性安全信息= False;初始目錄= koroikadb

謝謝

Answer 1

您很可能需要安裝MDAC 2.8。 （Microsoft數據訪問組件）可以在這里下載： http : //www.microsoft.com/zh-cn/download/details.aspx?id=5793

安裝完成后，在VB6 IDE中加載項目，然后單擊以下命令：

項目>添加參考>

檢查以下內容：

Microsoft ActiveX數據對象2.8庫

Microsoft ActiveX數據對象Recordset 2.8庫

確定>

然后，可以使用以下代碼連接到MS-SQL數據庫：

Dim MyDB As New ADODB.Connection
Dim MyRecordset as New ADODB.RecordSet
MyDB.ConnectionString = "workstation id=koroikadb.mssql.somee.com;packet size=4096;user id=xxxxxx;pwd=yyyyyy;data source=koroikadb.mssql.somee.com;persist security info=False;initial catalog=koroikadb" 
MyDB.Open
MyRecordset.Open "SELECT * FROM people",MyDB, adOpenForwardOnly,adLockReadonly
If Not MyRecordset.EOF Then
    Do
        MyRecordset.MoveNext
    Loop Until MyRecordset.EOF
End If
MyRecordset.Close
MyDB.Close
Set MyRecordset = Nothing
Set MyDB = Nothing