Question

Delphi XE4中SQL模糊查询结果显示

procedure TForm2.Edit1Change(Sender: TObject);
var
i:integer;
(*resultstr: integer;
resultstr1: string;*)
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from faoecocrop where NAME like ''%'+AnsiUpperCase(Edit1.Text)+'%''');
ADOQuery1.Open;
if ADOQuery1.RecordCount > 0 then
begin
for i := 0 to ADOQuery1.RecordCount -1 do
begin
ComboBox1.Items.Add(ADOQuery1.FieldByName('NAME').AsString );
ListBox1.Items.Add(ADOQuery1.FieldByName('NAME').AsString);
ADOQuery1.Next;
end;
end;
end;
程序如上，在Edit内输入关键字，然后在ComboBox或者ListBox里面显示出数据库内含有关键字的所有选项的名称一列。数据库是Access的。现在的问题是这个程序可以实现模糊查询，不过它把查询结果和本身的数据库名称那项全部显示出来了，我个人觉得是ComboBox1.Items.Add(ADOQuery1.FieldByName('NAME').AsString );这里有问题，但是不知道应该怎么改了。只想要它显示结果集。拜托高手指教！！！！！

Answer 1

1、其实你的代码应该是没有问题的，问题应该是出在你的事件处理上。onChange事件是在edit框文本字符发生改变的时候触发，所以当你在EDIT框输入第一个字符时，系统就会查询数据库，去匹配数据，并将符合条件的内容全部添加到combox和listbox控件中，而输入第二个字符的时候，combox和listbox里面的内容又没有及时清空，上一次显示出来的结果仍在combox和listbox控件中，在你输入第二个字符的时候，系统又执行了一次查询，结果就把第二次查询的结果又添加到了combox控件当中，在输入完成后，你就会发现很多数据有重复而且数据量很大，从而出现你描述的这个情况。因此，个人认为还是增加一个button来解决比较好，用onchange的事件处理对数据库的查询操作太多，程序不好控制。
2、另外，建议将遍历数据库的循环改成使用while not ADOQuery1.eof do 循环比较好，如下：

if ADOQuery1.RecordCount > 0 then
begin

ADOQuery1.First ;
while not ADOQuery1.Eof do
begin
ComboBox1.Items.Add(ADOQuery1.FieldByName('NAME').AsString) ;
ListBox1.Items.Add(ADOQuery1.FieldByName('NAME').AsString) ;
ADOQuery1.Next ;
end;
end;

Answer 2

不过它把查询结果和本身的数据库名称那项全部显示出来了
这话怎么理解，
把图贴出来吧。
如果你只想要name这一列，是不是把以下的select * 改成 select name?
ADOQuery1.SQL.Add('select name from faoecocrop where NAME like ''%'+AnsiUpperCase(Edit1.Text)+'%''');

Answer 3

截图看看？
你确认在数据库Access里like是这么用的？

我认为应该是这样
ADOQuery1.SQL.Add('select * from faoecocrop where NAME like ''*' + AnsiUpperCase(Edit1.Text) + '*''');

Answer 4

没看明白,不知道你想要什么结果.还有感觉你的SQL语句查询条件不对.