求助：adodc:至少一个参数没有被指定值!

yuzhangxi 发布于 2014-01-04 11:17， 1790 次点击

我想编一个查询小程序，界面是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

6 回复

yuzhangxi2014-01-04 11:20

我用的是VB6.0

期待着。。。。。。。。。。。。。。。

Artless2014-01-04 11:56

condition = Trim(Text1.Text)
Adodc1.RecordSource = "select*from 库存 where " & condition & "='" & Text1.Text & "'"
Adodc1.RecordSource = "select*from 库存 where " & Trim(Text1.Text)
& "='" & Text1.Text & "'"

韶志2014-01-04 12:15

你是想根据text1中输入的货物编号来查看货物吗？如果是的话下面的代码就可以了不是的话我也不懂你是什么意思了

程序代码：

Private Sub Command1_Click()
Adodc1.RecordSource = "select*from 库存 where 货物编号='" & Text1.Text & "'"
Adodc1.Refresh
Text2.Text = Adodc1.Recordset.Fields("货物名称")
Text3.Text = Adodc1.Recordset.Fields("库存量")
Text4.Text = Adodc1.Recordset.Fields("单位")
End Sub

yuzhangxi2014-01-04 12:22

回复 3楼 Artless

听从您的建议以后，将程序改为：
Private Sub Command1_Click()
Adodc1.RecordSource = "select*from 库存 where " & Trim(Text1.Text) & "=" & 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
运行后，界面不出错了，但是当我在第一个文本框里输入1的时候，其他的文本框也显示相应的信息，但是当我输入2的时候，在按命令按钮，还显示原来的1的信息，这是为什么啊？
附件为数据库文件

只有本站会员才能查看附件，请登录

yuzhangxi2014-01-04 12:28

回复 4楼韶志

你好，我已经按照您写的程序重新试了一遍，但是提示“标准表达式中的数据类型不匹配”，这是为什么啊？

yuzhangxi2014-01-04 12:33

回复 4楼韶志

已经解决了，谢谢你啊，呵呵，把单分号去了就行了！十分感谢！