dboperation.cls

来自「一个VB开发的很好的图书信息管理系统,在学校的毕业论文中得到了很高的分数」· CLS 代码 · 共 44 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "DbOperation"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'声明一个连接
Dim conn As ADODB.Connection
'声明一个数据集对象
Dim rst As ADODB.Recordset
Public Sub DB_Connect()
   '建立连接
   Set conn = New ADODB.Connection
   conn.Open ConnectString
   
End Sub
Public Function querySQL(ByVal sql As String) As ADODB.Recordset
   '执行查询
   Set rst = New ADODB.Recordset
   rst.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic
    'rst.MoveLast     'get RecordCount
   Set querySQL = rst

End Function
Public Sub executeSQL(ByVal sql As String)
   '执行sql语句
   conn.Execute (sql)


End Sub
Public Sub DB_DisConnect()
   '关闭连接
   conn.Close
   '释放连接
   Set conn = Nothing
End Sub