菜鸟问题：ado如何连接服务器上的sql server 数据库？

Question

ado如何连接服务器上的sql server 数据库？

Answer 1

adodb.connectionstring="Provider=MSDASQL.1;Password=password;Persist Security Info=True;User ID=sa;Data Source=server;Initial Catalog=database"
我用的是ODBC

Answer 2

Conn.Open "Provider=MSDASQL;" & _ 
　　　　　　　　　 "Driver={SQL Server};" & _
　　　　　　　　　 "Server=myServerName;" & _
　　　　　　　　　 "Database=myDatabaseName;" & _
　　　　　　　　　 "Uid=myUsername;" & _
　　　　　　　　　 "Pwd=myPassword;"

Answer 3

Windows 方式登陆：
adodb.connectionstring="Provider=MSDASQL.1;Password=密码;Persist Security Info=false;User ID=用户;Data Source=服务器名称/ip地址;Initial Catalog=数据库名称"
混合方式登陆：
adodb.connectionstring="Provider=MSDASQL.1;Password=密码;Persist Security Info=True;User ID=用户;Data Source=服务器名称/ip地址;Initial Catalog=数据库名称"

Answer 4

'======================================================================
'建立SQL连接函数
'参数：
'    1.strSQLServer----SQL服务器名(或IP地址)
'    2.strDB_Name  ----要连接的数据库名
'======================================================================
Public Function Conn_DB(ByVal strSQLServer As String, Optional ByVal strDB_Name As String = "TEPCeMISInfoQuick") As Boolean
       On Error GoTo err1
       Dim SQL_string As String
       Dim strCon As String
       
       If Not Conn Is Nothing Then Set Conn = Nothing
       Set Conn = New ADODB.Connection
       
       strCon = ""
       strCon = strCon & "Driver={SQL Server};"
       strCon = strCon & "Server=" & strSQLServer & ";"
       strCon = strCon & "Uid=" & SQLServerUserName & ";"
       strCon = strCon & "Pwd=" & SQLServerPassword & ";"
       strCon = strCon & "DataBase=" & strDB_Name
       
       Conn.ConnectionString = strCon
       Conn.CommandTimeout = 5
       
       Conn.Open
       
       SQL_string = ""
       SQL_string = SQL_string & " SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED "
       SQL_string = SQL_string & " SET DEADLOCK_PRIORITY  LOW "
       SQL_string = SQL_string & " SET LOCK_TIMEOUT 60000 "
       
       Conn.Execute SQL_string, , adCmdText
       
       Conn_DB = True
       Exit Function
err1:
       If Err.Number <> 0 Then
             Conn_DB = False
             ErrProc Err, "Conn_DB" & ":" & strDB_Name
             Err.Clear
       End If
End Function