T
tjk
Unregistered / Unconfirmed
GUEST, unregistred user!
在ado中用select 实现将一条记录赋于一个数组。
W
wolf1860
Unregistered / Unconfirmed
GUEST, unregistred user!
var myrecord
levariant;
begin
query.close;
query.sql.clear;
query.sql.add('select field1,field2,field3 from...');
myrecord:=vararraycreate([0,2],varvariant);
myrecord[0]:=query[field1];
myrecord[1]:=query[field2];
myrecord[2]:=query[field3];
end;
levariant;begin
query.close;
query.sql.clear;
query.sql.add('select field1,field2,field3 from...');
myrecord:=vararraycreate([0,2],varvariant);
myrecord[0]:=query[field1];
myrecord[1]:=query[field2];
myrecord[2]:=query[field3];
end;
Z
zxb200
Unregistered / Unconfirmed
GUEST, unregistred user!
我也做一個;
var array1:variant;
i,count:integer;
begin
query.close;
query.sql.text:='select * from table1 where 條件';
query.open;
query.first;
count:=query.fields.count-1;
array1:=vararraycreate([0,count],varvariant);
for i:=0 to count do
array1:=query.fields.asvariant;
query.close;
end;
var array1:variant;
i,count:integer;
begin
query.close;
query.sql.text:='select * from table1 where 條件';
query.open;
query.first;
count:=query.fields.count-1;
array1:=vararraycreate([0,count],varvariant);
for i:=0 to count do
array1:=query.fields.asvariant;
query.close;
end;
M
Mark_zheng
Unregistered / Unconfirmed
GUEST, unregistred user!
后面的一个程序好些！