Contoh Koneksi Database dari ASP ke MS Access

Dari beberapa e-mail yang masuk ke redaksi sangat banyak sekali yang meminta contoh code untuk melakukan koneksi dari ASP ke MS Access. Untuk itu pada tulisan kali ini akan dibahas mengenai koneksi database dari ASP ke MS Access disertai contoh untuk menyimpan, meng-update dan menghapus data. Sebelumnya diperlukan beberapa persiapan untuk bisa melakukan pekerjaan ini, silakan disimak langkah-langkah persiapannya berikut ini.
Persiapan
Anda perlu sebuah web server untuk misi kita kali ini. Anda bisa menggunakan Personal Web Server atau MS IIS (Internet Information Service). Siapkan juga text editor favorit Anda, bisa notepad, UltraEdit atau yang lainnya (ini kita gunakan untuk edit script ASP nya). Siapkan sebuah database MS Access, beri nama db_karyawan.mdb dan di dalamnya terdapat sebuah tabel yang bernama tblKaryawan dengan struktur sebagai berikut:
--------------------------------
Field Name   Data Type      Size
--------------------------------
id           AutoNumber
nama         Text             50
tgl_lahir    Date/Time
jum_anak     Number
--------------------------------
File database ini akan kita gunakan sebagai tempat untuk bereksperimen mengenai koneksi database dari ASP ke MS Access ini. Jadikan field 'id' sebagai primary key. Penulis asumsikan bahwa Anda sudah menset folder untuk web root pada folder c:\testweb dan beri hak akses bisa 'write' karena file database akan kita letakan disana juga. Copy-kan file database db_karyawan.mdb tadi ke folder c:\testweb tadi.
Scripting Koneksi
Script untuk koneksinya sebenarnya sangat sederhana sekali. Berikut ini akan disajikan mengenai source code untuk koneksi database ASP ke MS Access.
<%
'mendeklarasikan variabel
dim conn, connstr

'menentukan connection string
'untuk koneksi db ke ms access
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr = connstr & Server.MapPath("/db_karyawan.mdb")

'buat sebuah object instance dari connection
'yang bernama conn
set conn = server.createobject("ADODB.Connection")

'lakukan koneksi ke ms access
conn.open connstr

'tampilkan pesan
response.write "conn ok"

'destroy object connection
conn.close
set conn = nothing
%>
Simpan dengan nama testconn.asp dan coba jalankan script tersebut pada browser. Jika muncul tulisan -- conn ok -- maka script sudah berjalan dengan benar dan koneksi ke database MS Access sudah jalan. Fungsi untuk melakukan koneksi ke database sebenarnya di handle oleh fungsi Open pada object Connection dengan sebuah parameter yaitu connection string-nya (pada code diatas connection string disimpan pada variabel connstr).
Scripting Akses Data
Sekarang kita akan mencoba untuk bereksperimen mengenai cara:
- menyimpan data ke database
- meng-update data di database
- menghapus data dari database
Menyimpan Data ke Database
Untuk menyimpan data baru ke database bisa menggunakan perintah SQL INSERT, adapun contohnya adalah sebagai berikut:
<%
'mendeklarasikan variabel
dim conn, connstr

'menentukan connection string
'untuk koneksi db ke ms access
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr = connstr & Server.MapPath("/db_karyawan.mdb")

'buat sebuah object instance dari connection
'yang bernama conn
set conn = server.createobject("ADODB.Connection")

'lakukan koneksi ke ms access
conn.open connstr

'lakukan penyimpanan data baru
dim insertstr
insertstr = "insert into tblKaryawan (nama,tgl_lahir,jum_anak) "
insertstr = insertstr & "values ('agus hendra','1945/02/12',5)"
conn.execute insertstr

'tampilkan pesan
response.write "simpan ok"

'destroy object connection
conn.close
set conn = nothing
%>
Simpan dengan nama test_save.asp. Contoh di atas akan menambahkan suatu data baru (row baru) ke dalam tabel tblKaryawan. Adapun perintah SQL INSERT nya ditulis pada parameter Execute dari object Connection. Disini tidak akan dijelaskan mengenai perintah SQL INSERT nya, hanya sekedar contohnya saja.
Meng-update Data di Database
Untuk meng-update suatu data yang sudah terdapat pada database bisa menggunakan perintah SQL UPDATE. Adapun contohnya adalah seperti berikut:
<%
'mendeklarasikan variabel
dim conn, connstr

'menentukan connection string
'untuk koneksi db ke ms access
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr = connstr & Server.MapPath("/db_karyawan.mdb")

'buat sebuah object instance dari connection
'yang bernama conn
set conn = server.createobject("ADODB.Connection")

'lakukan koneksi ke ms access
conn.open connstr

'lakukan update data
dim updatestr
updatestr = "update tblKaryawan set nama = 'Agus Udin' "
updatestr = updatestr & "where nama = 'Agus Hendra'"
conn.execute updatestr

'tampilkan pesan
response.write "update ok"

'destroy object connection
conn.close
set conn = nothing
%>
Simpan dengan nama test_update.asp. Contoh di atas akan mengganti nama Agus Hendra menjadi Agus Udin.
Menghapus Data dari Database
Untuk menghapus suatu data dari dalam database bisa menggunakan perintah SQL DELETE, adapun contohnya adalah sebagai berikut:
<%
'mendeklarasikan variabel
dim conn, connstr

'menentukan connection string
'untuk koneksi db ke ms access
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr = connstr & Server.MapPath("/db_karyawan.mdb")

'buat sebuah object instance dari connection
'yang bernama conn
set conn = server.createobject("ADODB.Connection")

'lakukan koneksi ke ms access
conn.open connstr

'lakukan hapus data
dim deletestr
deletestr = "delete from tblKaryawan where nama = 'Agus Udin'"
conn.execute deletestr

'tampilkan pesan
response.write "delete ok"

'destroy object connection
conn.close
set conn = nothing
%>
Simpan dengan nama test_delete.asp. Contoh di atas akan menghapus data karyawan yang bernama 'Agus Udin', jika tidak ada nama tersebut dalam database maka tidak akan ada data yang dihapus.
Kesimpulannya bahwa semua operasi database bisa di passing melalui parameter Execute pada object Connection.
Source code lengkap dari script di atas bisa Anda download di aspconn1.zip.
Demikian contoh singkat mengenai koneksi database dari ASP ke MS Access, semoga bermanfaat bagi Anda semua.
Terimakasih.