テキスト ファイルから 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
どうすればこの問題を解決できますか? なぜこの問題が発生するのですか?