这一小段代码请问哪里出错啦?
ACCESS中有两个表“aaa”和“bbb”,“aaa”表中有字段“姓名”,“bbb”表中有字段“姓名”和“日期”,现在要查询“bbb”表中是否都有了拥有和“aaa”表中相同姓名并且是今天登记的记录,代码如下:
...省略...
conn.Open
rs.Open "select * from aaa", conn, adOpenKeyset, adLockOptimistic
Dim n As Integer
For n = 1 To rs.RecordCount
rs.AbsolutePosition = n
rs1.Open "select * from bbb where 姓名='" & rs.Fields(0).Value & "' and 日期='" & Date & "'", conn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount = 0 Then
MsgBox rs.Fields(0).Value & "不存在"
Exit For
End If
rs.MoveNext
Next n
结果代码运行不成功,请问哪里出错啦
[解决办法]
你跟踪下,到底是那句有错。
不然只好瞎猜。
[解决办法]
日期='"& date &"'"
==>日期=#"& date &"#"
在access中日期型字段应该用#