如何将SQL中的数据库中的表备份到本机的ACCESS数据库中?用ado连接。
另外,如何将MDB中的一个表备份在同一个MDB中,只是表名不同。谢谢

解决方案 »

  1.   

    var
          i,kk:integer;
          lis:Tstrings;
       Begin
          lis:=TStringlist.create;
          ADOconn.GetTableName(lis);//ADOconn是Tadoconn;
       For i:=0 To lis.count-1 Do 
       Begin
          With ADOQ Do//ADOQ 连的是sql
          Begin
             close;
             sql.clear;
             Sql.add('select * from ' +Tables_Sts[i]);
             open;
          End;
          With ADOQ_Ac Do//ADOQ_Ac 连的是access
          Begin
             close;
             sql.clear;
             Sql.add('select * from ' +Tables_Sts[i]);
             open;
          End;
          While NOT ADOQ.Eof Do Begin
            ADOQ_Ac.Append;//ADOQ_Ac连的是access
            For kk:=0 To ADOQ_Ac.FieldCount-1 Do Begin
                ADOQ_Ac.Fields[kk]:=ADOQ.Fields[kk];
            End;
            ADOQ_Ac.Post;
            ADOQ.Next;
          End;
       End;
       lis.free;
       end;
      

  2.   

    ADOconn是TAdoconnection连接sql或access都可以
      

  3.   


        With ADOQuery1 Do
        Begin
              Close;
              sql.clear;
              sql.add('create table 表名 (field1 varchar 30 Not null,field2 varchar   10 Null)');
              execsql;
        End;
         然后打开你创建这个表,把原有的那个表内容加进去就可以了.
         另外:用batchmove 好像也可以。
             如果以上对你有帮助,记得给我点分哦,我的分要没了!