| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 809 人关注过本帖
标题:求教一个dataCombo的问题,
只看楼主 加入收藏
平平淡淡
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-1-2
收藏
 问题点数:0 回复次数:8 
求教一个dataCombo的问题,

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wuzi.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "kucun"
Adodc1.Refresh
End Sub
------------------------------------------
Private Sub DataCombo1_Change()
Dim sql As String
sql = "select * from kucun where 名称 ='" & DataCombo1.BoundText & " '"
Adodc1.RecordSource = sql
Adodc1.Recordset.Fields("名称") = DataCombo1.BoundText

Adodc1.Refresh

End Sub
以上我用adodc绑定了一个MSHFlexGrid1,窗体启动时显示所有的记录,然后在DataCombo1里选择我要查询字段的值,为什么在DataCombo1里选择后,MSHFlexGrid1仍然显示的是全部记录,提示说from子语法错误,对象Refresh的方法IAdodc失败呢?多谢!!!!!!

[此贴子已经被作者于2007-1-2 23:52:07编辑过]

搜索更多相关主题的帖子: dataCombo 
2007-01-02 23:51
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
设置一下...的属性为adCmdText试试..

我的msn: myfend@
2007-01-03 09:43
平平淡淡
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-1-2
收藏
得分:0 
求助: ADODC控件问题


Private Sub DataCombo1_Change()
Adodc1.CommandType = adCmdText
Dim sql As String
sql = "select * from kucun where 名称 = " & DataCombo1.BoundTextAdodc1.RecordSource = sql

Adodc1.Recordset.Fields("名称") = DataCombo1.BoundText
Adodc1.Refresh
End Sub
我把adodc1的CommandType属性值设为了adCmdText的,运行时,提示至少一个参数没有被指定值,请问怎么回事儿,我是个新手,请多关照.


[此贴子已经被作者于2007-1-3 14:47:12编辑过]

2007-01-03 14:45
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
sql = "select * from kucun where 名称 = " & DataCombo1.BoundTextAdodc1.RecordSource = sql
这行..我想...严重错误.

我的msn: myfend@
2007-01-03 15:07
平平淡淡
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-1-2
收藏
得分:0 
那应该是两行,不小心复制到一行里了,
2007-01-03 15:23
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
那应该是怎么样?.

我的msn: myfend@
2007-01-03 16:14
平平淡淡
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-1-2
收藏
得分:0 
sql = "select * from kucun where 名称 = " & DataCombo1.BoundTextAdodc1.RecordSource = sql

Adodc1.Recordset.Fields("名称") = DataCombo1.BoundText
是这样,
2007-01-03 21:04
平平淡淡
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-1-2
收藏
得分:0 
不知还有什么属性需要量设置,

2007-01-03 21:05
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
以下是引用平平淡淡在2007-1-3 21:04:58的发言:
sql = "select * from kucun where 名称 = " & DataCombo1.BoundTextAdodc1.RecordSource = sql

Adodc1.Recordset.Fields("名称") = DataCombo1.BoundText
是这样,

我想你应该先把VB的中赋值语句的应用..看看..


我的msn: myfend@
2007-01-03 21:10
快速回复:求教一个dataCombo的问题,
数据加载中...
 
   



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

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