请问这么通过日期来访问数据？

Question

Dim db As Database, rs As Recordset, y As String, m As String, d As String, h As String, r As String
y = Comy.Text
m = Comm.Text
d = Comd.Text
h = Comh.Text
r = y & "-" & m & "-" & d & "-" & " " & h
Set db = OpenDatabase("c:\rldc\dbrldc.mdb")
Set rs = db.OpenRecordset("select * from th where riqi like r")
我的日期是从下拉列表框中选的，要用过判断列表框中的日期来访问对应时间的数据库中的数据，用的数据库是acess

Answer 1

"select * from th where riqi like " & r

Answer 2

Set rs = db.OpenRecordset("select * from th where riqi =" & r)

Answer 3

调用数据库中日期字段，用SQL语句实现查询，就可以了

Answer 4

Set rs = db.OpenRecordset("select * from th where riqi =" & r)正确答案~

Answer 5

'数据库为ACCESS：
  strsql=" select * from tablename where riqi=# " & cdate(r) & " # "
'数据库为SQL：
  strsql=" select * from tablename where riqi='"& cdate(r) &"'"

Answer 6

Dim db As Database, rs As Recordset, y As String, m As String, d As String, h As String, r As String
y = Comy.Text
m = Comm.Text
d = Comd.Text
h = Comh.Text
r = y & "-" & m & "-" & d & "-" & " " & h
Set db = OpenDatabase("c:\rldc\dbrldc.mdb")
Set rs = db.OpenRecordset("select * from th where riqi like r")
我的日期是从下拉列表框中选的，要用过判断列表框中的日期来访问对应时间的数据库中的数据，用的数据库是access我想在where条件里面使用like不知道通配符如何和vb变量一起使用,而不是用等号
我想查询的是数据库中小时时间相同的多个数据，数据库中数据存放的时间间隔是5秒

Answer 7

数据库中字段日期的格式为yyyy-mm-dd hh:mm:ss
我只是想查询某一小时内的数据