with data_sr.ADOQuery1 do
      begin
         close;
         sql.Text:='insert into openrowset('''+'Microsoft.Jet.OLEDB.4.0'''+
                     ','''+defpath+'\data\rs_data.mdb'+''';'''+'admin'+''';'''',''select * from '+S_Table+''') select * from '+
                     S_Table+s_where;
        //showmessage(sql.Text);
        ExecSQL;
     end;
怎么只导出部分数据。
要是加上showmessage(sql.text)导出的就是全部数据。

解决方案 »

  1.   

    好像同样的结果,也是部分数据。
    with Data_SR.ADOConn_loca do
      begin
        try
        s_sql:='insert into depa_code select * FROM depa_code IN [ODBC]'+
               ' [ODBC;Driver=SQL Server;UID=sa;PWD=system;Server=apan;DataBase=rsgl;]';
        showmessage(s_sql);
        Execute(s_sql);
        except
        showmessage('失败');
        end;
      

  2.   

    加了个延时好像可以了,这是为什么。
    --
    又要取又要打开.mdb还得找这个.mdb,可能没有那么快吧,呵呵
      

  3.   

    可能我没说明白
    是把sql server中的数据导到access里。
    adoquery1联的是sql server