比如,我要从一个文本文件中导入多个身份证id, 但是要导入的id号码不能与数据库中的id重复。本人水平太差了,只能判断一个,不能批量判断是否重复,请问如何写判断语句?
Dim Rs As ADODB.Recordset
Dim sql As String
sql = "select * from dyxx"
Set Rs = ExeSQL(sql)
Open "1.txt" For Random As #4 Len = 24
n = LOF(4) / 24
HScroll1.Max = n
For i = 0 To n - 1
ReDim Preserve dy(0 To n - 1)
Get #4, i + 1, dy(i)
Rs.AddNew
Rs.Fields("id") = dy(i).id
Rs.Fields("xm") = dy(i).name
Rs.Update
Command5.Enabled = False
Rs.Fields.Refresh
Next i
Close #4
MsgBox "数据导入成功"