experience.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 = "Experience"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Id  自动编号，整型  编号，主键
'2 EmpId 数字，长整型  员工编号
'3 Start_Date  文本，长度为10  开始日期，必填字段（是），允许空字符串（否）
'4 End_Date  文本，长度为10  终止日期，必填字段（是），允许空字符串（否）
'5 School_Org  文本，长度为50  学校/单位名称，必填字段（是），允许空字符串（否）
'6 Title 文本，长度为20  职务，必填字段（否），允许空字符串（是）

Public Id As Integer
Public EmpId As Long
Public Start_Date, End_Date As String
Public School_Org As String
Public Title As String

Public Sub Init()
  Id = 0
  EmpId = 0
  Start_Date = ""
  End_Date = ""
  School_Org = ""
  Title = ""
End Sub

'删除Experience数据
Public Sub DeleteById(ByVal TmpId As Integer)
  SqlStmt = "DELETE FROM Experience WHERE Id=" + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub

'删除Experience数据
Public Sub DeleteByEmpId(ByVal TmpEmpId As Long)
  SqlStmt = "DELETE FROM Experience WHERE EmpId=" + Trim(Str(TmpEmpId))
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  If TmpId <= 0 Or TmpEmpId <= 0 Then
    GetInfo = False
    Init
    Exit Function
  End If
  
  Id = TmpId
  
  SqlStmt = "SELECT * FROM Experience WHERE Id=" + Trim(Str(TmpId))
  Set rs = QueryExt(SqlStmt)

  If rs.EOF Then
    GetInfo = False
    Init
    Exit Function
  Else
    EmpId = rs.Fields(1)                '员工编号
    Start_Date = Trim(rs.Fields(2))     '起始日期
    End_Date = Trim(rs.Fields(3))       '结束日期
    School_Org = Trim(rs.Fields(4))     '学校/单位名称
    If IsNull(rs.Fields(5)) Then        '职务
      Title = ""
    Else
      Title = Trim(rs.Fields(5))
    End If
    GetInfo = True
  End If
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO Experience (EmpId, Start_Date, End_Date, School_Org, Title) Values(" _
          + Trim(EmpId) + ",'" + Trim(Start_Date) + "','" + Trim(End_Date) + "','" _
          + Trim(School_Org) + "','" + Trim(Title) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal OriId As Long)
  SqlStmt = "Update Experience Set Start_Date='" + Trim(Start_Date) _
          + "',End_Date='" + Trim(End_Date) + "',School_Org='" _
          + Trim(School_Org) + "',Title='" + Trim(Title) _
          + "' WHERE Id=" + Trim(Str(OriId))
  SQLExt (SqlStmt)
End Sub