ผู้เขียน หัวข้อ: สอบถามเรื่องการนำไฟล์ CDS เข้าในฐานข้อมูล  (อ่าน 7629 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ surachat1234

  • Newbie
  • *
  • กระทู้: 28
  • Respect: 0
    • ดูรายละเอียด
 ;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 ง่ายๆ แนบมาให้ด้วย ถ้าจะกรุณานะคับ
« แก้ไขครั้งสุดท้าย: มกราคม 30, 2012, 23:36:34 PM โดย surachat1234 »
โรงพยาบาลส่งเสริมสุขภาพตำบลหนองกรด ตำบลสระแก้ว จังหวัดกำแพงเพชร
web : http://nongkrod.thaiddns.com
Server : IBM X3100 Intel Xeon Quad-Core  2.66GHz/1333MHz  10Gb. Centos 5.7 64 bit, Percona-Server-server-51-5.1.56 
ขึ้นระบบเมื่อ 1 ธ.ค. 2553 โดยทีมงานไอทีจังหวัดกำแพงเพชรและโรงพยาบาลกำแพงเพชร

ออฟไลน์ surachat1234

  • Newbie
  • *
  • กระทู้: 28
  • Respect: 0
    • ดูรายละเอียด
Re: สอบถามเรื่องการนำไฟล์ CDS เข้าในฐานข้อมูล
« ตอบกลับ #1 เมื่อ: มกราคม 30, 2012, 23:35:04 PM »
0
กว่าจะหาเจอ
// 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;
โรงพยาบาลส่งเสริมสุขภาพตำบลหนองกรด ตำบลสระแก้ว จังหวัดกำแพงเพชร
web : http://nongkrod.thaiddns.com
Server : IBM X3100 Intel Xeon Quad-Core  2.66GHz/1333MHz  10Gb. Centos 5.7 64 bit, Percona-Server-server-51-5.1.56 
ขึ้นระบบเมื่อ 1 ธ.ค. 2553 โดยทีมงานไอทีจังหวัดกำแพงเพชรและโรงพยาบาลกำแพงเพชร