syslog.cls

vb与access数据库的操作实例

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "SysLog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 LogId 数字，自动编号  日志编号
'2 LogDate 日期\时间 事件发生日期
'3 LogTime 日期\时间 事件发生时间
'4 LogType 文本 10 事件类型
'5 Title 文本 100 事件标题
'6 Body  文本 200 事件内容
'7 UserName  文本 40  操作用户名
Private LogId As Long
Private LogDate As String
Private LogTime As String
Public LogType As String
Public Title As String
Public Body As String
Public UserName As String

Public Sub DeleteById(ByVal TmpId As Long)
  SqlStmt = "DELETE FROM SysLog WHERE LogId=" + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub

Public Sub DeleteByDate(ByVal TmpDate As String)
  SqlStmt = "DELETE FROM SysLog WHERE LogDate='" + Trim(TmpDate) + "'"
  SQLExt (SqlStmt)
End Sub

Public Sub Save()
  LogDate = Format(Date, "yyyy-mm-dd")
  LogTime = Format(Time, "hh:mm:ss")
      
  SqlStmt = "INSERT INTO SysLog (LogDate, LogTime, LogType," _
          + " Title, Body, UserName) Values('" + Trim(LogDate) _
          + "','" + Trim(LogTime) + "','" + Trim(LogType) _
          + "','" + Trim(Title) + "','" + Trim(Body) + "','" _
          + Trim(UserName) + "')"
  SQLExt (SqlStmt)
End Sub