MS Access – Tools membuat Stored Procedure

Tingkatan	Pemula
Kategori	Database
Sub Kategori	MS Access
Judul	Tools membuat Stored Procedure di database MS Access
Oleh	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	by Eko Indriyawan
Tujuan	Mengajarkan kepada para Delphier tentang bagaimana cara membuat query atau stored procedure didalam database MS Access.
Overview	Agar para delphier yang suka menggunakan database MS Access bisa membuat query atau stored procedure yang tersimpan didalam database, maka saya buatkan tools sederhana yang bisa dijadikan alternatif cara cepat membuat query atau stored procedure tanpa harus banyak perintah. Hanya saja, dalam tools ini proses pembuatan query masih dilakukan secara manual. Meskipun masih sederhana, diharapkan nantinya bisa dikembangkan kearah yang lebih baik dengan tambahan beberapa fitur baru. Apabila rekan-rekan delphier ada yang ingin menyumbangkan saran dalam hal penambahan fitur, maka dengan senang hati saya akan menerimanya. Semoga dengan adanya tools ini bisa memberikan gambaran kepada para delphier bahwanya dengan database MS Access pun kita bisa mengoptimalkan dengan baik.
Tambahan	Tutorial ini sudah disertakan file contoh database dengan nama Test.mdb. Didalam database tersebut sudah dibuatkan satu tabel dengan nama Data yang berisi field Nama dan Jenis Kelamin. Agar memudahkan dalam proses pengujian, didalam tabel tersebut sudah disediakan pula beberapa data nama beserta jenis kelaminnya.
Petunjuk :	Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
Langkah 1	Silahkan anda buat program aplikasi baru.
Langkah 2	Tambahkan beberapa object kedalam form1.
	Button1: TButton; ADOConnection1: TADOConnection; Label1: TLabel; Bevel1: TBevel; Button2: TButton; ADOQuery1: TADOQuery; Memo1: TMemo; Edit1: TEdit; Label2: TLabel; Button3: TButton; OpenDialog1: TOpenDialog;
Langkah 3	Atur desain formnya hingga didapatkan tampilan seperti berikut ini.
Langkah 4	Silahkan anda klik 2x tombol Ambil DB. Lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
	… … procedure TForm1.Button1Click(Sender: TObject); begin with OpenDialog1 do begin if Execute then begin Edit1.Text := FileName; with ADOConnection1 do begin Connected := False; ConnectionString := ‘Provider=Microsoft.Jet.OLEDB.4.0;‘ + ‘User ID=Admin;‘+ ‘Data Source=‘+Edit1.Text+’;‘+ ‘Mode=Share Deny None;‘+ ‘Persist Security Info=False;‘+ ‘Jet OLEDB:System database=”";‘+ ‘Jet OLEDB:Registry Path=”";‘+ ‘Jet OLEDB:Database Password=”";‘+ ‘Jet OLEDB:Engine Type=5;‘+ ‘Jet OLEDB:Database Locking Mode=1;‘+ ‘Jet OLEDB:Global Partial Bulk Ops=2;‘+ ‘Jet OLEDB:Global Bulk Transactions=1;‘+ ‘Jet OLEDB:New Database Password=”";‘+ ‘Jet OLEDB:Create System Database=False;‘+ ‘Jet OLEDB:Encrypt Database=False;‘+ ‘Jet OLEDB:Don”t Copy Locale on Compact=False;‘+ ‘Jet OLEDB:Compact Without Replica Repair=False;‘+ ‘Jet OLEDB:SFP=False;‘; Connected := True; end; end; end; end; … …
Langkah 5	Sekarang fokuskan perhatian anda ke object ADOConnection1.
Langkah 6	Pada bagian property LoginPrompt anda berikan nilai False.
Langkah 7	Setelah itu fokuskan perhatian anda ke object OpenDialog1.
Langkah 8	Pada bagian property Filter anda berikan data MS Access (*.mdb)|*.mdb
Langkah 9	Lanjutkan dengan meng-klik 2x tombol Eksekusi dan isikan kode program didalam event OnClick. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.
	… … procedure TForm1.Button2Click(Sender: TObject); begin with ADOQuery1 do begin SQL.Text := Memo1.Text; ExecSQL; end; end; … …
Langkah 10	Sekarang anda fokuskan perhatian anda ke object ADOQuery1.
Langkah 11	Pada bagian property Connection anda isikan dengan data ADOConnection1.
Langkah 12	Kemudian anda compile program aplikasi tersebut dengan menekan tombol Ctrl + F9.
Langkah 13	Lanjutkan dengan menekan tombol F9 hingga program siap untuk dijalankan.
Langkah 14	Jika program sudah siap untuk dijalankan, lanjutkan dengan menekan tombol Ambil DB.
Langkah 15	Pilih file database MS Access yang telah anda download. Sebagai contoh silahkan lihat tampilan dibawah ini.
Langkah 16	Tekan tombol Open hingga didapatkan tampilan aplikasi seperti berikut.
Langkah 17	Sebagai contoh silahkan anda tuliskan query seperti terlihat pada gambar dibawah ini.
Langkah 18	Lanjutkan dengan menekan tombol Eksekusi
Langkah 19	Setelah itu anda tutup program aplikasi anda.
Langkah 20	Jalankan aplikasi database MS Access anda.
Langkah 21	Apabila berhasil, maka query atau stored procedure tersebut akan terbentuk seperti terlihat pada potongan gambar dibawah ini.
Download	Tools membuat Query atau Stored Procedure 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