我用WINDOWSXP想连2000 SERVER 的SQL SERVER数据库，能连吗？怎么连，我用的是VB，最好的能有连结的代码。

Question

set conn3=server.CreateObject("adodb.connection")
conn3.connectionstring="Driver={SQL Server};server=10.0.0.51;uid=sa;pwd=;database=manager"'
conn3.open
Set RS3 = CreateObject("ADODB.Recordset")
dim sql3
sql3="select * from ex_city where CITY_NAME ='" & trim(sendcityname) & "'"
rs3.open sql3,conn3,adOpenKeyset,adLockOptimistic

Answer 1

Ado:
Dim StrCon As String
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
     & "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _
     & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
     & "Use Encryption for Data=False;Tag with column collation when possible=False"
            
dim AcSys  as new adodb.connection 
   With AcSys
      If .State = adStateOpen Then .Close
      .ConnectionString = StrCon
      .ConnectionTimeout = 30
      .Open
    End With

Answer 2

用ado连接
先用connection建立连接
再打开recordset获得记录ado很通用的，很好用DBConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & DBName & ";Data Source=" & ServerName
GstConn.Open DBConnectionString, DBUser, DBPass
'检察连接状态
    If GstConn.State <> 1 Then
        MsgBox "连接到数据库超时,未成功连接,请仔细检查数据库配置，然后重新启动本系统！" & Chr(10) & Chr(10) & "数据库服务器名称：" & DBServerName & Chr(10) & "数据库名称：" & DBName, vbOKOnly, "连接到数据库出错！    -" & GstConn.State
        End
    End If

Answer 3

Dim str As String
dim cn  as new adodb.connection 
Str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
     & "Initial Catalog=databasename;Data Source=" & 你的IP地址 & ";" _
     & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
     & "Use Encryption for Data=False;Tag with column collation when possible=False"with cn  
      .ConnectionString = str
      .ConnectionTimeout = 300 
      .CursorLocation = adUseClient
      .Open
end with