Delphi for delphier

Langkah-langkah membuat searching dengan menggunakan klausa LIKE pada 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.
   
      DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOStoredProc1: TADOStoredProc;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    Button2: TButton;
   
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
pemulaaccess00001.png
   
Langkah 4
Silahkan anda setting koneksinya. Sebagai contoh silahkan lihat disini.
   
Langkah 5
Silahkan anda buka database MS Access.
   
Langkah 6
Buat query atau stored procedure didalam database engine tersebut dengan kode seperti berikut ini.
   
 

PARAMETERS inputan Text ( 255 );
SELECT Data.TanggalMasuk, Data.Nama, Data.Status
FROM Data
WHERE (((Data.[nama]) Like ‘%’+[inputan]+’%’));

   
  Untuk membuat query atau stored procedure didalam database MS Access, silahkan anda baca tutorial ini.
   
Langkah 7
Fokuskan perhatian anda pada object ADOStoredProc1.
   
Langkah 8
Tentukan property pada bagian Connection-nya dengan data ADOConnection1.
   
Langkah 9
Selanjutkan silahkan anda tentukan property ProcedureName-nya dengan nama SP LIKE.
   
Langkah 10
Tambahkan parameter kedalam object tersebut dengan data sebagai berikut.
   
 
Parameter Inputan
     
 
DataType   ftString
Direction   pdInput
Name   Inputan
Size   50
 
     
   
Langkah 11
Selanjutnya, silahkan anda fokuskan perhatian anda kepada object DataSource1.
   
Langkah 12
Tentukan property untuk dataset-nya dengan nilai ADOStoredProc1.
   
Langkah 13
Setelah itu anda lanjutkan dengan memfokuskan perhatian anda ke object DBGrid1.
   
Langkah 14
Tentukan property untuk DataSource-nya dengan data DataSource1.
   
Langkah 15
Sekarang anda klik 2 pada tombol Tampilkan dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 

procedure TForm1.Button1Click(Sender: TObject);
begin

with ADOStoredProc1 do
  begin

  Parameters[0].Value := Edit1.Text;
  Close;
  Open;

  end;

end;

   
Langkah 16
Setelah itu, silahkan anda compile program aplikasi anda dengan menekan tombol Ctrl + F9.
   
Langkah 17
Lanjutkan dengan menekan tombol F9 hingga program aplikasi siap untuk dijalankan.
   
 

pemulaaccess00005.png

   
Langkah 18
Tekan tombol Tampilkan.
   
Langkah 19
Apabila program berhasil, maka akan ditampilkan seperti ini.
   
 

pemulaaccess00006.png

   
Langkah 20
Sekarang pada inputan cari anda kasih karakter huruf a. Lanjutkan dengan menekan tombol Tampilkan.
   

Langkah 21

Apabila berhasil, maka akan didapatkan tampilan seperti dibawah ini.
   
 

pemulaaccess00007.png

   
Langkah 22
Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar

Semoga artikel ini bisa bermanfaat. Silahkan anda berikan informasi ini kepada teman – teman anda yang belum tahu.

Mari kita wujudkan kemajuan IT Indonesia bersama dengan teman – teman yang lain dengan Delphi sebagai media pemupuk kebersamaan.
   

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 Blog pada WordPress.com.

Ikuti

Get every new post delivered to your Inbox.

Bergabunglah dengan 37 pengikut lainnya.

%d bloggers like this: