Dim Connect As New ADODB.Connection '定义一个连接
Dim res As New ADODB.recordset
Connect.CommandTimeout = 10 '命令超时时间为10秒
Connect.ConnectionString = "Provider=sqloledb;Data Source=数据库所有计算机的名称或IP;Initial Catalog=数据库名;User Id=数据库登录名;Password=数据库用户登录密码"
Connect.Open '打开连接
然后用 res 访问数据就可以了
反正这样的问题天天有人问
ADO Program
Dim Con As New ADODB.Connection
Dim Rst1 As New ADODB.Recordset
Dim Rst2 As New ADODB.Recordset
Dim Rst3 As New ADODB.Recordset
Dim Cmd As New ADODB.Command
Dim Prm1 As New ADODB.Parameter
' Although Employees.GetEmpRecords() takes four parameters, only
' two need to be bound because Ref cursor parameters are automatically
' bound by the provider.
Set Prm1 = Cmd.CreateParameter("Prm1", adSmallInt, adParamInput, , 30)
Cmd.Parameters.Append Prm1
Set Prm2 = Cmd.CreateParameter("Prm2", adSmallInt, adParamOutput)
Cmd.Parameters.Append Prm2
' Stored Procedures returning resultsets must be called using the
' ODBC escape sequence for calling stored procedures.
Cmd.CommandText = "{CALL Employees.GetEmpRecords(?, ?)}"
' Stored Functions returning resultsets must be called using the
' ODBC escape sequence for calling stored functions.
Cmd.CommandText = "{CALL Employees.GetDept(?, ?)}"
Private Sub Command1_Click()
Dim gDBConnect As New ADODB.Connection
gDBConnect.CommandTimeout = 10 '连接持续时间
gDBConnect.ConnectionString = "Provider=sqloledb;Data Source=192.168.1.1;Initial Catalog=" & "csdb" & ";User Id=sa;Password=123456" ‘连接字符串
gDBConnect.Open ’打开连接
End Sub
Private Sub Command1_Click()
Dim gDBConnect As New ADODB.Connection '定义一个连接
gDBConnect.CommandTimeout = 10 '命令超时时间为10秒
gDBConnect.ConnectionString = "Provider=sqloledb;Data Source=数据库所有计算机的名称或IP;Initial Catalog=数据库名;User Id=数据库登录名;Password=数据库用户登录密码"
gDBConnect.Open '打开连接
End Sub
Private Sub Command1_Click()
Dim gDBConnect As New ADODB.Connection
gDBConnect.CommandTimeout = 10
gDBConnect.ConnectionString = "Provider=sqloledb;Data Source=192.168.1.1;Initial Catalog=" & "csdb" & ";User Id=sa;Password=123456"
gDBConnect.Open
End Sub