Question

delphi7 sql模糊查找

请问如何实现模糊查找，下面是精确查找的代码
procedure TForm2.Button7Click(Sender: TObject);
begin
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from ZJLDZ where 货号='''+Trim(Edit1.Text)+'''or 色号='''+Trim(Edit2.Text)+''' ');
open;
end;
谢谢

Answer 1

SQL.Add('select * from ZJLDZ where 货号like '+quotedstr('%'+Trim(Edit1.Text)+'%')
+' or 色号 like '+quotedstr('%'+Trim(Edit2.Text)+'%') );

sql.text:=' select * from ZJLDZ where 货号like '+quotedstr('%'+Trim(Edit1.Text)+'%')
+' or 色号 like '+quotedstr('%'+Trim(Edit2.Text)+'%');
采用第二种写法方便调试

给分吧

Answer 2

SQL.Add('select * from ZJLDZ where 货号like '%''+Trim(Edit1.Text)+''%'or 色号 like '%''+Trim(Edit2.Text)+''%' ');

追问

大哥，提示
[Error] Unit2.pas(134): Illegal character in input file: '%' ($25)
[Error] Unit2.pas(134): Illegal character in input file: '%' ($25)
[Error] Unit2.pas(135): ')' expected but identifier 'like' found
[Error] Unit2.pas(135): Unterminated string
[Error] Unit2.pas(136): Missing operator or semicolon
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit2.pas'

追答

SQL.Add('select * from ZJLDZ where 货号like ''%'+Trim(Edit1.Text)+'%''or 色号 like ''%'+Trim(Edit2.Text)+'%'' ');

%放错位置了,,,,

追问

大哥，提示
第一行：'%XX%附近有语法错误。

追答

兄弟,,,估计是SQL语句中空格缺少了吧,,,,,关键字前后注意空格啊!!!

追问

不懂，大哥你直接重新检察一次，运行一遍重发吧。谢谢！现在提示第一行：' %%'附近有语法错误。是在运行后点查找才出现的。

追答

SQL.Add(' select * from ZJLDZ where 货号 like ''%'+Trim(Edit1.Text)+'%'' or 色号 like ''%'+Trim(Edit2.Text)+'%'' ');

我建议你以后写程序的时候定义一个string类型的变量:
sSQL:=' select * from ZJLDZ where 货号 like ''%'+Trim(Edit1.Text)+'%'' or 色号 like ''%'+Trim(Edit2.Text)+'%'' ' ;
然后SQL.Add(sSQL);

这样的话你遇到问题,调试的时候可以把sSQL中的sql语句提取出来,,,然后复制sqlserver或者oracle中去执行,,,看看sq语句是否错误,,也方便找到错误,,,,