if query1.active then query1.close;
query1.sql.clear;
query1.sql.add('select * from youtable where 姓名=''李四''');
query1.open;
for i:=0 to query1.recordcount-1 do
begin
list1.items.add(query1.fieldbyname('id'));
end;
query1.sql.clear;
query1.sql.add('select * from youtable where 姓名=''李四''');
query1.open;
for i:=0 to query1.recordcount-1 do
begin
list1.items.add(query1.fieldbyname('id'));
end;
解决方案 »
- SQL Server 不存在或拒絕存取??急用急用。幫幫小妹
- 神龙卡怎么播放加密的歌曲,没有密码
- listbox与access数据库
- 两个listbox,如何从listbox2中删除与listbox1相同的项?
- DELPHI怎样调用WINRAR压缩文件???
- XP下如何检测打印机状态
- Delphi DLL中能不能引用主程序的PopupList变量?
- 将一个C++代码翻译成delphi代码
- 当listview的item选择时,如何设置其icon随着变化呢?
- 如何在win98下实现半透明窗口
- paradox sql语句where条件中日期怎样表达?
- 请问如何得到当点击树型控件的小加号时,而得到小加号旁边的结点?
query1.sql.clear;
query1.sql.add('select * from youtable where 姓名=''李四''');
query1.open;
for i:=0 to query1.recordcount-1 do
begin
list1.items.add(query1.fieldbyname('id'));
query1.next;
end;
query1.sql.clear;
query1.sql.add('select * from youtable where 姓名=''李四''');
query1.open;
for i:=0 to query1.recordcount-1 do
begin
list1.items.add(query1.fieldbyname('id')).AsString;
query1.next;
end;
我只要有个思路就ok了