Delphi for delphier

Langkah-langkah membuat koneksi database MS Access

Kembali

   
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
   
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.
   
  Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
ADOConnection1: TADOConnection;
   
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
pemulaaccess00033.png
   
Langkah 4
Sekarang silahkan anda klik 2x object ADOConnection1. Tunggu beberapa saat hingga muncul tampilan kotak dialog seperti terlihat pada gambar dibawah ini.
   
 
pemulaaccess00034.png
   
Langkah 5
Lanjutkan dengan menekan tombol Build. Tunggu beberapa saat hingga didapatkan tampilan kotak dialog seperti terlihat pada gambar dibawah ini.
   
 
pemulaaccess00035.png
   
Langkah 6
Pilih Microsoft Jet 4.0 OLE DBProvider.
   
 
pemulaaccess00036.png
   
Langkah 7
Selanjutnya silahkan anda tekan tombol Next. Tunggu beberapa saat hingga didapatkan tampilan program seperti terlihat pada gambar dibawah ini.
   
 
pemulaaccess00037.png
   
Langkah 8
Setelah itu, silahkan anda tentukan nama databasenya. Untuk menentukan nama database, silahkan anda tekan tombol disebelah kanan kotak inputan nama database hingga didapatkan tampilan kotak dialog seperti gambar dibawah ini.
   
 
pemulaaccess00038.png
   
Langkah 9
Pilih file database microsoft access. Sebagai contoh silahkan anda lihat tampilan dari gambar dibawah diatas.
   
Langkah 10
Selanjutnya silahkan anda tekan tombol Open. Tunggu beberapa saat hingga didapatkan tampilan seperti gambar dibawah ini.
   
 
pemulaaccess00039.png
   
Langkah 11
Apabila file database MS Access diletakkan pada folder yang sama dengan folder program aplikasi, maka anda bisa langsung menentukan nama databasenya seperti dicontohkan pada tampilan gambar dibawah ini.
   
 
pemulaaccess00040.png
   
Langkah 12
Untuk menguji koneksi apakah sudah benar atau tidak. Silahkan anda tekan tombol Test Connection. Dan apabila berhasil, maka akan ditampilkan informasi seperti terlihat pada tampilan gambar dibawah ini.
   
 
pemulaaccess00041.png
   
Langkah 13
Lanjutkan dengan menekan tombol OK.
   
Langkah 14
Tekan tombol OK lagi.
   
Langkah 15
Silahkan anda tekan tombol OK sekali lagi hingga didapatkan tampilan form dari program yang anda buat.
   
Langkah 16
Sekarang silahkan anda lanjutkan dengan menentukan property LoginPrompt dari ADOConnection1 dengan nilai False.
   
Langkah 17 Kemudian silahkan anda tambahkan library ComObj pada bagian uses. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.
   
 
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, ComObj;
   
Langkah 18
Setelah itu, silahkan anda tentukan kode program didalam event OnClick pada tombol Sambungkan. Isikan kode program didalamnya seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOConnection1 do
  begin
  Connected := False;
  ConnectionString := ‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=‘ + Trim(Edit1.Text) + ‘;Persist Security Info=False;‘;
  Connected := True;
  end;
end;
   
Langkah 19
Kemudian untuk melakukan proses validasi untuk mengetahu keberhasilan koneksi dan menghandle error akibat system maka kode program diatas bisa diganti menjadi seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOConnection1 do
  begin
  try
  Connected := False;
  ConnectionString := ‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=‘ + Trim(Edit1.Text) + ‘;Persist Security Info=False;‘;
  Connected := True;
  ShowMessage(‘Koneksi berhasil‘);
  except
  on EOleException do
    begin
    ShowMessage(‘Koneksi gagal ‘);
    end;
  end;
  end;
end;
   
Langkah 20
Silahkan anda compile program aplikasi tersebut dengan menekan tombol Ctrl + F9.
   
Langkah 21
Lanjutkan dengan menekan tombol F9 hingga program siap untuk dijalankan.
   

pemulaaccess00042.png

   
Langkah 23
Tentukan nama databasenya dengan nama Test.mdb.
   
 

pemulaaccess00043.png

   
Langkah 24
Tekan tombol Sambungkan.
   
Langkah 25
Apabila program berhasil, maka program akan terkoneksi dengan database.
   
 

pemulaaccess00044.png

   
Langkah 26
Namun apabila gagal, maka akan ditampilkan pesan error seperti terlihat pada tampilan gambar dibawah ini.
   
 
pemulaaccess00045.png
   
Langkah 27
Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.
   
Download Klik disini untuk mendapatkan contoh kode programnya
  Klik disini untuk mendapatkan video tutorialnya
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM
   
 

Kembali

The Rubric Theme. Buat situs web atau blog gratis di WordPress.com.

Ikuti

Get every new post delivered to your Inbox.

Bergabunglah dengan 37 pengikut lainnya.

%d bloggers like this: