VB中将数据转换为数据库文件

领测软件测试网

　　 
　　VB中将数据转换为数据库文件

     　　在工作中，我们经常会遇到将数据文件中的数据导入到数据库中，当然可以利用Microsoft Access导入数据，但是这个过程比较复杂。比较简单的方法是利用VB编制一程序，使其自动实现这一功能。

下面就以我在实际工作中遇到的问题为例对这一方法加以介绍。
    　　我单位购置的刷卡机，在使用中发现随机附带的考勤软件不适合我单位的实际情况，所以想用VB重新编制考勤管理软件，但是首先遇到的问题就是如何把卡钟数据转换为Access数据库文件中的数据，经过多次修改、调试，终于找到了解决此问题的方法。本例中，卡钟数据文件的路径为"c: r500 r500.hst",数据库文件的路径为"c:kqxtkq.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: r500 r500.hst","C:kqxt r500.dat"
    　　Open "C:kqxt r500.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工作站 杨英 方红）

文章来源于领测软件测试网 https://www.ltesting.net/