请问用SQL语句怎么把一个TXT文件导入到ACCESS表中

liulubing

下面是我的实际例子，希望对你有帮助。

  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