0

テキスト ファイルから Access のテーブルにデータをインポートするコード ブロックがあります。テキスト ファイルの各行はテーブルに個別に保存する必要がありますが、テーブルに重複する行がある場合があります。たとえば、次のようなテキスト ファイルがあります。

Water
Bird
Summer

常にではありませんSummerが、テーブルに 2 つ表示されることがあります。テキスト ファイルの最後の行は常に複製されます。

ここに私の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