Delphi for delphier

MS Access – Compact and Repair

Tingkatan Menengah
   
Kategori Database
   
Sub Kategori MS Access
   
Judul Compact and Repair
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi
http://www.delphi3000.com/articles/article_1278.asp?SK= ( login terlebih dahulu, kalau belum punya account, silahkan register )
   
Tujuan
Mengajarkan kepada para Delphier tentang bagaimana cara melakukan proses compact dan repair terhadap database MS Access.
   
Overview
Pembahasan artikel ini sangatlah bermanfaat buat Delphier yang berkecimpung dengan database MS Access.
Diharapkan dengan adanya artikel ini bisa mengatasi permasalahan anda selama ini tentang bagaimana melakukan proses shrink terhadapa file database MS Access.
Karena ini dibuat dengan menggunakan Delphi 2007 dan sistem operasi Windows Vista Ultimateserta Office 2007, maka jika anda menggunakan versi yang lain anda tidak perlu khawatir. Karena secara umum isi dari tampilannya masih sama.
Selamat mencoba artikel ini dan semoga berhasil. Amin…
   
Tambahan
Didalam artikel ini anda harus melakukan proses import type library terlebih dahulu. Karena ini dibuat dengan menggunakan Delphi 2007, maka akan mengalami beberapa perbedaan jika anda menggunakan versi dibawahnya.
Diharapkan dengan menggunakan tampilan gambar, nantinya akan memudahkan mengarahkan anda dalam menuntun pembuatan program aplikasi ini hingga berhasil.
Silahkan anda ikuti petunjuk ini dengan pelan – pelan agar tidak kelewatan dan bisa berjalan dengan baik seperti yang diharapkan.
   
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
   
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form.
   
  Button1: TButton;
Button2: TButton;
Bevel1: TBevel;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
   
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
menengahdatabaseaccess001.jpg
   
Langkah 4
Sekarang kita akan melakukan proses import type library dengan menggunakan Delphi 2007.
   
 
Silahkan anda buka menu Component
   
 
Lanjutkan dengan memilih Sub menu Import Component
   
 
Tunggu beberapa saat hingga didapatkan tampilan gambar seperti berikut ini.
   
 
menengahdatabaseaccess002.jpg
   
 
Lanjutkan dengan menekan tombol Next.Tunggu beberapa saat hingga didapatkan tampilan untuk memilih library yang akan diimport.
   
 
Setelah itu pilih description – nya dengan Microsoft Jet and Replication Objects 2.6 Library.
   
 
menengahdatabaseaccess003.jpg
   
 
Kemudian lanjutkan dengan menekan tombol Nexthingga didapatkan tampilan gambar seperti terlihat dibawah ini.
   
 
menengahdatabaseaccess004.jpg
   
 
Tekan tombol […] untuk memilih Unit Dir Name.
   
 
menengahdatabaseaccess005.jpg
   
 
Pilih folder dimana program aplikasi anda dibuat. Sebagai contoh lihat tampilan dari gambar diatas.
   
  Tekan tombol OK jika sudah selesai menentukan foldernya.
   
  Sekarang silahkan anda lanjutkan dengan menekan tombol Next dan tunggu beberapa saat hingga didapatkan tampilan seperti dibawah ini.
   
 
menengahdatabaseaccess006.jpg
   
  Kemudian tekan tombol Finish untuk mengakhiri proses import Type Library.
   
Langkah 5
Sekarang kita akan melakukan proses import type library pada Delphi 7.
   
 
Project.
   
 
Pilih sub menu Import Type Library.
   
 
Tunggu beberapa saat hingga muncul tampilan seperti berikut ini.
   
 
menengahdatabaseaccess007.jpg
   
 
Selanjutnya silahkan anda memilih library Microsoft Jet and Replication Objects 2.6 Library ( Version 2.6 )
   
 
menengahdatabaseaccess008.jpg
   
 
Lanjutkan dengan menekan tombol Installdan tunggu beberapa saat hingga muncul tampilan seperti berikut ini.
   
 
menengahdatabaseaccess009.jpg
   
 
Tekan tombol OKhingga didapatkan tampilan gambar kotak dialog konfirmasi seperti berikut dibawah ini.
   
 
menengahdatabaseaccess010.jpg
   
 
Pilih tombol Yes. Tunggu beberapa saat hingga ditampilkan kotak dialog informasi seperti terlihat pada gambar dibawah ini.
   
 
menengahdatabaseaccess011.jpg
   
  Proses import type library pada delphi 7 sudah berhasil dikukan.
   
