module1.bas

工作报表的源程序内容

Attribute VB_Name = "Module1"
Option Explicit

Public db As Database

Public rs1 As Recordset, rs2 As Recordset, rs3 As Recordset, rs4 As Recordset, rs5 As Recordset

Public getdata As String  '存取科目字符串变量







'创建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=ESS-05;Uid=sa;Pwd=;Database=db8"
   '打开连接
   .Open
End With

End Sub