Question

delphi操作数据库问题，高手进！急！！！！

数据库是sql server，里面有两张表,A和B，我想通过算法，把A里面的所有数据取出来放进B里（不是表的复制，因为B里还要放其它的数据）
A里的字段有：ID，TT（ID号是1,2,3,....）; B里有：NO,TT
我是这样做的。
部分代码：
var
id,tt:string;
i,j:Integer;
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.text:='select * from A';
adoquery1.post;
j:=adoqury1.recordcount;
for i:=1 to j do
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.text:='select * from A where ID=i';
adoquery1.open;
id:=adoquery1.fieldbyname('ID').asstring;
tt:=adoquery1.fieldbyname('TT').asstring;
adoquery2.append;
adoquery2.fieldbyname('ID').asstring :=id;
adoquery2.fieldbyname('TT').asstring :=tt;
adoquery2.open
end;
请问哪些地方不对啊。
我知道这句赋值有问题：
adoquery1.sql.text:='select * from A where ID=i';
请问我的程序该怎么改呢？谢谢高手指教，如果能提供你的好的思路感觉不尽！
我不是把B里的全部数据传给A，只是部份传过去

Answer 1

直接用SQL语句：
insert into B(NO,TT) select ID,TT from A