Thursday, 21 May 2015T5/21/2015 08:44:00 am

CARA BACK UP DATABASE MS. ACCESS DI DELPHI 7 / 2010

Salam blogger.... Aplikasi Delphi merupakan salah satu aplikasi yang di gemari programer untuk membuat sebuah program, telah banyak program yang dihasilkan melalui aplikasi ini, kelebihan dari aplikasi ini adalah dapat di hubungkan dengan berbagai macam database baik itu sql, access, dan lain sebagai nya. kali ini saya akan memposting cara back up database access 2003 / 2007 dengan menggunakan delphi 2010. 

fungsi dari back up database acces ini sangat perlu apabila kita merancang sebuah program yang penyimpanan datanya menggunakan database access, back up data ini digunakan apabila sewaktu - waktu kita kehilangan database nya / secara tidak sengaja database nya kehapus. sehingga data hasil back up td dapat sewaktu - waktu kita restore. 

langkah pertama yang harus kita lakukan adalah membuat folder untuk back up data tersebut, folder ini dibuat terpisah dari folder database yang sebelum nya. lalu selanjutnya kita akan membuat form untuk perintah back up database tersebut di delphi. di sini saya menggunakan delphi 2010. komponen yang digunakan  yaitu :
  1. groupbox
  2. label 3 buah
  3. edit text 2 buah
  4. button bitbtn 2 buah
  5. opendialog1
 Masukan komponen - komponen delphi diatas kedalam form yang akan kita buat. (lihat gambar sebagai contoh).

selanjunya kita akan menambahkan sedikit coding pogram di komponen button nya agar proses back up nya dapat dilakukan sesuai dengan perintah coding tersebut.
coding program nya adalah sebagai berikut :


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    Dir : String;
    begin
    if OpenDialog1.Execute then
    begin
    edit1.Text:= OpenDialog1.FileName;
    Dir := 'C:\LATIHAN1\BACK UP';
    Edit2.Text:=dir+'\'+ExtractFileName(Edit1.Text);
end;
  end;


procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if not(edit1.Text <>'') or not(edit2.Text <>'')  then
begin
Application.MessageBox('File directory masih Kosong !!! Silahkan browse file dulu','Peringatan',
mb_Ok + Mb_IconExclamation);
exit;
end;
if ( Edit1.Text <> '' ) and ( Edit2.Text <> '' ) then
if CopyFile(PChar(Edit1.Text), PChar(Edit2.Text), False) then
Label3.Caption:='STATUS  : OK [File sudah di Back up]';
Application.MessageBox('Database sudah di Back up','Info', mb_Ok + Mb_ICONINFORMATION);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
edit1.Text:='';
edit2.Text:='';
label3.Caption:='STATUS  :';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Enabled:=false;
edit2.Enabled:=false;
end;

end.


Jika sudah selesai dimasukan coding nya ... jangan lupa simpan program nya. lalu run program nya dengan cara tekan F9 / run. program back up database access sederhana ini dapat anda kembangkan sendiri sesuai keinginan anda, yang saya contohkan disini hanya program dasar nya saja, anda bisa saja menambahkan program restore nya. cara dan coding programnya pun hampir sama seperti coding diatas.

jika anda merasa kesulitan untuk membuat nya, anda dapat langsung download program nya di sini.
semoga bermanfaat dan selamat mencoba.

Download Program back up : KLIK DISINI


Previous
Next Post »
0 Komentar untuk "CARA BACK UP DATABASE MS. ACCESS DI DELPHI 7 / 2010"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status