Access使用代码导入数据时的问题

hysj02

我想实现的目的是：把所有txt文件中的数据导入到t_SUP表中。
窗体frmImportSUP中的Import All用于实现这目的。
我代码的步骤是：
1 判断txt文件名是否符合规则，
2 清空t_TmpSUP表
3 导入txt文件的数据到t_TmpSUP表
4 删除t_SUP表中与t_TmpSUP表SUP列重复的数据
5 把t_TmpSUP表中的内容放入t_SUP表中

我发现测试代码时，使用单步执行的方法可以实现我的目的。但如果使用按钮让程序一次完成，代码的要求往往无法实现，不是数据重复导入，就是没有数据导入。
请问如何解决，是否是access使用代码有什么特殊技巧，谢谢。

zxzx2733

Private Sub Command0_Click()
'=====================导入数据
DoCmd.SetWarnings False

If ExistTable("t_TmpSUP") = True Then
DoCmd.RunSQL "delete * from t_TmpSUP"
End If

Dim ss, ss1, tempstr, iline, aa, txetname
ss = ""
txetname = Me.TxetA
aa = CurrentProject.Path & "\" & txetname & ".txt"
Open aa For Input As #1
iline = 0
Do While Not EOF(1)
   Line Input #1, tempstr
   tempstr = Trim(Mid(tempstr, 1, 20)) & "," & Trim(Mid(tempstr, 21, 22)) & "," & Trim(Mid(tempstr, 34))
ss = ss & tempstr & vbCrLf
iline = iline + 1
Loop

Close #1
Open CurrentProject.Path & "\abc.txt" For Output As #2
Print #2, ss
Close #2

DoCmd.TransferText acImportDelim, "me", "t_TmpSUP", CurrentProject.Path & "\abc.txt", False

If Dir(CurrentProject.Path & "\abc.txt") <> "" Then
Kill CurrentProject.Path & "\abc.txt"
End If
'=====================追加数据
DoCmd.RunSQL "delete * from t_SUP where SUP in (select SUP from t_TmpSUP);", False
DoCmd.RunSQL "INSERT INTO t_SUP SELECT * FROM t_TmpSUP;", False

DoCmd.SetWarnings True
End Sub
Private Function ExistTable(strTableName As String) As Integer
    Dim i As Integer
    ExistTable = False
    For i = 0 To CurrentData.AllTables.Count - 1
        If strTableName = CurrentData.AllTables(i).Name Then
            ExistTable = True
            Exit For
        End If
    Next i
End Function

hysj02

请问
DoCmd.TransferText acImportDelim, "me", "t_TmpSUP", CurrentProject.Path & "\abc.txt", False
中第二个参数"me"是如何配置的？我进行了很多搜索都找不到相应的资料。谢谢。

hysj02

我找到配置TransferText 中第二个参数的方法了：
文件－》导入外部数据－》导入－》选择文本文件，单击高级按钮，在这个对话框中可以配置“规格”设置。
http://www.office-cn.net/vvb/viewthread.php?tid=61246&highlight=TransferText