比方说,我想把满足条件name=edit.text记录的所有book都添加到listbox1中.
这是我当初的程序,一条一条找,太慢了,如果用SQL查询怎么做??
.....
while not adoquery1.Eof do
begin
if trim(adoquery1.fieldbyname('name').asstring)=trim(edit1.text) then
listbox1.Items.Add(adoquery1.fieldbyname('book').asstring);
adoquery1.Next;
end;
......
这是我当初的程序,一条一条找,太慢了,如果用SQL查询怎么做??
.....
while not adoquery1.Eof do
begin
if trim(adoquery1.fieldbyname('name').asstring)=trim(edit1.text) then
listbox1.Items.Add(adoquery1.fieldbyname('book').asstring);
adoquery1.Next;
end;
......
解决方案 »
- FastReport套打,纸张是连续的带锯齿的已经印刷好的,类似于通信公司发票
- 执行RAVE报表时,可以去掉Output Options这个弹出窗体吗?怎么去掉?
- 请问那有财务发票样子的表格控件
- 如何将多个EXE包成一个EXE?
- 请教一个帮助的问题,请大家帮忙解答
- 一个最简单的问题,大家帮忙看看。谢了先!
- csdn中资源分是什么东东啊?
- delphi 中接受ie传送的htmlDocument,应该怎么处理才能取得ie中鼠标选定的文本。
- 一个房地产管理软件,大家给我定个价
- 有什么代理软件可以做到让ADSL代理上网
- 请问timer控件的问题?????
- 请问Delphi7的dotNet功能是怎么一回事?跟Delphi.Net是一回事吗?工具栏按钮文本如何能放置在图标右侧?
with adoquery1 do
begin
close;
sql.clear;
sql.text:='select * from yourtable where name='+''''+trim(edit1.text)+'''';
open;
while not eof do
begin
listbox1.items.add(adoquery1.fieldbyname('book').asstring);
next;
end;
end;