哪位大侠肯帮兄弟一把:如何用delphi6将一Sql server数据库中的几个表导入到另一Access数据库中?这里sql server表和access表的结构大致相同,但数据类型有些差别,因为两个数据库本身定义的数据类型有些差别。
大力感谢,谢谢!!!!!

解决方案 »

  1.   

    用SQL SERVER的DTS导,功能强大着叱
      

  2.   

    用两个ADOCONNECTION 分别连接
    一边取出来数据---循环插入就可以了
    我有ACCESS TO SQL 的代码
    马上给你
      

  3.   

    var i:integer;
        code,name,insertstr:string;
    begin
      with adoquery1 do
       begin
         close;
         sql.Clear;
         sql.Add('select * from 常熟白雪店');
         open;
       end   ;
       for i:=0 to adoquery1.RecordCount - 1 do
         begin
            code :=adoquery1.Fields[7].AsString ;
            code:= copy(code,1,7)  ;
            with adoquery3 do
            begin
              close;
              sql.Clear;
              sql.Add('select * from DianNei1 where ProductBarcode='''+code+'''');
              open;
            end;
            name:= adoquery1.Fields[5].AsString ;
            insertstr:='insert into DianNei values('''+code+''','''+name+''',2)';
            if adoquery3.RecordCount <= 0 then
            begin
                with adoquery2 do
                begin
                   close;
                   sql.Clear ;
                   sql.Add(insertstr);
                   execsql;
                end;
            end;
            adoquery1.Next ;
         end;
         showmessage('OK');
    end;