module1.bas

来自「。简易银行卡管理系统为银行管理层提供全面的银行卡客户分析」· BAS 代码 · 共 92 行

Attribute VB_Name = "Module1"
'变量要求声明
Option Explicit

'Access数据库文件的名称
Public gFile As String

'数据库连接对象
Public gCon As New ADODB.Connection

'数据库集合对象
Public gRst As New ADODB.Recordset

   '打开数据库文件
Public Sub OpenDBFile()
   
   '打开错误处理陷阱
   
   Dim intErrFileNo As Integer  '自由文件号
   On Error GoTo errGoto
   '----------------------------------------------------
    gCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & gFile & ";Mode=ReadWrite;Persist Security Info=False"
   '----------------------------------------------------
   Exit Sub
   '-----------------------------
errGoto:
   '把错误信息保存在文件里
   intErrFileNo = FreeFile()
   Open "YFSystem.ini" For Append As intErrFileNo
   Print #intErrFileNo, Chr(34) + Format(Now, "YYYY-MM-DD HH:MM:SS") + Chr(34), Chr(34) + "信息" + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + "OpenDBFile(Module1)" + Chr(34), Chr(34) + App.Title + Chr(34)
   Close #intErrFileNo
End Sub

   '
   '关闭数据库连接
   '
Public Sub CloseDBFile()
   '打开错误处理陷阱
   Dim intErrFileNo As Integer  '自由文件号
   On Error GoTo errGoto
   '----------------------------------------------------
    gCon.Close
   '----------------------------------------------------
   Exit Sub
   '-----------------------------
errGoto:
   '把错误信息保存在文件里
   intErrFileNo = FreeFile()
   Open "YFSystem.ini" For Append As intErrFileNo
   Print #intErrFileNo, Chr(34) + Format(Now, "YYYY-MM-DD HH:MM:SS") + Chr(34), Chr(34) + "信息" + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + "CloseDBFile(Module1)" + Chr(34), Chr(34) + App.Title + Chr(34)
   Close #intErrFileNo
End Sub

'打开数据集
Public Sub OpenRS(SQL As String)
    '打开错误处理陷阱
    Dim intErrFileNo As Integer  '自由文件号
    On Error GoTo errGoto
    '----------------------------------------------------
    OpenDBFile
    gRst.Open SQL, gCon, adOpenStatic, adLockOptimistic
    
    '----------------------------------------------------
    Exit Sub
    '-----------------------------
errGoto:
    '把错误信息保存在文件里
    intErrFileNo = FreeFile()
    Open "YFSystem.ini" For Append As intErrFileNo
    Print #intErrFileNo, Chr(34) + Format(Now, "YYYY-MM-DD HH:MM:SS") + Chr(34), Chr(34) + "信息" + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + "OpenRS(Module1)" + Chr(34), Chr(34) + App.Title + Chr(34)
    Close #intErrFileNo
End Sub

'关闭打开的数据集合
Public Sub CloseRS()
    '打开错误处理陷阱
    Dim intErrFileNo As Integer  '自由文件号
    On Error GoTo errGoto
    '----------------------------------------------------
    gRst.Close
    CloseDBFile
    '----------------------------------------------------
    Exit Sub
    '-----------------------------
errGoto:
    '把错误信息保存在文件里
    intErrFileNo = FreeFile()
    Open "YFSystem.ini" For Append As intErrFileNo
    Print #intErrFileNo, Chr(34) + Format(Now, "YYYY-MM-DD HH:MM:SS") + Chr(34), Chr(34) + "信息" + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + "CloseRS(Module1)" + Chr(34), Chr(34) + App.Title + Chr(34)
    Close #intErrFileNo
End Sub