急急急急急！！！ 怎么连接SQL数据库？在线等！！！！！

Question

如题，很着急啊，感谢列为大虾

Answer 1

Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Data Source=127.0.0.1;Initial Catalog=Northwind请检查服务器名、数据库、用户名、密码是否正确，还有SQL SERVER的权限设置
    CN.ConnectionString = "Provider=sqloledb;Data Source=服务器名;Initial Catalog=数据库;User Id=用户名;Password=密码;"

Answer 2

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=xxxx;"    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs

Answer 3

Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=sqloledb;Data Source=服务器名;Initial Catalog=数据库名;User Id=此处写sqL服务器的登陆名;pwd=密码"
conn.Open

Answer 4

Private Sub Form_Load()
    Dim strConn As String
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName"
    pubConn.Open strConn    rsTable.CursorLocation = adUseClient
    strSQL = "select  * from TableName"
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTableEnd Sub

Answer 5

Public Function InitDBConnection(ByVal strServerName As String, ByVal strUid As String, ByVal strPwd As String, ByVal strDataName As String, OconnectionCur As ADODB.Connection) As Boolean
   InitDBConnection = False
   
   On Error GoTo errOpen
   If (OconnectionCur.State And adStateOpen) = adStateOpen Then
      OconnectionCur.Close
   End If
   OconnectionCur.ConnectionTimeout = 3
   OconnectionCur.CommandTimeout = 0
   OconnectionCur.CursorLocation = adUseClient
   OconnectionCur.Open "driver={sql server};server=" & strServerName & ";uid=" & strUid & ";pwd=" & strPwd & ";database=" & strDataName
   InitDBConnection = True
   Exit Function
errOpen:
   Set OconnectionCur = Nothing
End Function