var

csql,cstr:string;

begin // quotedStr(edit1.text) 以说是在sql查询分析器里给字符串edit1.text加个单引号,可以完全抛开delphi的语法.

cStr:=’%’+trim(edit1.Text)+’%’;

cSql:=’select * from basUser Where userNO like ‘+quotedStr(cStr);

with dataModule2.ADOQuery1 do

begin

close;

sql.Clear;

sql.Add(cSql); //表示执行SQL语句，

// sql.add(‘sp_procedure’); //表示执行存储过程。

open;

end;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/729024/viewspace-564872/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/729024/viewspace-564872/