Koneksi database dengan ADODB.Connection melalui data modul

Pada pemrograman VB 6, kita banyak mengenal cara mengkoneksikan database. Dimana, untuk artikel kali ini saya akan mencoba mengkoneksikan database “MSAccess” dengan menggunakan ADODB.Connection yang kita buat pada data modul pada VB 6. Untuk pertama-tama, kita tambahkan ssebuah modul pada  project explorer. Selanjutnya, buat koneksi pada data modul tersebut seperti dibawah ini :

pertama-tama kita harus mensetting Project References dengan menggunakan library yang namanya : “Microsoft ActiveX Data Object 2.8 Library”. Setelah itu, kita mulai bekerja….

ketikkan / Copy-Paste Source code ini pada modul !

Option Explicit
‘deklarasi CnAc sebagai ADODB.Connection
Public CnAc As ADODB.Connection

‘Fungsi untuk megkoneksikan database
Public Function OpenDb()
Set CnAc = Nothing
Set CnAc = New ADODB.Connection
CnAc.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Persist Security Info = False; Data Source=” & _
App.Path & “\namadatabase.mdb; Mode=ReadWrite;Jet OLEDB:”
CnAc.CursorLocation = adUseClient
CnAc.Open
End Function

‘memanggil koneksi di sub main
Private Sub Main()
Call Koneksi ‘Merupakan nama dari fungsi yang sudah kita buat tadi
Form1.Show
End Sub

Setelah itu kita harus mensetting pada project properties bahwa StartUp Object = Sub Main

pada form, kita mulai untuk mengkoneksikan tabel dengan form yang source-code koneksi-nya ditaruh pada event form load, perhatikan contoh dibawah ini :

‘deklarasi Rs sebagai ADODB.Recordset

Dim Rs As ADODB.Recordset

Private Sub Form_Load()
Set Rs = Nothing
Set Rs = New ADODB.Recordset
Rs.Open “select * from Nama_Tabel“, CnAc, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs
End Sub

Kelebihan dari kita menggunakan koneksi dari sebuah modul pada VB 6, adalah dapat meringankan sebuah program apalagi yang hubungannya adalah Client-Server.

cara koneksi ke mysql dari vb menggunakan mysql odbc

1.  Install vbnya
2.  Download mysql odbc-nya, install
3.  create database di mysql, misalnya infoonline
4.  use infoonline ==> create table mahasiswa
5.  masuk ke control panel, switch ke classic view aja.
6.  masuk ke Administrative Tools –> Data Source (ODBC)
7.  Di tag user DSN, klik Add
8.  pilih mysql odbc driver, –> klik finish
9.  akan tampil panel odbc connector
10. isi datasource name, misal ikhsanganteng, description (kosongin juga boleh),server(defaultnya localhost),User nya root, password (default kosong), pilih databasenya
11. Klik Test… (success, connection was made) berarti telah sukses buat koneksi, klik ok
12. Sekarang, masuk ke vbnya, klik menu project — > references — > pilih Microsoft ActiveX  Data  Objects 2.0 Library dan Microsoft ActiveX Data Object RecordSet 2.8 Library
13. Di project Explorer, tambahkan module, add module
14. Isikan coding koneksi dan seleksi mahasiswa

Public con As New ADODB.Connection
Public rsmhs As New ADODB.Recordset

Public Sub konekdb()
Set con = New ADODB.Connection
‘ connection provider kalau ragu, ambil dari adodc,
‘build, isi bagian pada tag connection, isi datasource namenya,
‘pilih ikhsanganteng, ok, copy connection stringnya
con.Open “Provider=MSDASQL.1;Persist Security Info=False;Data Source=ikhsanganteng”
con.CursorLocation = adUseClient
End Sub

Public Sub seleksimhs()
Set rsmhs = New ADODB.Recordset
rsmhs.Open “select * from mahasiswa”, con, adOpenDynamic, adLockOptimistic
End Sub

——————-
Kalau udah, di form, tambahkan komponen datagrid, double klik formnya
‘tambahkan coding berikut pada form_Load

Private Sub Form_Load()
konekdb
seleksimhs
Set DataGrid1.DataSource = rsmhs
End Sub

——————–
Run (F5), selamat mencoba…