8 April 2013

SERVER KONEKSI KE MYSQL DATABASE ONLINE VIA VB 6.0


sistem dapat mengakses data secara multi akses dimana data dapat di akses secara online seperti WEB. Tapi di sini saya mencoba untuk mengoneksikan MYSQL Hosting dengan Aplikasi Dekstop VB 6.0 dengan bantuan MYSQL Connector ODBC.

Berikut beberapa situs hosting Database MYSQL:
  1. 000webhost.com
  2. freemysql.net
  3. freesql.org
  4. db4free.net
  5. free-mysql.bizhostnet.com
Dalam kasus ini saya menggunakan freemysql.net sebagai tempat hosting databasenya.

Berikut 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" 'untuk nama servernya sesuaikan dengan akun anda
port = "3306" 'port yang terbuka untuk situs hosting freemysql.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 membantu...

nb : untuk MYSQL Connector ODBC 3.51 silahkan download di sini download