Langkah 6
Tambahkan library JRO_TLB kedalam uses. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.
   
 
unitUContoh;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, JRO_TLB;
   
Langkah 7
Selanjutnya dengan membuat fungsi CompactAndRepair. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.
   
 
Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean;
const
sProvider = ‘Provider=Microsoft.Jet.OLEDB.4.0;‘;
var
oJetEng : JetEngine;
begin
sOldMDB := sProvider + ‘Data Source=’ + sOldMDB;
sNewMDB := sProvider + ‘Data Source=’ + sNewMDB;
try
oJetEng := CoJetEngine.Create;
oJetEng := Nil;
Result := True;
except
oJetEng := Nil;
Result := False;
end;
end;
   
Langkah 8
Ubah caption pada Button1 menjadi Proses dan Button2 menjadi Keluar.
   
Langkah 9
Klik 2x pada tombol Proses dan isikan kode program didalam event OnClick. Untuk lebih detailnya silahkan anda lihat potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
// validasi apakah database baru yang akan dibuat
// sudah ada atau belum
ifFileExists(Edit2.Text) then
begin
ShowMessage(‘File database temporary sudah ada’);
exit;
end;
// proses compact dan repair
if CompactAndRepair(edit1.Text, edit2.Text) then
ShowMessage(‘Sukses…’)
else
ShowMessage(‘Error…’);
// Hapus file database lama
DeleteFile(Edit1.Text);
// Rename database temporary ke database lama
RenameFile(Edit2.Text,Edit1.Text);
end;
   
Langkah 10
Tekan tombol Ctrl + F9 untuk mengecek apakah ada error atau tidak.
   
Langkah 11
Lanjutkan dengan menekan tombol F9.
   
Langkah 12
Setelah itu, tunggu beberapa saat hingga program siap untuk dijalankan.
   
Langkah 13
Tentukan nama database yang akan dicompact dan direpair. Sebagai contoh Lama.mdb.
   
Langkah 14
Tentukan nama database temporary yang akan digunakan untuk menyimpan database sementara hasil compact.
   
Langkah 15
Tekan tombol Proses.
   
Langkah 16
Apabila berhasil akan ditampilkan pesan seperti berikut.
   
 
menengahdatabaseaccess012.jpg
   
Langkah 17
Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.
   
Review dan pemantapan
   
Download
Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.
Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.
Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.
Atas perhatiannya, saya mengucapkan banyak terimakasih.
   
Link terkait  
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM

7 Komentar

  1. Good Job!😀

    Komentar oleh starboard™ — Februari 1, 2008 @ 9:48 am

  2. Walah, gitu tho……………….. ok deh.

    Komentar oleh Meinardi — Februari 2, 2008 @ 9:24 am

  3. artikel bagus bro step by step sehingga mudah dipahami dan dipraktekkan meski masih pemula semangat terus buat artikel spt ini bro

    Komentar oleh sky — Februari 5, 2008 @ 11:52 am

  4. Mas eko klo untuk keamana database MS access gmn ya?

    Komentar oleh Dani Amarullah — Februari 19, 2008 @ 4:55 pm

  5. Dari segi keamanan sebenarnya sudah bagus juga, karena MS Access juga bisa diproteksi dengan password.

    OOT:

    kalau mau buat program aplikasi yang agak secure
    lebih baik gunakan MS SQL Server aja mas

    kalau takut dengan license

    lebih baik gunakan yang versi free-nya yaitu MSDE dan MS SQL Server Express

    Komentar oleh ekoindri — Februari 20, 2008 @ 2:14 am

  6. wah artikel bagus bgt mas,klo boleh kirimin artikel2 tentang delphi 7,aq pengen tau bgt tentang delphi 7.thanks

    Komentar oleh Johan — Maret 1, 2008 @ 8:00 am

  7. @Johan

    sebenarnya artikel itu semua bisa jalan di delphi 7 juga koq
    caranya agar bisa jalan, silahkan mas abaikan error yang ada
    hapus baris kode program jika membuat error
    setelah itu, silahkan anda compile ulang
    insyaallah bisa jalan dengan baik :d

    Komentar oleh ekoindri — Maret 1, 2008 @ 8:26 am


RSS feed for comments on this post.

Blog di WordPress.com.

%d blogger menyukai ini: