Question

delphi7 怎么把数据写入另一个表

var
i: integer;
addquery: TADOQuery;
begin
addquery := TADOQuery.Create(nil);
addquery.Connection := ADOConnection1;
addquery.SQL.Text := 'select * from 1';
AddQuery.open;
I := addquery.recordcount;
AddQuery.first;
while not AddQuery.eof do
begin
memo1.Lines.Add(AddQuery.fieldbyname('名字').value);
AddQuery.next;
end;
AddQuery.close;
addquery.free;
end;
这是我写的代码 怎么把读取的这条数据写入另外一个表里面去？

Answer 1

with adoquery2 do
begin
    close;
    sql.clear;
    sql.add('insrt into 3 values (''' + adoquery1.FieldByName('名字').asstring + ''')');
    ExecSQL;
end;

Answer 2

再放一个adoquery2

begin
adoquery2.close;
adoquery2.sql.clear;
adoquery2.sql:='insert into 表名 字段名  values('''+adoquery1.fieldbyname('名字').value+''')';
adoquery2.execute;
end;

追问

我想把学生这一列的数据写入表3里面 这样写对不对
adoquery2.sql:='insert into 3 values('''+adoquery1.fieldbyname'学生'.value+''')';

Answer 3

这个不是delphi问题，是Sql问题
insert into “yourtable"
select ......
where