大概实现
select * from db where combobox1.text like edit1.text;
动态加载哦
select * from db where combobox1.text like edit1.text;
动态加载哦
解决方案 »
- 关于 COM 初始化的问题
- RemObjects问题
- 关于Oracle服务列表的问题
- 怎么屏蔽系统功能键———急急急急急———在线等待!!!!!
- Delphi组件手动安装的问题???非常忧闷!!!
- 当CYGL.INI文件不存在时,或ADOConnet.ConnectionString不正确时, 运行到ADOConnet.Connected:= True;时,提示无效的授权说明,该怎
- 讨论一下:Delphi开发中为提高开发效率,大家用了哪些辅助工具(像著名的GExpert)?
- ADO与Sybase的问题
- 如何动态的产生一个image控检,并放在另一个image控件上面
- 来,大家一起抗议csdn的帖子保存不方便了
- 怎么样返回字符串呢??
- 为什么一运行程序就'未响应'
showmessage(query1.SQL.Text)
注意where后面空一格,%在like后面的引号里
query1.open;
query1.sql.add('select * from db where '+combobox1.text+' like ''%'+edit1.text+'''' );
showmessage(query1.SQL.Text)
where后面空一格,like后面也要空格
sSql: string;
begin
sSql := 'select * from tbl where '+ComboBox1.text+' like ' + QuotedStr('%'+Edit1.Text+'%'));
ADOQuery1.Close;
ADOQuery1.SQL.Text := sSql;
ADOQuery1.Open;
...
end;
sSql := 'select * from tbl where '+ComboBox1.Text+' like ' + QuotedStr('%'+Edit1.Text+'%');
要注意SQL语句中的单引号
begin
Close;
sql.clear;
sql.add(' select * from db where '+combobox1.text+' like '''+edit1.text+''' ');
open;
end;
showmessage(query1.SQL.Text)