BMS-HOSxP Community

HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: surachat1234 ที่ มกราคม 30, 2012, 11:53:02 AM

หัวข้อ: สอบถามเรื่องการนำไฟล์ CDS เข้าในฐานข้อมูล
เริ่มหัวข้อโดย: surachat1234 ที่ มกราคม 30, 2012, 11:53:02 AM

 ;D
สอบถามเรื่องการนำไฟล์ CDS เข้าในฐานข้อมูล ใน Tool >systemsettin>cds merge utility
ผมลอง save mysql เป็น ไฟล์ CDS โดย
with ClientDataSet1 do
  begin
     Close;     
     CommandText := 'select * from person limit 100' ;
     Open;
     SaveToFile('c:\person.cds');
  end;
พอได้ไฟล์ CDS มาแล้ว เอามาดูใน DBGRID โดยไปกำหนด
with ClientDataSet2 do
  begin
    Close;
    FileName := 'c:\person.cds';
    Open;
  end;
แล้วถ้าผมจะเอาข้อมูลในไฟล์ CDS  เข้ามาเพิ่มในฐานข้อมูลทำอย่างไรคับ ช่วยบอกหน่อยได้มัยคับ 
ต้องอาศัย component อะไรเพิ่มหรือเป่าคับ
ขอบคุณล่วงหน้าสำหรับคำตอบ หรือ source code ง่ายๆ แนบมาให้ด้วย ถ้าจะกรุณานะคับ

หัวข้อ: Re: สอบถามเรื่องการนำไฟล์ CDS เข้าในฐานข้อมูล
เริ่มหัวข้อโดย: surachat1234 ที่ มกราคม 30, 2012, 23:35:04 PM

กว่าจะหาเจอ
// clientdataset2 เป็นไฟล์ CDS
// clientdataset4 ติดต่อข้อมูลในฐาน mysql

procedure TForm1.btn3Click(Sender: TObject);
var
   i : Integer;
begin
  while not ClientDataSet2.Eof do  //วนลูปที่ CDS
  begin
    try
    ClientDataSet4.Insert;
      for i := 0 to ClientDataSet4.FieldCount - 1 do   
        ClientDataSet4.Fields.Value := ClientDataSet2.Fields.Value ;     //copy จนกว่าจะหมด
    ClientDataSet4.Post;
    ClientDataSet4.ApplyUpdates(-1);
    ClientDataSet2.Next;
    finally
      Exception;
    end;
  end;
  ShowMessage('OK');
end;