Question

我有一段代码，用于将数据从文本文件导入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

我该如何解决这个问题？为什么会出现这个问题？

Answer 1

在我看来，似乎某种程度上文件处理超出了最后一个线（在这种情况下是夏天）。因为你没有初始化可变的i：在每次迭代期间的整行，以便搞砸了它取最后一次有效输入（在你的情况下夏天）。尝试当且仅当您在整行中具有有效值时，检查并插入变量然后在插入后将整行变量重新初始化为空白。我希望这能解决问题。

插入后表中的重复行

1 个答案: