求助:adodc:至少一个参数没有被指定值!
我想编一个查询小程序,界面是4个文本框的,一个命令按钮,一个adodc1控件,当在第一个文本框输入要查询的字段时,点击按钮,就在其他文本框显示其他相应内容,数据库已连接好,就是运行的时候出现了adodc:至少一个参数没有被指定值!请问我编的程序有问题吗?还是那个地方有错误啊!
请高手指点!不胜感激!
Private Sub Command1_Click()
Dim condition
condition = Trim(Text1.Text)
Adodc1.RecordSource = "select*from 库存 where " & condition & "='" & Text1.Text & "'"
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields("货物编号")
Text2.Text = Adodc1.Recordset.Fields("货物名称")
Text3.Text = Adodc1.Recordset.Fields("库存量")
Text4.Text = Adodc1.Recordset.Fields("单位")
End Sub
Private Sub Form_Load()
Adodc1.RecordSource = "select * from 库存"
Adodc1.Refresh
End Sub