如何将刷卡记录保存在数据库中.txt

VB技巧问答10000例 VB技巧问答10000例

下 面 是 一 个 示 例 代 码 ： 
    Dim dbRecod As Database 
    Dim rdRecord As Recordset 
    Dim s As String 
    Dim sID As String 
     
    Set dbRecord = WorkSpace(0).OpenDatabase("YourDB.mdb") 
    Set rdRecord = dbRecord.OpenRecordset("YourTable") 
    Open "record.txt" For Input As #1 
    While Not Eof(1) 
     Line Input #1, s 
     sID = Mid(s, 5, 5) 
     rdRecord.FindFirst "[职 工 编 号 ] = '" + sID + "'" ' 注 意 这 里 假 定 你 的 职 工 编 号 字 段 为 字 符 型 
     If rdRecord.NoMatch Then 
     ' 出 错 
     Else 
     rdRecord.Edit 
     rdRecord("刷 卡 日 期 ") = DateSerial(Val(Mid(s, 12, 2)), Val(Mid(s, 14, 2)), Val(Mid(s, 16, 2)) 
     rdRecord("刷 卡 时 间 ") = TimeSerial(Val(Mid(s, 20, 2)), Val(Mid(s, 22, 2)), 0) 
     rdRecord.Update 
     End If 
    Wend 
    rdRecord.Close 
    dbRecord.Close 
<END>