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

大家看看，有人知道这句话是什么意思吗？

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

大家看看，有人知道这句话是什么意思吗？[无满意答案结贴,结贴人:icecoldheart]

发表于：2007-06-24 12:54:33 楼主

data1.recordsource = "select * from ruku where （ruku. " & combo1.text & " " & "like " + chr（34) + text1.text + "* " + chr（34) + ") "

发表于：2007-06-24 13:28:481楼得分:0

示例，假设
combo1.text = "aaaaa "
text1.text = "bbbbb "

则语句等同于

select * from ruku where （ruku.aaaaa like 'bbbbb* ')

这是个sql查询语句，从ruku表中返回所有字段ruku.aaaaa中包含bbbbb*的所有记录

发表于：2007-06-24 13:34:292楼得分:0

private sub command1_click（)
data1.recordsource = "select * from ruku where （ruku. " & combo1.text & " " & "like " + chr（34) + text1.text + "* " + chr（34) + ") "
data1.refresh
end sub

private sub command2_click（)
on error resume next
data1.recordset.delete
data1.refresh

end sub

private sub command3_click（)
unload me
end sub

private sub form_activate（)
combo1.additem （ "药品编号 ")
combo1.additem （ "药品名称 ")
combo1.additem （ "批号 ")
combo1.listindex = 0
end sub

private sub form_load（)
data1.databasename = app.path & "\医院药品进销存系统.mdb "
end sub
这是所有的查询代码，不知道为什么，药品名称和批号能用，单独药品编号不能用，一查就出错

发表于：2007-06-24 13:38:063楼得分:0

参数太少。所需个数 <number> 。（错误 3061）
这是错误提示信息，大家看看该怎么改呢

发表于：2007-06-24 13:38:544楼得分:0

？？错误信息是…………

发表于：2007-06-24 13:40:375楼得分:0

在data1.recordsource = "前设置一个断点，运行，按command1，在代码窗口看看data1.recordsource的值是什么~~~~~

发表于：2007-06-24 13:46:306楼得分:0

错误提示是：
实时错误 '3061 '
参数不足，期待是1

发表于：2007-06-24 14:01:377楼得分:0

没得到错误的时候data1.recordsource的值吗？

或者是错误时点“调试”，然后在立即窗口（按ctrl+g)里输入“?data1.recordsource”然后回车，，看看输出结果是什么~~~

发表于：2007-06-24 14:40:218楼得分:0

select * from ruku where （ruku.药品编号 like "0001* ")
这是输出结果，再按回车时，提示，缺少case

发表于：2007-06-24 14:47:379楼得分:0

……不知道为什么会错~~

你确认其他两个都可以通过吗~~~~会不会是引号的问题，改成单引号试试——chr（39)——:)偶实在不知道错的原因~~~

发表于：2007-06-24 14:50:4210楼得分:0

好啦改了一下通过啦谢谢啦

下一篇：vb高手紧急求助：ado +access数据查询问题
上一篇：vb 中打开xls文件显示在datagrid中??

其他资讯