Bagaimana membuat program untuk meng copy file (tabel .dbf atau .db) dari database program ke drive A:\? Dimana nama file yang diinginkan di entri saat runtime. Tentunya yang sederhana saja, krn saya masih sangat pemula. Tengkyu.

Jadi Delphi ga bisa ya... copy file (table) ke A:???

bisaaaaaaa :P cara untuk mengcopy file yg sdang runtime 1.aktifkan file yg akn di save di disket (maksudnya diklik 1 x) 2. khusus buat .mdb yg file .idb di aktifin juga 3. klik kanan so compres file or di zip file klo dh berbentuk file zip..? baru di simpan di A pasit bisa succes Yha :) gw bisa krn pas mo 1 jam sblm sidang TA gw bingung di situ , ko file nya ga bisa di burn... file yg *.idb.. keingetan di ZIP baur D file nya bisa di save en di run di kompie laen yg sblumnya di "extract here" Tp kira2 gw lulus ga Yha..? hmmm AMINNN Ajha D

Untuk Nurez moga lulus....... selamat udah TA. PeDe dikit kenapa.... Maksud gue menulis program untuk meng copy file dari database ke A: gitu..... Dan nama file baru nya itu di entri saat program berjalan gitu...

BT Juga Nech Kalu Lama Di On Listener...wakaakakakakaka Memang tidak cocok Buat Jadi Listener

procedure CopyPdoxTable(SrcTbl, DstTbl: String; Overwrite: Boolean);
var
  DB      : TDatabase;
  STbl,
  DTbl    : String;
begin
  if (ExtractFilePath(SrcTbl) = '') then
// Path tempat mengcopy File A,C,D,E
    STbl := ExtractFilePath(Application.EXEName) + SrcTbl
  else
    STbl := SrcTbl;
  if (ExtractFilePath(DstTbl) = '') then
    DTbl := ExtractFilePath(Application.EXEName) + DstTbl
  else
    DTbl := DstTbl; 
  if FileExists(STbl) then 
    begin
      DB := TDatabase.Create(nil);
      with DB do begin
        Connected := False;
        DatabaseName := ExtractFilePath(SrcTbl);
        DriverName := 'STANDARD';
        Connected := True;
      end;
      Check(DBICopyTable(DB.Handle, Overwrite, PChar(STbl), nil, PChar(DTbl)));
      DB.Free;
    end;
  else
    ShowMessage('Table XXXX Tidak Bisa Dicopy,Spesipikasi Lokasi Tidak ditemuakan.');
end;

Sumber : Delphi About B412cod3