moddb.bas

图书管理系统 asp+sql server 2000

Attribute VB_Name = "modDb"
'定义数据库连接字符串，连接对象，记录集对象等
Public Const DBNAME As String = "BookManage" '数据库
Public Const CONSTR As String = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=false;Initial Catalog=BookManage;Data Source=127.0.0.1"

Private IsConnect As Boolean      '标记数据库是否连接
Private cnn As ADODB.Connection   '数据库的连接对象
Private rs As ADODB.Recordset     '记录集对象
'定义连接数据库子过程
Public Sub DBConnect()
If IsConnect = True Then           '如果连接标记为真，表明数据库已连接，则直接返回
   Exit Sub
End If
Set cnn = New ADODB.Connection     '关键字New用于创建新对象cnn
cnn.ConnectionString = CONSTR      '设置连接字符串的ConnectionString属性
 cnn.Open                         '打开到数据库的连接
If cnn.State <> adStateOpen Then   '判断连接的状态
   '如果连接不成功，则显示提示信息，退出程序
   MsgBox "数据库连接失败", vbOKOnly + vbCritical, "连接失败"
   End
End If
IsConnect = True                   '设置连接标记，表示已经连接到数据库

End Sub
'断开与数据库的连接
Public Sub DBDisconnect()
  If IsConnect = False Then        '如果连接标记为假，表明已经断开连接，则连接返回
  Exit Sub
  End If
  cnn.Close                        '关闭连接
  Set cnn = Nothing                '释放cnn
  IsConnect = False                '设置连接标记,表示已经断开与数据库的连接
  
End Sub

'执行数据库操作语句
Public Sub SQLExt(ByVal SQLStr As String)
  Dim cmd As New ADODB.Command     '创建Command对象cmd
  DBConnect                       ' 调用DBConnect过程,来连接到数据
  '设置cmd 的ActiveConnection属性,指定与其关联的数据库连接
  Set cmd.ActiveConnection = cnn
  cmd.CommandText = SQLStr         '设置要执行的命令文本
  cmd.Execute                      ' 执行命令
  Set cmd = Nothing                '清空cmd对象
  '调用DBDIsconnect过程,来断开与数据库的连接
  DBDisconnect
End Sub

'执行数据库查询语句
Public Function SQLQuery(ByVal SQLStr As String) As ADODB.Recordset
Dim rst As New ADODB.Recordset    '创建DBConnect过程,来连接到数据库
DBConnect                         '调用DBConnect过程,来连接到数据库
'设置rst的ActiveConnection属性,指定与其关联的数据库连接,cnn为DBConnect过程
Set rst.ActiveConnection = cnn    '建立的连接对象
rst.CursorType = adOpenDynamic    '设置游标类型
rst.LockType = adLockOptimistic   '设置锁定类型
rst.Open SQLStr                   '打开记录集
Set SQLQuery = rst                '返回记录集

End Function