Arsip: Bgmn Meng copy file (tabel) ke A:

 
user image
more 15 years ago

Edwin2006

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.
user image
more 15 years ago

Edwin2006

Jadi Delphi ga bisa ya... copy file (table) ke A:???
user image
more 15 years ago

nurez

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
user image
more 15 years ago

Edwin2006

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...
user image
more 15 years ago

saysansay

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
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com