Coding Backup dan Restore Database Access pada Delphi

syntaxdelphi.blogspot.co.id – Pada kesempatan kali ini saya akan menjelaskan coding backup dan restore database pada delphi. Tetapi sebelum itu, saya akan menjelaskan terlebih dahulu apa itu backup dan import database pada delphi. Backup Database adalah proses mengcopy database yang ada dalam sistem aplikasi selanjutnya disimpan di folder tertentu dengan menggunakan komponen yang ada pada delphi yaitu save dialog.

Sementara itu, Restore Database adalah proses menampilkan isi database melalui sistem aplikasi yang sudah dirancang sedemikian rupa sehingga bisa digunakan untuk menampilkan isi database. Adapun komponen delphi yang digunakan untuk memilih database yang ingin di import adalah open dialog. Untuk lebih jelasnya silahkan simak tutorialnya berikut:

Coding Backup Database Pada delphi

#1. Langkah pertama buat form seperti berikut:

#2. Dan tambahkan komponen ADO seperti ADOConnection dan ADOQuery serta tambahkan pula komponen DataSource dan SaveDialog. Setelah menambahkan komponen yang saya sebutkan barusan sekarang kita akan mengatur propertiesnya. Silahkan simak pengaturanya dibawah ini:

Komponen	Properties	Nilai
ADOConnection1	Connection String	...>Build>MicroSoft Jet 4.0 OLE db Provider>Next>...>Pilih DB>OK
	LoginPrompt	False
	Active	True
ADOQuery1	Connection	ADOConnection1
	SQL	Select * From namatabel;
	Active	True
DataSource1	Dataset	ADOQuery1
DBGrid1	DataSource	DataSource1
SaveDialog1	DefaultExt	.mdb
	Filter	... > Filtername(Database access) filter(.mdb) *tanpa tanda kurung

#3. Setelah mengatur properties dari komponen yang saya sebutkan diatas langkah selanjutnya adalah pengcodingan. dobel klik di button backup dan masukan coding dibawah ini:

var dir:string;
begin
dir:='C:\Inspektorat\dbsuratmasuk.mdb';//sesuaikan dengan direktori database kalian
if Application.MessageBox('Yakin Untuk Membackup Semua Data ...?','KONFIRMASI',MB_YESNO + MB_ICONQUESTION)= IDYES then
Begin
 SaveDialog1.FileName:='Backup';
  if SaveDialog1.Execute then
    begin
      if FileExists(SaveDialog1.FileName) then
      begin
      if (Application.MessageBox('Maaf, nama yang anda masukan sudah ada. Silahkan ganti terlebih dahulu','Informasi',mb_yesno + mb_ICONINFORMATION)=idyes) then
      begin
      SaveDialog1.FileName:='Backup';
      if SaveDialog1.Execute then
      begin
      if FileExists(SaveDialog1.FileName) then
      begin
        Application.MessageBox('Nama file masih salah silahkan ulangi proses backup dari awal !!!','Informasi',mb_OK + mb_ICONINFORMATION);
        exit;
      end
      else
      CopyFile(PChar(dir),PChar(('Backup')),False);
      Application.MessageBox('Database Sudah Dibackup','Informasi',mb_OK + mb_ICONINFORMATION);
      end;
      end;
    end
    else
    begin
      CopyFile(PChar(dir),PChar((SaveDialog1.FileName)),False);
      Application.MessageBox('Database Sudah Dibackup','Informasi',mb_OK + mb_ICONINFORMATION);
    end;
    end;
end;
end;

Untuk button simpan, ulang dan hapus bisa dilihat diartikel sebelumnya.

Coding Restore pada Delphi

#1. Langkah pertama silahkan buat desain form seperti dibawah ini:

#2. Seperti coding backup yang saya jelaskan diatas, tambahkan komponen ADOConnection dan ADQuery serta Datasource dan open dialog. Akan tetapi unuk properties komponen ADO dan datasource jangan diatur propertiesnya karena kita akan atur nanti pas dibagian pengcodingan. Yang harus kalian atur adalah properties opendialog seperti dibawah ini:

Komponen	Properties	Nilai
OpenDialog1	DefaultExt	.mdb
	Filter	... > Filtername(Database access) filter(.mdb) *tanpa tanda kurung

#3. Lalu setelah itu, dobel klik di button 'pilih' dan masukan coding dibawah ini:

procedure TForm2.Button1Click(Sender: TObject);
begin
if opendialog1.execute then
begin
Edit1.Text:=Opendialog1.Filename;
end;
end;

#4. Kembali ke mode desain dan dobel klik button 'tampilkan' setelah itu masukan codingnya dibawah ini:

procedure TForm2.Button2Click(Sender: TObject);
begin
if (Edit1.Text<>'')then
else
begin
  MessageDlg('Pilih Data Terlebih Dahulu... !!!',mtWarning,[mbOK],0);
  Exit;
end;
ADOConnection1.Connected:=False;
ADOConnection1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source= '+Edit1.Text;
ADOConnection1.LoginPrompt:= False;
ADOConnection1.Connected:= True;
with ADOQuery1 do
begin
Connection:=ADOConnection1;
Active:=False;
SQL.Add('Select * From tmhs');
Active:=True;
end;
DataSource1.Dataset:=ADOQuery1;
DBGrid1.DataSource:=DataSource1;
MessageDlg('Data Berhasil Ditampilkan ...',mtinformation,[mbOK],0);
end;

#5. Selanjutnya untuk menghapus data yang sudah di tampilkan dobel klik pada button 'bersihkan' dan masukan codingnya dibawah ini:

procedure TForm2.Button3Click(Sender: TObject);
begin
Edit1.Clear;
ADOConnection1.Connected:=False;
ADOConnection1.ConnectionString:='';
ADOConnection1.LoginPrompt:= False;
ADOConnection1.Connected:= False;
with ADOQuery1 do
begin
Active:=False;
SQL.Clear;
end;
end;

#6. Jika sudah selesai coba jalankan program.

Sekian yang bisa saya jelaskan mengenai Coding Backup dan Restore Database pada Delphi semoga bermanfaat.

• 1comment

Achmad Fajar

"Musuh yang sebenarnya bukanlah orang lain, melainkan ego diri kita sendiri. Jadi, kalahkanlah ego diri kita sendiri, maka kesuksesan dapat diraih!".

Related Posts

Delphi