Private Sub Command1_Click()
Dim val0 As Single
Dim val1 As Single
Dim val2 As Single
val0 = Val(Text1.Text)
val1 = val0 - 0.05
val2 = val0 + 0.05
Text2.Text = val2
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=jcwsb.mdb;Persist Security Info=False"
.RecordSource = "select * from jjjcw where 公里标 between val1 and val2 "
.Refresh
End With
End Sub
运行时出现至少一个参数没有被指定值,这是怎么回事?
如果把between val1 and val2 中的val1,val2 改为具体的数就没问题。不知道怎么办了?请高手指点一下,谢谢!
參考答案:错在这句话:
.RecordSource = "select * from jjjcw where 公里标 between val1 and val2 "
SQL语句里的要用到VB里的变量不能直接放在引号里,应改为:
.RecordSource = "select * from jjjcw where 公里标 between "+trim(str(val1))+" and "+trim((str(val2))
注意空格(between后面一个空格,and两端各有一个空格)