0

我有一段代码可以将文本文件中的数据导入到 Access 中的表中。文本文件中的每一行都应该单独保存在表格中,但有时我在表格中有重复的行。例如,我有一个这样的文本文件:

Water
Bird
Summer

有时但并非总是我Summer在桌子上看到两个。文本文件的最后一行总是重复的。

这是我的VB代码:

Private Sub Command11_Click()
    Dim ifile As Integer
    Dim db As Database
    Dim name As String

    Let ifile = FreeFile
    name = util1.fDateiName("*.lab", "Lable")
    Me.RecordSource = ""
    DoCmd.RunSQL ("DELETE * FROM tb_lable_Daten")
    Me.RecordSource = "SELECT name FROM tb_lable_Daten"

   If name <> "" Then
       Open name For Input As ifile
       While Not EOF(ifile)
           Line Input #ifile, entireline
           'MsgBox entireline
           DoCmd.RunSQL ("INSERT INTO tb_lable_Daten (name) VALUES ('" & entireline & "');")
       Wend
       List5.Requery
       List5.SetFocus

       MsgBox ("Die Daten sind erfolgreich gespeichert")
   End If
End Sub

我怎么解决这个问题?为什么会出现这个问题?

4

1 回答 1

1

在我看来,文件似乎以某种方式处理超出了最后一行(在这种情况下是夏天)。由于您没有在每次迭代期间初始化变量 i:e 整行,因此对于混乱的情况,它采用最后一个有效输入(在您的情况下为夏天)。当且仅当您在整个行变量中具有有效值时,尝试检查并插入,然后在插入后将整个行变量重新初始化为空白。我希望这能解决问题。

于 2013-07-31T09:34:52.123 回答