線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:933
推到 Plurk!
推到 Facebook!

直接把DataPacket Append 到資料庫

尚未結案
will
中階會員


發表:176
回覆:135
積分:62
註冊:2002-04-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-06-25 11:56:53 IP:61.221.xxx.xxx 未訂閱
小弟有兩個AP,分別連結到兩個格式完全一模一樣資料庫,在App1中,小弟利用TclientDataSet的SaveToFile 方法產生一個xml的Datapacket,小弟想把一個Datapacket 匯到App2所連結的資料庫中 請問ClientData 或者DataSetProvider 有沒有methods, 可以直接把DataPacket Append 到資料庫
ha0009
版主


發表:16
回覆:507
積分:639
註冊:2002-03-16

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-07-06 11:01:13 IP:61.56.xxx.xxx 未訂閱
你好: 這是相關討論的問題http://delphi.ktop.com.tw/topic.php?TOPIC_ID=33506 這是使用範例http://sourceprovide.deepen.com.tw/k_top/TestBriefCase.exe 參考看看是否可以幫助你 < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">
will
中階會員


發表:176
回覆:135
積分:62
註冊:2002-04-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-07-07 13:57:05 IP:211.72.xxx.xxx 未訂閱
謝謝 但和我的想法好像有點不同    
引言: 你好: 這是相關討論的問題http://delphi.ktop.com.tw/topic.php?TOPIC_ID=33506 這是使用範例http://sourceprovide.deepen.com.tw/k_top/TestBriefCase.exe 參考看看是否可以幫助你 < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">
mustapha.wang
資深會員


發表:89
回覆:409
積分:274
註冊:2002-03-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-07-14 10:58:40 IP:218.1.xxx.xxx 未訂閱
提供两个思路: 1.了解Midas的XML文件格式,修改XML文件,把每笔资料改成Insert状态 2.用TClientDataSet新增
var
  CDS1,CDS2:TClientDataSet;
  i:integer;
begin
  CDS1:=TClientDataSet.Create(nil);
  CDS2:=TClientDataSet.Create(nil);
  try
    CDS1.LoadFromFile('cds.xml');
    CDS2.LoadFromFile('cds.xml');

    while not CDS2.Eof do CDS2.Delete;
    CDS2.MergeChangeLog;        while not CDS1.Eof do
    begin
      CDS2.Append;
      for i:=0 to CDS1.FieldCount-1 do
        CDS2.FieldByName(CDS1.Fields[i].FieldName).Value:=CDS1.Fields[i].Value;
      CDS2.Post;
      CDS1.Next;
    end;
    CDS2.ApplyUpdates(-1);
  finally
    CDS1.Free;
    CDS2.Free;
  end;
end;
红色部分是为了获得Schema 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听
------
江上何人初见月,江月何年初照人
will
中階會員


發表:176
回覆:135
積分:62
註冊:2002-04-14

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-07-14 20:21:22 IP:211.72.xxx.xxx 未訂閱
謝謝 小弟想要的就是第一個思路的做法 但不知如何更改及使用    
引言: 提供两个思路: 1.了解Midas的XML文件格式,修改XML文件,把每笔资料改成Insert状态 2.用TClientDataSet新增
var
  CDS1,CDS2:TClientDataSet;
  i:integer;
begin
  CDS1:=TClientDataSet.Create(nil);
  CDS2:=TClientDataSet.Create(nil);
  try
    CDS1.LoadFromFile('cds.xml');
    CDS2.LoadFromFile('cds.xml');

    while not CDS2.Eof do CDS2.Delete;
    CDS2.MergeChangeLog;        while not CDS1.Eof do
    begin
      CDS2.Append;
      for i:=0 to CDS1.FieldCount-1 do
        CDS2.FieldByName(CDS1.Fields[i].FieldName).Value:=CDS1.Fields[i].Value;
      CDS2.Post;
      CDS1.Next;
    end;
    CDS2.ApplyUpdates(-1);
  finally
    CDS1.Free;
    CDS2.Free;
  end;
end;
红色部分是为了获得Schema 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听
mustapha.wang
資深會員


發表:89
回覆:409
積分:274
註冊:2002-03-13

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-07-15 13:04:26 IP:218.1.xxx.xxx 未訂閱
解析,修改XML文件比较复杂,容易出错,Midas版本不同,格式还可能不一样,自己可以研究一下, 你先试试方案2的效率     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听
------
江上何人初见月,江月何年初照人
系統時間:2024-06-27 0:29:15
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!