VB6：如何在客戶端上未安裝服務管理器的情況下連接到SQL Server？

Question

我正在使用SQL Server作為數據庫的Visual Basic 6.0中創建一個應用程序。 我想連接到數據庫而沒有在客戶端上安裝MS SQL服務管理器。 如何才能做到這一點？ 我應該添加任何dll或.tbl或.ocx文件嗎？

Answer 1

取決於您要如何連接到服務器。 如果您查看客戶端計算機上的控制面板，其中是否有一個名為ODBC的小程序？ （也可能位於“管理工具”文件夾中，而不是位於控制面板中）。

如果是這樣，請嘗試創建指向SQL Server數據庫的鏈接，如果可行，您可能不需要其他任何內容。 如果缺少該功能，則可能需要安裝MDAC才能在其中獲得正確的驅動程序。

之后，只需在VB6中編寫普通代碼（可能使用ADO）即可。

Answer 2

Q = "Select contact, company, phone, address, city, state, zip from contacts"

'create db objects
Set conn = New ADODB.Connection       'Database Connection
Set rs = New ADODB.Recordset          'RecordSet
conn.Open "Provider=SQLOLEDB;Password=" & LCase(sSQL_Password) & ";User ID=" & sSQL_USER & ";Data Source=" & sSQL_Server & "; Initial Catalog=" & sSQL_DB & ";connect timeout=10"
conn.CommandTimeout = 20

'open connnection
rs.Open Q, conn, , adCmdText

While Not rs.EOF
    vTotalMail = rs.Fields("TheNumber").Value
    gridResults.AddItem ("Contact" & vbTab & "Companyt" & vbTab & "phone" & vbTab & "address" & vbTab & "City" & vbTab & "State" & vbTab & "Zip" & vbTab)
    rs2.MoveNext
Wend

rs.Close

確保您的SQL Server名稱正確（而不是像servername \\ instance之類的INSTANCE。）