Koneksi VB6 Dengan Database Online

Koneksi VB6 Dengan Database Online

Pada pembelajaran ini saya akan menggunakan layanan gratis dari db4free.net. Perlu diketahui bahwa layanan tersebut hanya digunakan sebagai media testing untuk mengecek apakah program dapat tetap berjalan setelah update versi MySQL.

Langkah-langkahnya :

• Daftar dahulu sebelum membuat database di db4free.net
• Isi Form pendaftaran
  
• Cek inbox e-mail yang digunakan pada saat mendaftar, karena link aktivasi account akan dikirimkan via e-mail. Klik link aktivasi tersebut
  
• Kembali ke website db4free.net. Login dengan menggunakan user dan password yang telah dibuat 
  
• Jika login berhasil, maka akan masuk ke form phpmyadmin.. Kemudian pilih nama database yang telah didaftarkan sebelumnya yang terletak di sebelah kiri halaman, masukkan nama tabel yang ingin dibuat, tentukan jumlah fieldnya, lalu GO
  
• Tentukan field-field tabel tersebut, lalu Save
  
• Nama tabel : Anggota

Field Name	Type	Length/Value	Index
no_id	Char	10	Primary
nama	Varchar	50	---
Jenkel	Char	10	--
alamat	Varchar	200	---
no_tlp	Char	14	---

• Tutup database tersebut.... kembali ke VB6. Untuk uji koneksi, buat 1 buah ADODC dan 1 buah DataGrid ke Form
  
• Tambahkan sebuah module dan masukkan script koneksi sebagai berikut : ( Connection String sesuaikan dengan data account database yang telah dibuat )

          Public koneksi As New ADODB.Connection

          Public rs As New ADODB.Recordset

          Dim ConnStr As String

          '-----------------------------------------------------------------

          Public Sub connect()

          Set koneksi = New ADODB.Connection

         On Error GoTo gagal

         ConnStr = "DRIVER={MySQL ODBC 3.51 Driver};
              SERVER=www.db4free.net;

              DATABASE=vbmagzdb; UID=uservbmagz; PWD=ghoblogs;

              PORT=3306;OPTION=3"

         If koneksi.State = 1 Then koneksi.Close

         koneksi.ConnectionString = ConnStr

         koneksi.Open

         On Error GoTo 0

         Exit Sub

         gagal:

              MsgBox "Koneksi Ke Database Gagal...!"

         End Sub

• Berikut gambarannya
  
• Kembali ke Form, buat fungsi untuk menampilkan tabel dalam DataGrid, masukkan coding sebagai berikut :

         Sub tampilgrid()

         Set rs = New ADODB.Recordset

         rs.CursorLocation = adUseClient

         rs.Open "select * from anggota", koneksi, adOpenDynamic,
                        adLockOptimistic

         Set DataGrid1.DataSource = rs

         End Sub

• Terakhir, double klik pada Form, masukkan coding berikut tepat di antara Private Sub Form_Load() dan End Sub

          Call connect

          Call tampilgrid

• Test...jika berhasil maka DataGrid akan menampilkan kolom field database