VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB中将数据转换为数据库文件
发表评论(0)作者:CAD工作站 杨英 方红, 平台:VB6.0+Win98, 阅读:10495, 日期:2000-11-21
VB中将数据转换为数据库文件

       在工作中,我们经常会遇到将数据文件中的数据导入到数据库中,当然可以利用Microsoft Access导入数据,但是这个过程比较复杂。比较简单的方法是利用VB编制一程序,使其自动实现这一功能。下面就以我在实际工作中遇到的问题为例对这一方法加以介绍。
      我单位购置的刷卡机,在使用中发现随机附带的考勤软件不适合我单位的实际情况,所以想用VB重新编制考勤管理软件,但是首先遇到的问题就是如何把卡钟数据转换为Access数据库文件中的数据,经过多次修改、调试,终于找到了解决此问题的方法。本例中,卡钟数据文件的路径为"c:\tr500\tr500.hst",数据库文件的路径为"c:\kqxt\kq.mdb"。
      一、用Microsoft Access建立一数据库kq.mdb,其表的名称为表1。
      字段及字段类型如表1:
      二、编制程序
      1.VB中建立一个新工程,在Form1上添加Command1和Data1控件。
      根据下表设置Data1和Command1的属性:(见表2)
      2.卡钟数据的原始记录格式:
      00 100016 0 05/12 07:11
      00 100012 0 05/12 07:12
      00 200001 0 05/12 07:13
      00 100019 0 05/12 07:13
      00 300006 0 05/12 07:17
      此程序的关键是如何从各条记录中取出刷卡号、日期和时间,并把这些数据导入到数据库文件中。
      3.源程序:
      Private Sub Command1_Click()
      Dim Response,MyString
      Dim st As String 定义每行数据为一字符串
      Year1=Year(Date)
      FileCopy "C:\tr500\tr500.hst","C:\kqxt\tr500.dat"
      Open "C:\kqxt\tr500.dat" For Input As 1
      If Data1.Recordset.RecordCount<>0 Then
      Response=MsgBox("是否删除原有数据",vbYesNo+vbQuestion+_vbDefaultButton2,"")
      If Response=vbYes Then
      Data1.Recordset.MoveFirst
      While Not Data1.Recordset.EOF
      Data1.Recordset.Delete
      Data1.Recordset.MoveNext
      Wend
      End If
      End If
      Do While Not EOF(1)
      Line Input #1,st
      str1=Val(Mid(st,4,6)) 刷卡号
      str2=Val(Mid(st,13,2)) 月
      str3=Val(Mid(st,16,2)) 日
      str4=Val(Mid(st,19,2)) 时
      str5=Val(Mid(st,22,2)) 分
      防止在转换过程中遇到非法数据而中断
      If str1<>0 And str2<>0 And str3<>0 And str4<>0 Then
      Data1.Recordset.AddNew
      Data1.Recordset!刷卡号=Val(str1)
      确保上一年的刷卡日期不变
      If Month(Date)=1 And str2=12 Then
      Data1.Recordset!日期=DateSerial(Year1-1,str2,str3)
      Else
      Data1.Recordset!日期=DateSerial(Year1,str2,str3)
      End If
      Data1.Recordset!时间=TimeSerial(str4,str5,0)
      Data1.Recordset.Update
      Screen.MousePointer=vbHourglass
      End If
      Loop
      Close 1
      Screen.MousePointer=vbDefault
      End Sub
      本程序在WIN98、VB5.0中文企业版下调试通过。
      (CAD工作站 杨英 方红)