我有一段代码可以将文本文件中的数据导入到 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
我怎么解决这个问题?为什么会出现这个问题?