2005-10-27 14:49

2005-10-29 18:29
2005-11-17 10:08
首先引用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编辑过]

2005-11-17 11:19
2005-11-17 13:53

2005-11-24 17:08
谢谢你们
2005-11-28 11: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

2006-10-22 10:23
2006-10-22 10:33