| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1790 人关注过本帖
标题:求助:adodc:至少一个参数没有被指定值!
只看楼主 加入收藏
yuzhangxi
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2014-1-4
结帖率:0
收藏
已结贴  问题点数:5 回复次数:6 
求助: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
搜索更多相关主题的帖子: where 文本框 数据库 不胜感激 
2014-01-04 11:17
yuzhangxi
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2014-1-4
收藏
得分:0 
我用的是VB6.0
期待着。。。。。。。。。。。。。。。
2014-01-04 11:20
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:3 
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 11:56
韶志
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
来 自:斗气大陆
等 级:贵宾
威 望:44
帖 子:2223
专家分:13592
注 册:2013-3-22
收藏
得分:3 
你是想根据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

三十年河东,三十年河西,莫欺少年穷!
2014-01-04 12:15
yuzhangxi
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2014-1-4
收藏
得分:0 
回复 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的信息,这是为什么啊?
附件为数据库文件
hello.zip (2.78 KB)
2014-01-04 12:22
yuzhangxi
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2014-1-4
收藏
得分:0 
回复 4楼 韶志
你好,我已经按照您写的程序重新试了一遍,但是提示“标准表达式中的数据类型不匹配”,这是为什么啊?
2014-01-04 12:28
yuzhangxi
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2014-1-4
收藏
得分:0 
回复 4楼 韶志
已经解决了,谢谢你啊,呵呵,把单分号去了就行了!十分感谢!
2014-01-04 12:33
快速回复:求助:adodc:至少一个参数没有被指定值!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027890 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved