moddboperate.bas

VB编写的超市管理系统

Attribute VB_Name = "modDbOperate"
'声明全局连接
Public CN As ADODB.Connection
'数据库链接打开
Public Sub dbConn()
On Error GoTo dbErr
    Dim strConn As String
    strConn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\shop.mdb"
    Set CN = New ADODB.Connection
    CN.Open strConn
    Exit Sub
dbErr:
    MsgBox Err.Description, , "商店销售系统"
End Sub
'数据库链接断开
Public Sub dbClose()
On Error GoTo dbErr
    CN.Close
    Set CN = Nothing
    Exit Sub
dbErr:
    MsgBox Err.Description, , "商店销售系统"
End Sub
'数据库操作
Public Sub dbOperate(strSql As String)
On Error GoTo dbErr
    dbConn
    CN.Execute strSql
    dbClose
    MsgBox "操作成功!", , "提示"
    Exit Sub
dbErr:
    MsgBox Err.Description, , "商店销售系统"
End Sub
Public Sub dbOperateW(strSql As String)
On Error GoTo dbErr
    dbConn
    CN.Execute strSql
    dbClose
    Exit Sub
dbErr:
    MsgBox Err.Description, , "商店销售系统"
End Sub
'数据库选择:ADODB.Recordset
Public Function dbSelect(strSql As String) As ADODB.Recordset
Dim RS As New ADODB.Recordset
On Error GoTo dbErr
    dbConn
    Set RS = CN.Execute(strSql)
    Set dbSelect = RS
    Exit Function
dbErr:
    MsgBox Err.Description, , "商店销售系统"
End Function