Cara Koneksi Databse MySQL Server Online Menggunakan Visual Basic 6.0 (VB6)

Cara koneksi database mysql server menggunakan Visual Basic 6.0 (VB6) admin rasa telah banyak dibahas, diweb-web yang ada diinternet termasuk didalam web ini ada yang menggunakan tipe koneksi string, odbc control pannel dan lain-lain, untuk kali ini admin akan menguraikan koneksi ke database mysql server versi online dengan VB6. Untuk website database mysql server admin menggunakan situs db4free.

Langsung saja klik situs db4free.net kemudian Signup, isikan secara lengkap form pendaftaran pembuatan database seperti gambar dibawah ini

Setelah selesai dalam penginputan pada form diatas kemudian ceklis I have read the conditions of use and I agree with them. Jangan lupa dalam penginputan MySQL database name dan MySQL username: harus menggunakan karakter underscore ( _ ) dan tanpa ada spasi. Klik tombol Signup. Jika berhasil maka akan tampil pemberitahuan seperti dibawah ini

Kemudian untuk selanjutnya klik menu PhpMyAdmin pada menu samping sebelah kiri

Maka akan muncul halaman login database

Login pada halaman diatas menggunakan user dan password yang telah kita buat diawal pembahasan artikel ini setelah masuk buatlah database dengan nama database terserah agan aja yang mudah diingat. Driver koneksi pada Visual Basic 6.0 yang admin gunakan MySQL Connector ODBC 5.3.4 Win32 bagi yang belum punya bisa didownload pada halaman download pada web ini. 

Buka Visual Basic 6.0 (VB6) kemudian aktifkan komponen Microsoft ActiveX Data Objects 2.8 Library (Klik menu Project - References - Microsoft ActiveX Data Objects 2.8 Library) kemudian klik OK. Tambahkan satu buah CommandButton (Tombol) kemudian double klik pada CommandButton dan copykan sintak dibawah ini

Dim CN As New ADODB.Connection

Dim nServer, nUser, nPass, nDatabase As String

nServer = "www.db4free.net"

nUser = "dian_01"

nDatabase = "penjualan_01"

nPass = untuk password menyesuaikan

On Error GoTo ErrKoneksi

CN.CursorLocation = adUseClient

CN.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _

"SERVER=" & nServer & " ;Port=3306;DATABASE=" & nDatabase & ";" & _

"UID=" & nUser & " ;PWD=" & nPass & ";OPTION=3"

CN.Open

MsgBox "Koneksi Database Server Sukses", vbInformation, "informasi"

Exit Sub

ErrKoneksi:

MsgBox "Koneksi database Error.. " & vbCrLf & Err.Description & Err.Number, vbCritical, "Error Koneksi Database"

Exit Sub

RUN/F5 dan coba klik CommandButton (Tombol) selama User, Password, Nama database, Server benar dan sesuai dengan pendaftaran diawal tadi maka koneksi database MySQL Server Online akan sukses

Semoga pembahasan artkel Cara Koneksi Databse MySQL Server Online Menggunakan Visual Basic 6.0 (VB6) dapat bermanfaat