怎么把数据写到数据库另一表里

Question

怎么样在打印的同时把数据写入同一数据库的另一表里呢,delphi代码是怎么写的,请高手赐教一吓,小弟不胜感激
unit Report;interfaceimplementationprocedure Main;
beginend;end.

Answer 1

用sql，语法insert into
或者一个数据集adoquery1
adoquery1.Append;
adoquery1.FieldByName(fieldA).AsString := 'xxxxx';
adoquery1.Post;

Answer 2

将同一数据库中的数据表T1复制出另一个表T2,复制的是表的字段 
   select * into T2 from T1 where 1=0 
1、将同一数据库中的数据表T1复制出另一个表T2,复制的是表的字段和表的内容 
   select * into T2 from T1 where 1=1 

Answer 3

ADOQuery1.close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.add('insert into table (字段) select 字段 from table2 where 条件');
ADOQuery1.Execsql

Answer 4

INSERT INTO AntiqueOwners ( OwnerID, OwnerLastName, OwnerFirstName ) 
SELECT EmployeeIDNo, LastName, FirstName 
FROM EmployeeAddressTab
le 
WHERE City='Upton'
 

Answer 5

感谢楼上几位的回复,不过不是简单的INSERT INTO语句,是DELPHI脚本,上面我列出的语句是开头部分,要在其中BEGIN   END中间加一段实现把数据源里的数据写入其他表;以下是实现增加一行打印数据的例子,怎么才能实现所有被打印的数据写入另一表里?请各位老大再指教
unit Report
interfaceprocedure Memo4OnBeforePrint(Sender: TObject);
procedure Memo27OnBeforePrint(Sender: TObject);
implementationprocedure Memo4OnBeforePrint(Sender: TObject);
begin
if finalpass  thenbegin
rmdbdtl.dataset.append;
rmdbdtl.dataset.fieldbyname('type').asstring:='ems';
rmdbdtl.dataset.fieldbyname('name').asstring:='        *** bank ***';
rmdbdtl.dataset.post;
end;