Làm cách nào để thiết lập kết nối ADODB với SQL Server 2008 trong Microsoft Access 2010?

Trước tiên, bạn cần đảm bảo SQL Native Client đã được cài đặt. Tham khảo

SQL Server 2008

Bảo mật tiêu chuẩn

Provider=SQLNCLI10;Server=myServerAddress;Database=myDataBase;Uid=myUsername;
Pwd=myPassword;

Kết nối đáng tin cậy

Provider=SQLNCLI10;Server=myServerAddress;Database=myDataBase;
Trusted_Connection=yes;

Kết nối với phiên bản SQL Server Cú pháp chỉ định phiên bản máy chủ trong giá trị của khóa máy chủ giống nhau đối với tất cả các chuỗi kết nối cho SQL Server.

Provider=SQLNCLI10;Server=myServerName\theInstanceName;Database=myDataBase;
Trusted_Connection=yes;

Nguồn

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