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;
谢谢
追问:大哥,提示
[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'大哥,提示
第一行:'%XX%附近有语法错误。不懂,大哥你直接重新检察一次,运行一遍重发吧。谢谢!现在提示第一行:' %%'附近有语法错误。是在运行后点查找才出现的。
答案:SQL.Add('select * from ZJLDZ where 货号like '%''+Trim(Edit1.Text)+''%'or 色号 like '%''+Trim(Edit2.Text)+''%' ');
其他: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)+'%');
采用第二种写法方便调试
给分吧
上一个:delphi中dimens[1].lev中lev什么意思啊?
下一个:delphi 窗体动态打开函数