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

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 25 行

下 面 是 一 个 示 例 代 码 ： 
    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>