Question

Delphi 如何实现多条件查询，求高手指教下 我这段程序对不对

procedure Tstudentcheck.Button1Click(Sender: TObject);
begin

ADOQuery1.SQL.Clear;
if checkbox1.Checked then

ADOquery1.SQL.Add('select * from question where LessonName='''+combobox5.text+'''');

if checkbox2.Checked then
ADOquery1.SQL.Add(' and LessonUnit='''+combobox1.text+'''');
if checkbox3.Checked then
ADOquery1.SQL.Add(' and LessonDiff='''+combobox2.text+'''');
if checkbox4.Checked then
ADOquery1.SQL.Add(' and LessonScore='''+combobox3.text+'''');
if checkbox5.Checked then
ADOquery1.SQL.Add(' and Style='''+combobox4.text+'''');
ADOquery1.Open;

end;

我是设置了个复选框 当选一个时 搜索某个条件 比如有3个条件 可以1个条件查询，也可以同时满足两个条件查询

这是提示出的错误信息
Project Project1.exe raised exception class EOleException with message
'无效的SQL语句；期待‘DELETE'、’INSERT'、‘PROCEDURE'、SELECT'、或者ASP。Process
stopped.Use step or Run to contiune.

Answer 1

你自己跟踪一下，
把 ADOquery1.Open; 语句设置中断，
在Run菜单中，
Add Watch...中，
加入“ADOQuery1.SQL.STRING”，
然后把它运行值，拷贝到记事本中，仔细考察一下。

你的第一个复选框，务必总是选定。

追问

我也觉得我的第一个复选框有问题，但我自己不明白为什么，因为每次如果选择第一个复选框运行时总会提示该combobox没有设置默认值，不懂，愁啊

追答

哈哈...
因为你第一个复选框是差选的主体select，而不仅仅是where子句。
if checkbox1.Checked then
ADOquery1.SQL.Add('select * from question where LessonName='''+combobox5.text+'''');

Answer 2

你checkbox1一定是checked的吗？如果没有就会发生这个错误。要不然你可以把第一句改成固定的。还有你可以把你的sql显示出来看看对不对

追问

我不一定是checked 因为本身想直接通过combobox实现多条件查询（PS就是满足任意几个条件就可以查询），因为那个实现不起来，所以想到用checkbox 每个checkbox对应下面一个combobox，如果某个checkbox被选中则使用该条件查询，本身也搜索到一个别人做的系统，程序也是这么写的，唯一区别就是别人用的是edit不是combobox，我觉得这应该没有大关系，但现在就是会提示该错误，不知道为什么

Answer 3

procedure Tstudentcheck.Button1Click(Sender: TObject);
begin

ADOQuery1.SQL.Clear;
ADOquery1.SQL.Add('select * from question where 1=1');
if checkbox1.Checked then

ADOquery1.SQL.Add(' and LessonName='''+combobox5.text+'''');

if checkbox2.Checked then
ADOquery1.SQL.Add(' and LessonUnit='''+combobox1.text+'''');
if checkbox3.Checked then
ADOquery1.SQL.Add(' and LessonDiff='''+combobox2.text+'''');
if checkbox4.Checked then
ADOquery1.SQL.Add(' and LessonScore='''+combobox3.text+'''');
if checkbox5.Checked then
ADOquery1.SQL.Add(' and Style='''+combobox4.text+'''');
ADOquery1.Open;

end;

追问

ADOquery1.SQL.Add('select * from question where 1=1');
这句是什么意思 什么叫where 1=1

追答

意思就是任何条件都成立，相当于没有where
但是可以和以后的条件连起来，这样不会使以后的条件有语法错误

追问

先谢谢 我回学校后在电脑上试试 希望可以实现 还有再问下 ADOquery1.Open 实现的是把查询结果反映到GRID组件中 ，如果我想把查询结果每个字段值分别反应到我想要的edit中应该怎么实现呀，而且是多条查询结果，一条一条反应到edit中，用上一条下一条实现每条的阅读，非常感谢

追答

首先你可以用数据感知控件，TDBEdit等，直接设置datasource和datafield关联字段
然后再用个dbnavgator就同样设置datasource进行上下移动就可以了

如果你非要用edit控件，你可以在adoquery的afterscroll事件中将各个字段的赋值代码写进去就行了，edit1.text := dataset.fieldbyname('你的字段名').asstring;