首先引用ADO对象库,工程->引用->勾选Microsoft ActiveX Data Object 2.x Library
代码如下:
Dim strConn As String '连接字符串
Dim objConn As ADODB.Connection 'Connection对象
'连接数据库函数
Private Sub ConnectDatabase()
'数据库连接字符串
'User ID为用户名,Password为密码
'Initial Catalog为要连接的数据库名
'Data Source为连接的数据库服务器名或IP地址
strConn="Provider=Sqloledb;User ID=sa;Password=[yourpassword];Initial Catalog=master;Data Source=(local)"
Set objConn=New ADODB.Connection '创建Connection对象实例
objConn.Open strConn '连接数据库
End Sub
[此贴子已经被作者于2005-11-17 11:20:20编辑过]
首先引用ADO对象库,工程->引用->勾选Microsoft ActiveX Data Object 2.x Library
代码如下:
Dim strConn As String '连接字符串
Dim objConn As ADODB.Connection 'Connection对象
'连接数据库函数
Private Sub ConnectDatabase()
'数据库连接字符串
'User ID为用户名,Password为密码
'Initial Catalog为要连接的数据库名
'Data Source为连接的数据库服务器名或IP地址
strConn="Provider=Sqloledb;User ID=sa;Password=[yourpassword];Initial Catalog=master;Data Source=(local)"
Set objConn=New ADODB.Connection '创建Connection对象实例
objConn.Open strConn '连接数据库
End Sub