dim oCnn as new ADODB.ConnectionoCnn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;Password=;Initial Catalog=Temp"
Provider:连接驱动 Data Source:数据源,服务器名称或IP User ID:用户名 Password:密码 Initial Catalog:连接的数据库名
Option Explicit Dim Adocon As ADODB.Connection Private Sub Form_Load() Set Adocon = New ADODB.Connection Adocon.ConnectionString = "Provider = SQLOLEDB.1;Password =登录密码; Persist Security Info = True;User ID = 登录用户;Initial Catalog = 数据库名; Data Source =服务器名或IP" Adocon.ConnectionTimeout = 120 Adocon.Open 'do something Adocon.Close Set Adocon = Nothing End Sub
Data Source:数据源,服务器名称或IP
User ID:用户名
Password:密码
Initial Catalog:连接的数据库名
Dim Adocon As ADODB.Connection
Private Sub Form_Load()
Set Adocon = New ADODB.Connection
Adocon.ConnectionString = "Provider = SQLOLEDB.1;Password =登录密码; Persist Security Info = True;User ID = 登录用户;Initial Catalog = 数据库名; Data Source =服务器名或IP"
Adocon.ConnectionTimeout = 120
Adocon.Open
'do something
Adocon.Close
Set Adocon = Nothing
End Sub