急！！问题简单(100分)

我写了一个程序想要把一个临时数据库里面的所有的记录都保存到总的数据库里面去。
代码如下；
var
sl, fs : integer ;
s , sql: String;
start : integer;
begin
sl := 1 ;
sql := 'select count(sfzh) as reczs from "swy.dbf"';
DataMod.qrycnt.Close;
DataMod.qrycnt.SQL.Clear;
DataMod.qrycnt.SQL.Add(sql);
DataMod.qrycnt.Open;
printDlg.Edit1.Text:=inttostr(DataMod.qrycntreczs.AsInteger);
fs:=strtoint(printDlg.Edit1.Text);
DataMod.qrycnt.close;
while (sl <= fs) and (not DataMod.gjswsTb.Eof) do
begin
DataMod.gjswsTb.Post;
DataMod.gjswsTb.Next;
sl:=sl+1;
end;
但是程序没有通过，不知道那位数据库高手肯帮忙！先谢过！

用BatchMove吧。

var i:integer;
begin
你把ｓｅｌｅｃｔ出来的数据放入临时库中，然后
Table1.First;
while not Table1.Eof do
begin
Table2.Append;
for i:=0 to Table1.FieldCount-1 do
Table2.Fields.AsString:=Table1.Fields.AsString;
Table2.Post;
Table1.Next;
end;
end;

有实例就最好
能否详细一点。

加上DataMod.gjswsTb.Edit;

insert into b
as select * from a

谢谢各位！！！特别感谢dong1024