VB6：如果没有在客户端上安装服务管理器，如何连接到SQL服务器？

Question

我在Visual Basic 6.0中创建一个以SQL Server作为数据库的应用程序。我想连接到数据库而无需在客户端上安装MS SQL服务管理器。如何才能做到这一点？我应该添加任何dll或.tbl或.ocx文件吗？

Answer 1

取决于您希望如何连接到服务器。如果你看一下客户端计算机上的控制面板，那里有一个名为ODBC的applet吗？ （也可能在Admin Tools文件夹中，而不是直接在控制盘中。）

如果是这样，请尝试创建指向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服务器名称正确（而不是像服务器名称\实例之类的INSTANCE。）