您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

大家帮我以下,关于查询的问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

大家帮我以下,关于查询的问题 [已结贴,结贴人:fengyuanqing]

发表于：2007-10-09 22:03:39 楼主

我在程序中作了一个查询按钮如下
private sub cmdser_click（)
dim str as variant
if text1.text <> "" then
str = "yhmc like '%" & text1.text & "%'"
end if
if text2.text <> "" then
if str = "" then
str = "yhkl like '%" & text2.text & "%'"
else
str = str & " and yhkl like '%" & text2.text & "%'"
end if
end if
adodc1.recordset.filter = str---------------错误指向这里
end sub
如果是这样的话,按钮是好用的而且能够查找到数据
adodc1.commandtype = adcmdtext
adodc1.recordsource = "select * from companyuser order by xuhao"
adodc1.refresh
但是如果改成这个样子的话就会抱错:"在所对应的名称或序数集合中,未找到项目"
adodc1.commandtype = adcmdtext
adodc1.recordsource = "select xuhao as 序号,yhmc as 名称,yhkl as 密码,yhqx as 权限 ,js as 数值,lr as 录入人 from companyuser order by xuhao"
adodc1.refresh
还请各位高手指点指点

发表于：2007-10-10 05:04:301楼得分:0

将%改成*试试看

发表于：2007-10-10 05:27:482楼得分:100

--select xuhao as 序号,yhmc as 名称,yhkl as 密码,yhqx as 权限 ,js as 数值,lr as 录入人
你这里把数据集的列名用as做了别名那么filter 过滤就根据别名来
if text1.text < > "" then
str = "名称 like '%" & text1.text & "% '"
end if
if text2.text < > "" then
if str = "" then
str = "密码 like '%" & text2.text & "% '"
else
str = str & " and 密码 like '%" & text2.text & "% '"
end if
end if

发表于：2007-10-10 08:29:593楼得分:0

如果是用 datagrid 显示查询结果的话，建议你通过编辑 datagrid 的属性来设置列标题的显示文字，而不要更改查询语句。

发表于：2007-10-10 12:44:224楼得分:0

发表于：2007-10-10 13:11:025楼得分:0

少用ado控件，多用ado代码

控件绑定太严

adodc1.commandtype = adcmdtext
adodc1.recordsource = "select xuhao as 序号,yhmc as 名称,yhkl as 密码,
yhqx as 权限 ,js as 数值,lr as 录入人 from companyuser order by xuhao"
adodc1.refresh

我看没什么错误

发表于：2007-10-10 15:02:546楼得分:0

少用ado控件，多用ado代码？
有什么好处？

发表于：2007-10-10 22:02:027楼得分:0

ayalicer 老兄说的不错,以下就改过来了

下一篇：--------取货表到库存货架表中取货的问题----- < <高级版 > >----
上一篇：求助 datagrid控件和adodc控件使用问题

其他资讯