सबसे पहले, आपको यह सुनिश्चित करने की आवश्यकता है कि SQL मूल क्लाइंट स्थापित है। संदर्भ
एसक्यूएल सर्वर 2008
मानक सुरक्षा
Provider=SQLNCLI10;Server=myServerAddress;Database=myDataBase;Uid=myUsername;
Pwd=myPassword;
विश्वसनीय कनेक्शन
Provider=SQLNCLI10;Server=myServerAddress;Database=myDataBase;
Trusted_Connection=yes;
SQL सर्वर इंस्टेंस से कनेक्ट करना सर्वर कुंजी के मान में सर्वर इंस्टेंस को निर्दिष्ट करने का सिंटैक्स SQL सर्वर के लिए सभी कनेक्शन स्ट्रिंग्स के लिए समान है।
Provider=SQLNCLI10;Server=myServerName\theInstanceName;Database=myDataBase;
Trusted_Connection=yes;
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim sConnString As String
Dim recordsAffected as Long
'Create connection string
sConnString = "Provider=sqloledb; Server=LAPTOPX; Database=HomeSQL; Trusted_Connection=True;"
'Open connection and execute
conn.Open sConnString
'Do your query
With cmd
.ActiveConnection = conn
.CommandType = adCmdText
.CommandText = "Select ...;"
.Execute recordsAffected 'Includes a return parameter to capture the number of records affected
End With
Debug.Print recordsAffected 'Check whether any records were inserted
'Clean up
If CBool(conn.State And adStateOpen) Then conn.Close
Set cmd = Nothing
Set conn = Nothing
