Cara Mengkoneksikan Visual Basic 6.0 Dengan Database Online

Cara Mengkoneksikan Visual Basic 6.0 Dengan Database Online | Posting kali ini kita akan membahas bagaimana cara mengkoneksikan Visual Basic 6.0 dengan database online.

Disini saya menggunakan layanan database gratis dari www.db4free.net. Untuk diketahui, tidak semua layanan hosting membuka port MySql nya sehingga tidak semua layanan database online bisa dikoneksikan dengan Visual Basic 6.0.

Sebagai latihan, silakan sobat ikuti langkah-langkahnya berikut ini :

• Kita harus mendaftar terlebih dahulu sebelum membuat database di www.db4free.net. Silakan sobat klik link berikut untuk mendaftar : <Daftar db4free.net>
• Kemudian isi formnya sesuai dengan yang sobat inginkan seperti gambar berikut :

• Setelah itu, cek inbox email yang sobat gunakan saat mendaftar, karena link aktivasi akun akan dikirimkan via email. Klik link tersebut untuk mengaktifkan akun MySQL sobat.

• Kemudian kembali ke page : www.db4free.net dan login menggunakan username dan password yang didaftarkan sebelumnya.

• Jika login berhasil, kita akan masuk ke halaman phpmyadmin. Kemudian pilih nama database yang kita yang telah kita daftarkan sebelumnya, yang berada disebelah kiri page, lalu masukkan nama tabel yang ingin dibuat dan tentukan jumlah fieldnya kemudian klik tombol GO.

• Lalu kita tentukan field-field untuk tabel tersebut, setelah itu klik tombol Save.

Keterangan : 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	---

• Jika sudah, tutup database tersebut dan beralih ke Visual basic 6.0. 
• Untuk uji coba koneksinya, masukkan 1 buah ADODC dan 1 buah DataGrid ke Form.

• Lalu tambahkan satu buah Module dan masukkan script koneksi seperti berikut ini : (silakan disesuaikan saja Connection String nya dengan data-data akun database sobat)

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 ini gambaran dari connection string yang harus disesuaikan dengan akun database sobat :

• Sekarang kembali ke form, kita buat dulu fungsi untuk menampilkan tabel ke Datagrid, masukkan coding berikut ini di bagian coding form tersebut :

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 dan masukkan coding berikut tepat diantara Private Sub Form_Load() dengan End Sub :

Call connect Call tampilgrid

• Sekarang coba jalankan programnya, jika datagrid memunculkan kolom field database berarti program sudak terkoneksi dengan database.