VB中將數(shù)據(jù)轉(zhuǎn)換為數(shù)據(jù)庫文件
在工作中，我們經(jīng)常會遇到將數(shù)據(jù)文件中的數(shù)據(jù)導(dǎo)入到數(shù)據(jù)庫中，當(dāng)然可以利用Microsoft Access導(dǎo)入數(shù)據(jù)，但是這個過程比較復(fù)雜。比較簡單的方法是利用VB編制一程序，使其自動實現(xiàn)這一功能。下面就以我在實際工作中遇到的問題為例對這一方法加以介紹。
我單位購置的刷卡機(jī)，在使用中發(fā)現(xiàn)隨機(jī)附帶的考勤軟件不適合我單位的實際情況，所以想用VB重新編制考勤管理軟件，但是首先遇到的問題就是如何把卡鐘數(shù)據(jù)轉(zhuǎn)換為Access數(shù)據(jù)庫文件中的數(shù)據(jù)，經(jīng)過多次修改、調(diào)試，終于找到了解決此問題的方法。本例中，卡鐘數(shù)據(jù)文件的路徑為"c:tr500tr500.hst",數(shù)據(jù)庫文件的路徑為"c:kqxtkq.mdb"。
一、用Microsoft Access建立一數(shù)據(jù)庫kq.mdb,其表的名稱為表1。
字段及字段類型如表1：
二、編制程序
1.VB中建立一個新工程，在Form1上添加Command1和Data1控件。
根據(jù)下表設(shè)置Data1和Command1的屬性：(見表2)
2.卡鐘數(shù)據(jù)的原始記錄格式：
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
此程序的關(guān)鍵是如何從各條記錄中取出刷卡號、日期和時間，并把這些數(shù)據(jù)導(dǎo)入到數(shù)據(jù)庫文件中。
3.源程序：
Private Sub Command1_Click()
Dim Response,MyString
Dim st As String 定義每行數(shù)據(jù)為一字符串
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("是否刪除原有數(shù)據(jù)",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)) 分
防止在轉(zhuǎn)換過程中遇到非法數(shù)據(jù)而中斷
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中文企業(yè)版下調(diào)試通過。
�。–AD工作站 楊英 方紅）
