Koneksi VB 6 dengan Mysql (Online)

Awalnya si terinspirasi dari dosen yang ngedukung konsep gw. setelah gw pikir2 lagi knapa ga gw coba experimen tuh tantangan dosen!!
dengan optimis gw pun mencobanya walau sedikit pusing. Hehehe
setelah berjam-jam serching googling akhirnya nemuin deh. tapi masih error, setelah di otak atik akhirnya berhasil juga. dan ini gw perembahkan untuk temen2 sekalian .. Hehehee





.
pertama kita instal dulu MYSQL Connector ODBC 3.51 silahkan download di sini download
nb : Passwornya ( DiarFirmasyah )

.
setelah itu temen2 tentuin hostingannya. berikut daftar hostingan Mysql yang bisa temen2 dicoba.

1. 000webhost.com
2. freemysql.net
3. freesql.org
4. db4free.net
5. free-mysql.bizhostnet.com

Dalam kasus ini saya menggunakan db4free.net sebagai tempat hosting databasenya.

Berikut koding  connectionstring untuk koneksi database MYSQL -nya :

'awal kode

Dim koneksi As New ADODB.Connection
Dim server, port, database, username, password As String

server = "76.73.77.53" 'sesuaikan nama servernya
port = "3306" 'port yang terbuka untuk situs hosting freemysql.net & db4free.net
database = "databaseku" 'sesuaikan dengan database anda
username = "usernameku" 'sesuaikan dengan username anda
password = "passwordku" 'sesuaikan dengan password anda

Set koneksi = New ADODB.Connection

koneksi.CursorLocation = adUseClient
koneksi.Mode = adModeReadWrite
koneksi.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=" & server _
& ";Port=" & port & ";Database=" & database & ";User=" & username & ";Password=" _
& password & ";Option=3;"
koneksi.Open

'akhir kode

Semoga Bermanfaat...