Perintah Visual Basic untuk memanggil database dari Access

Berikut ini adalah sedikit tulisan yang dapat digunakan untuk memanggil database dari microsoft access dari bahasa pemrograman visual basic 6.0.
Perintah ini sangat sederhana tetapi sangat membantu bagi pembuatan program berbasis database. Nantinya penulis akan membuat tulisan bagaimana cara menghubungkan 2 komputer menggunakan data base microsoft access sehingga link antara satu komputer dengan komputer lain dapat terjalin. Untuk itu kita nantinya akan membahas perintah-perintah SQL secara fundamental dan Advanced nya yang akan disajikan secara sederhana.
Sebelum kesana berikut ini adalah langkat-langkah untuk memanggil database microsoft access yang dimaksudkan.


Memanggil Database
Database yang digunakan acces dengan objek Data, anda tidak perlu merubah setingan pada properties cukup ketikkan code dibawah!

Data1.RecordSource = “select *from (nama tabel) in’” _
& DatabaseName & “‘”
Data1.DatabaseName = App.Path + “\(nama file).mdb”
Data1.Refresh

Fungsi app.path untuk memanggil file acces yang berada satu folder dengan file VB jadi sebelum menjalankan program simpan terlebih dahulu file VB anda satu folder dengan file acces.
Setingan code di modifikasi tergantung dimana anda ingin menyimpan file acces, tidak harus satu folder.

Mensortir Data
Pensortiran data digunakan agar anda dapat mensortir tampilan data sesuai yang inginkan.

Data1.RecordSource = “select *from (nama tabel) in’” _
& DatabaseName & ” order by (nama field)”
Data1.DatabaseName = App.Path + “\(nama file).mdb”
Data1.Refresh

Dengan menambahkan syntax order by maka anda dapat mensortir data. Sytax di atas pun masih bisa anda modifikasi dengan sortir ascending atau descending juga dapat dimodifikasi menjadi sebuah masukkan (variabel) yang tidak anda definisikan sebelumnya. Dengan ini anda dapat melakukan pensortiran berbagai record ketika program dijalankan ^^

Menseleksi Data
Penseleksian juga berguna sebagai pencarian data, seperti yang sering saya lakukan.

Data2.RecordSource = “select *from (nama tabel) in’” _
& DatabaseName & “‘ where (nama field) like ‘” & (x) & “‘”
Data2.DatabaseName = App.Path + “\(nama file).mdb”
Data2.Refresh

where like ‘” & (x) & “‘ berfungsi sebagai mesin seleksi data. x tersebut merupakan kriteria penseleksian yang diinginkan. x dapat dimodifikasi menjadi sebuah masukkan yang akhirnya berfungsi sebagai pencarian. Syntax di atas merupakan penseleksian tipe eksak, artinya jika kriteria penseleksian adalah string aku maka akan hanya akan tampil record aku bukan yang mengandung kata aku. Dengan menambahkan ‘*” & (x) & “*’ maka fungsinya berubah dari eksak menjadi yang mengandung ^^

Pemanfaatan Operator and dan or Pada Seleksi Data
Operator and dan or berguna jika anda ingin melakukan penseleksian dengan kondisi dua atau lebih.

Data1.RecordSource = “select *from (nama tabel) in’” _
& DatabaseName & “‘ where (nama field) like ‘” & (x) & “‘ _
and (nama field2) like ‘” & (x2) & “‘”
Data1.DatabaseName = App.Path + “\(nama file).mdb”
Data1.Refresh

silahkan diganti and dengan or atau bisa juga ditambahkan.
Sekian dulu kali ya, sambung next time ^o^