errlog.bas

vSQL server 的教务管理系统

Attribute VB_Name = "ErrLog"
Option Explicit
Dim ExeErr As ADODB.Command

Public Sub ExecErr(Gdate As Date, ErrTitle As String, ErrNumber As Long, ErrSource As String, ErrMessage As String)
On Error Resume Next
Set ExeErr = New ADODB.Command
ExeErr.ActiveConnection = Con
ExeErr.CommandText = "insert into 日志表(时间,错误窗口,错误代号,错误源,错误提示) Values ('" & Gdate & "','" & ErrTitle & "','" & ErrNumber & "','" & ErrSource & "','" & ErrMessage & "')"
ExeErr.Execute
MsgBox "错误源：" & ErrSource & Chr(13) & "错误代号：" & ErrNumber & Chr(13) & "错误提示：" & ErrMessage, 16, Gdate & "  " & Time() & "'：  '" & ErrTitle
End Sub