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;
解决方案 »
- 如何用Idny UDPClient 发送record
- 求模拟键盘输入代码,系统级别的
- 能用一个二维数组把全年的日期和对应的星期几读到里面吗?
- 用消息控制窗体最大化出现的问题
- 我做的工资系统中员工ID应该如何保持与员工资料变化相一致?
- TSHFileOpStruct;這個東東要引用什么﹖不能運行啊
- 请教关于使用socket和TstringList更新数据库的问题!
- 牛虻说报他的名会有很多人帮我的,试试灵不灵
- ***关于在WORD中编程的问题???***
- InstallShield For Delphi 5.0 那里有下载????
- 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了