在VB中怎么连接另一台机子上的SQL SERVER服务器中的zmclibrary

Question

rt

Answer 1

Option Explicit
Dim adoConnection As ADODB.Connection
Dim adoRecordset As ADODB.RecordsetPrivate Sub Form_Load()
Set adoConnection = New ADODB.Connection
adoConnection.Open "Provider=SQLOLEDB.1;Password=database;Persist Security Info=True;User ID=sa;Initial Catalog=zmclibrary;Data Source=218.62.*.*"
Set adoRecordset = New ADODB.Recordset
adoRecordset.CursorLocation = adUseClient
adoRecordset.Open "student", adoConnection, adOpenKeyset, adLockBatchOptimistic

Answer 2

'内网odbc方式，不用建dsn
Option Explicit
Dim adoConnection As ADODB.Connection
Dim adoRecordset As ADODB.RecordsetPrivate Sub Form_Load()
Set adoConnection = New ADODB.Connection
adoConnection.Open "driver={sql server};server=sql实例名;uid=sa;pwd=pwd;database=zmclibrary "
Set adoRecordset = New ADODB.Recordset
set adoRecordset.activeconnection=adoconnection
adoRecordset.CursorLocation = adUseClient
adoRecordset.Open "student", adoConnection, adOpenKeyset, adLockBatchOptimistic