moddbaccess.bas

员工个人信息管理

Attribute VB_Name = "Moddbaccess"
Option Explicit
Public dbcon As New ADODB.Connection
Public Function aad() As Boolean
On Error GoTo aac
dbcon.ConnectionString = "provider=microsoft.jet.oledb.4.00;" & "data source=D:\zhangwengan\vbi\emp.mdb;" & _
"mode=readwrite"
dbcon.CommandTimeout = 30
dbcon.Open
aab = True
Exit Function
aac:
aab = False
MsgBox "错误代码" & Err.Number & vbCrLf & "错误描述" & Err.Description, vbCritical + vbOKOnly, "连接错误"
End Function
Public Function exesql(ByVal strsql As String) As Boolean
On Error Resume Next
dbcon.Execute (sresql)
If Err.Number > 0 Then
MsgBox "错误代码" & Err.Number & vbCrLf & "错误描述" & Err.Description, vbCritical + vbOKOnly, "连接错误"
Err.Clear
exesql = True
End If
End Function
Public Function disconnect() As Boolean
On Error Resume Next
If dbcon.State = abstateopen Then
dbcon.Close
End If
disconnect = True
End Function
Public Function inidb() As Boolean
On Error GoTo dberr
dbcon.Execute ("create table managelist (mname char(32),mpwd char(16))")
dbcon.Execute ("(create table emplist (enumber char(32)primary key,ename char(16),eage int,edate char(32),eaddress char(128)))")
inidb = True
dberr:
MsgBox "错误代码" & Err.Number & vbCrLf & "错误描述" & Err.Description, vbCritical + vbOKOnly, "连接错误"
inidb = False
End Function