SqlStr:=‘select * from table1 ’ SqlStr:=SqlStr + ' Where PersonnelName like ''%'+Trim(EdtPerson.Text)+'%'')'; with Query1 do begin Close; SQL.Add(Sqlstr); Open; end;
SqlStr:=‘select * from table1 ’ SqlStr:=SqlStr + ' Where PersonnelName like '''+Trim(EdtPerson.Text)+'%'')'; with Query1 do begin Close; SQL.Add(Sqlstr); Open; end;
在Edit1的OnChang事件中写 tikkypeng(不知火幻安) 提供的代码即可。
OnChange事件不好~每次输入都会触发~~ 最好写在OnExit中~~:)
不知火幻安和大哥,系统提示说:命名行没结束.我用的是oracle数据库
SqlStr:=SqlStr + ' Where PersonnelName like '''+Trim(EdtPerson.Text)+'%'''; 多贴了一个)去了,试试! 你先把sqlstr在执行前show一下,看看这句话还有没有问题。
SqlStr:=SqlStr + ' Where PersonnelName like ''%'+Trim(EdtPerson.Text)+'%'')';
with Query1 do
begin
Close;
SQL.Add(Sqlstr);
Open;
end;
SqlStr:=SqlStr + ' Where PersonnelName like '''+Trim(EdtPerson.Text)+'%'')';
with Query1 do
begin
Close;
SQL.Add(Sqlstr);
Open;
end;
最好写在OnExit中~~:)
多贴了一个)去了,试试!
你先把sqlstr在执行前show一下,看看这句话还有没有问题。