关于日期查询的问题,100分报答

Question

我现在有一个数据库连接正常.有字段1,字段2,字段3,字段4,字段5,用来存放两位数的文本值(具体的值是01,05...之类的数字)
现在由用户输入的一个期间的值.比如说07-10,想查询上面说的字段1到字段5中包含用户输入期间的记录,也就是字段1,字段2,字段3,字段4,字段5中只要包含07,08,09,10这几个数就要显示出来的记录集
Data1.RecordSource = "select * from choice where  "各位怎么字啊？在线等，试验成功马上结贴

Answer 1

Data1.RecordSource = "select * from choice where 字段1 in (7,8,9,10) or 字段2 in (7,8,9,10) ...... "

Answer 2

Data1.RecordSource = "select * from choice where 字段1 in (7,8,9,10) or 字段2 in (7,8,9,10) or 字段3 in (7,8,9,10) or 字段4 in (7,8,9,10) or 字段5 in (7,8,9,10)"

Answer 3

Data1.RecordSource = "select * from choice where val([字段1])>= " &变量1 &" and val([字段1])<= " &变量2 or val([字段2])>= " &变量1 &" and val([字段2])<= " &变量2 or val([字段3])>= " &变量1 &" and val([字段3])<= " &变量2 or val([字段4])>= " &变量1 &" and val([字段4])<= " &变量2 or val([字段5])>= " &变量1 &" and val([字段5])<= " &变量2

Answer 4

dim i as integer, a as integer, b as integer
dim s_range as string
a=7
b=10
s_range="("
for i=a to b
    s_range=s_range & i & ","
nexts_range=left(s_range,len(s_range)-1) & ")"Data1.RecordSource = "select * from choice where 字段1 in " & s_range & " or 字段2 in " & s_range & " or 字段3 in " & s_range & " or 字段4 in " & s_range & " or 字段5 in " & s_range & Chr(34)

Answer 5

Data1.RecordSource = "select * from choice where val([字段1])>= " &变量1 &" and val([字段1])<= " &变量2 &" or val([字段2])>= " &变量1 &" and val([字段2])<= " &变量2 &" or val([字段3])>= " &变量1 &" and val([字段3])<= " &变量2 &" or val([字段4])>= " &变量1 &" and val([字段4])<= " &变量2 &" or val([字段5])>= " &变量1 &" and val([字段5])<= " &变量2

Answer 6

检验单个strValue可以用这个
Data1.RecordSource = "select * from choice where [字段1]+[字段2]+[字段3]+[字段4] like %'" & strValue & "'"

Answer 7

来来来，我太笨，还是没成功！
我现在套用了上面各位的格式：
现在数据库中有两个字段birthdatey和birthdater分别存储着文本属性的值“09”和“02”
我用以下方法查，记录集是空为什么呀？
y = "09"
r = "02"
Data1.RecordSource = "select * from choice where birthdatey='&y&' and birthdater='&r&'"
Data1.Refresh

Answer 8

y = "09"
r = "02"
Data1.RecordSource = "select * from choice where birthdatey='" & y &  "' and birthdater='" & r & "'"
Data1.Refresh