|
下面是我的实际例子,希望对你有帮助。
Open "D:\work\grade1\student.txt" For Input As intFreeFileNumber
If EOF(intFreeFileNumber) = False Then
Do While EOF(intFreeFileNumber) = False
Line Input #intFreeFileNumber, strRecord
strCardID = Left(strRecord, 6)
strPeopleNo = CS(DLookup("员工代号", "N-基本资料单头", "刷卡卡号='" & strCardID & "'and 是否离职='0'and 须刷卡否='1' and 指纹考勤='0' "))
strDate = Format(Mid(strRecord, 7, 8), "0000/00/00")
strTime = Format(Right(strRecord, 6), "00:00:00")
strDateTime = Format(strDate & " " & strTime, "yyyy/mm/dd HH:mm:ss")
cmm.CommandText = "Insert [N-刷卡钟数据表] (刷卡卡号,员工代号,日期,时间,完整时间,采集日期) " & _
"Values ('" & strCardID & "','" & strPeopleNo & "','" & strDate & "'," & _
"'" & strTime & "','" & strDateTime & "','" & Date & "')"
cmm.Execute
iRecordCount = iRecordCount + 1
Call ProgressBar(20)
Loop
SysCmd acSysCmdClearStatus
Else
MsgBox "您所选择的文件没有任何刷卡资料!请查核后再继续下一步!", vbCritical
End If |
|