moddbaccess.bas

数据库实现员工的管理

Attribute VB_Name = "modDBACCESS"
Public Function ConnectToServer() As Boolean
On Error GoTo ConnectErr
    '连接到ACCESS
    g_dbCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\emp.mdb"
    g_dbCon.ConnectionTimeout = 30
    g_dbCon.Open
    ConnectToServer = True
    Exit Function
'错误处理
ConnectErr:
    ConnectToServer = False
    MsgBox "错误代码:" & Err.Number & _
           "错误描述:" & Err.Description, vbCritical + vbOKOnly, "连接错误"
End Function


Public Function ExecuteSQL(ByVal strSQL As String) As Boolean
'On Error Resume Next
    g_dbCon.Execute (strSQL)
    If Err.Number > 0 Then
        MsgBox "错误代码: " & Err.Number & vbCrLf & _
            "错误描述 :" & Err.Description, vbCritical + vbOKOnly, "连接错误"
        Err.Clear
        ExecuteSQL = False
    Else
        ExecuteSQL = True
    End If
End Function

Public Function DisConnect() As Boolean
On Error Resume Next
    If g_dbCon.State = adStateOpen Then
        g_dbCon.Close
    End If
    DisConnect = True
End Function

Public Function IniDB() As Boolean
On Error GoTo ON_DBERR
    g_dbCon.Execute ("create table Managerlist(Mname char(32),MPWD char(16))")
    g_dbCon.Execute ("create table EmpList ( Enumber char(32) primary key,ename char(16),Eage int,Edate char(32),Eadress char(128))")
    IniDB = True
    Exit Function
ON_DBERR:
    MsgBox "错误代码 :" & Err.Number & vbCrLf & _
       "错误描述 :" & Err.Description, vbCritical + vbOKOnly, "错误"
    IniDB = False
End Function