ADO有类似BED的BatCHMove的功能吗?

Question

我现在想摆脱BDE,因为我不想在安装时还要将BDE打包......真的急.........就剩下这个倒库问题.........帮我解决了....再给一百分也不成问题............

Answer 1

我用BDE是这样实现的:function BatchData(var T:TTable;var Q:TQuery;const ls_sql,state:string):integer;
begin
    with Q do
    begin
      close;
      sql.clear;
      sql.add(ls_sql);
      open;
    end;
    if state='batcopy'
    then result:=T.BatchMove(q,batcopy)
    else result:=T.BatchMove(q,batAppend);
  end;------------------------
使用如下:
ls_sql:='SELECT * FROM dqbzw where LSH ='+''''+
                   Frm_ddlcjk_main.PUs_lsh+''''+' ORDER BY swh';
BatchData(frm_db.table_dest,frm_db.query_sour,ls_sql,'batappent');

Answer 2

to  adobatchmove:
    要......要............快.........快........

Answer 3

ADO,ADOSourceADO.Clone(ADOSource,LockType);//找个合适的LockType你最好为ADo设置缓存机制，保持数据一致性

Answer 4

to sean2000:
    小弟才浅,,,代码  还是控件.....
希望有代码..

Answer 5

to renzhm:
        问题解决,再给50

Answer 6

大虾们:
      出现这个问题:
procedure TForm1.Button1Click(Sender: TObject);
begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from dqbzw');
  adoquery1.Open;
  adotable1.Clone(adoquery1,ltUnspecified);
  adotable1.Open;
end;
//我发现此时的ADOTABLE1的连接已经不是目标数据了,此时adotable1与adoquery1似乎共享了一个数据源
我在与adotable1关联的DBGRID中插入数据,却在源数据库中出现新的记录.怎么解决?----还是没实现  库  到   库  的要求呀?