在使用一个长整型变量进行查询时报错类型不匹配
Private Sub Command1_Click()
Dim x As Long
x = 80

Adodc1.RecordSource = "select 姓名 from 成绩表 where 课程成绩='" + x + "'"
Adodc1.Refresh: Set MSHF1.DataSource = Adodc1
End Sub
不知道错在什么地方？？？

SGw1vTHF.rar (13.82 KB) 一个变量查询问题？

[此贴子已经被作者于2007-9-10 19:06:09编辑过]

解决了
Private Sub Command1_Click()
x = 80
Adodc1.RecordSource = "select 姓名 from 成绩表 where 课程成绩=" & x
Adodc1.Refresh: Set MSHF1.DataSource = Adodc1
End Sub