高分求救，数据库导入问题。。。

Question

先取出库里所有的表名，存入Tstringlist变量中，循环为Table的TableName赋值。
思路就是如此！

Answer 1

谢谢zzllabc(龙），我想你那方法也不对，我如下面做，运行就有错误！
with TYuanBiao do     //源表
  begin
  Active:=false;
  DataBaseName:='dbf1';//源表的数据库别名
  tablename:=zy_xx.TableName;    //源数据库中的职员表 这样设置根本不对
  with TMudiBiao do   //目的表
   begin
   DataBaseName:='dbf2';//目的表的数据库别名
   tablename:=zy_xx.TableName;//目的数据库中的职员表  这样设置根本不对
   end;
  DaoRuBiao(TYuanBiao,TMudibiao,Batcopy);//自编的数据倒入过程
  end;你讲的方法，如果是paradox表就不存在此问题，不知对Access库中的表是怎样设置的。

Answer 2

首先，你的zy_xx到底是什么东西？TTable的TableName属性类型是Tfilename
ith TYuanBiao do    //源表
  begin
  Active:=false;
  DataBaseName:='dbf1';//源表的数据库别名
  tablename:=zy_xx.TableName;      ///-------?>>>>>此处，有什么出错提示？？？
  end;   ///----------->>>>这里少了一个end;
其次，你可以用batchmove来导数据库，没有必要再写一个过程

Answer 3

delphi自身带了一个非常详细的例子，看看就知道了。

Answer 4

zy_xx是数据库（access库）中的一个表，要做的目的就是将一个access数据库中的多个表导入到另外的一个access库中去，
DaoRuBiao(TYuanBiao,TMudibiao,Batcopy);//自编的数据倒入过程
用的是BatchMove控件，将源表名，目的表名作为参数。具体代码如下：rocedure TsjdrForm.DaoRuBiao(tyb, tmb: TTable; drfs: TBatchMode);
begin
with BatchMove1 do
begin
 try
  Mode:=drfs;
  execute;
  except
  on EDBEngineError do
  showmessage('数据倒入错误，请检查网络设置！');
 end;
 end;
end; 
现在要做的就是怎样变换表名，将所有表的数据都倒进去！
我的qq是26136463,愿与您交个朋友！

Answer 5

to dejiang(蚊子)　:能告知是哪个吗？

Answer 6

如果只是想copy数据表而不是编程可以用delphi自己的工具Datapump试试

Answer 7

上面的方法可以在BDE下用，但ADO就要想其它方法了

Answer 8

谢谢以上各位，明天给分。
to whether： datapump怎么用？ 

Answer 9

放假了，一直没看，不好意思
首先打开，有两个选项，select by alias name 和 select by dictionary，选源数据库
我看还是先在BDE中配置好吧
Next后选目标数据库，也是在BDE中配置好的Access数据库
再Next然后选需要移动的表
再next就结束了
你自己先测试一下，坏了可别找我，^_^

Answer 10

刚才错了
首先打开，有两个选项，select by alias name 和 select by dictionary，选源数据库
我看还是先在BDE中配置好吧
Next后选目标数据库，也是在BDE中配置好的Access数据库
再Next然后选需要移动的表
再next，upsize，done就结束了