mdldb.bas

来自「这是别人的数据库课程设计」· BAS 代码 · 共 30 行

Attribute VB_Name = "mdlDB"
'创建ADO连接数据库对象
Public adoCon As ADODB.Connection
'创建ADO记录集对象
Public adoRS As ADODB.Recordset
'创建ADO命令对象
Public adoCmd As ADODB.Command
'创建ADO参数对象
Public adoPara As ADODB.Parameter
Public proCon As String


Public Sub ConnectDB()
'创建新的ADO连接对象
Set adoCon = New ADODB.Connection
With adoCon
   '指明连接数据库所使用的驱动程序是SQL
   .Provider = "SQLOLEDB"
   '指定连接字符串
   'Server是SQL Server服务器的名字---SQL SERVER的实例名（不一定是机器名）
   'Uid是SQL SERVER的登录名
   'Pwd是SQL SERVER的登录（如sa）的对应的密码
   'Database指定在SQL SERVER数据库中已经建立的数据库名
   .ConnectionString = "Server=sfw007\lover;Uid=sa;Pwd=;Database=MyDB"
   '打开连接
   .Open
End With

End Sub