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