当前位置:编程学习 > Delphi >>

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 窗体动态打开函数

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,