Koneksi VB 6.0 dengan MySQL

Thursday, January 7, 2016

Assalamu’alaikum wr. wb.
Dalam pembuatan software aplikasi, salah satu hal yang mendasar adalah mengoneksikan aplikasi tersebut terhadap database. Berikut cara mengoneksikan aplikasi yang dibuat dengan menggunakan Microsoft Visual Basic 6.0 dengan database MySQL. Kali ini MySQL yang saya gunakan adalah MySQL bawaan XAMPP versi 1.8.2.

1. Bahan yang perlu dipersiapkan adalah:
a. Software Microsoft Visual Basic 6.0
b. XAMPP versi 1.8.2
c. MySQL Connector ODBC Driver 3.5.1
2. Pastikan komputer anda sudah terinstal 3 Software di atas. Jika belum, instal terlebih dahulu.
3. Pastikan Apache dan MySQL sudah running seperti berikut:
2015-12-31_111735
4. Tambahkan database dengan nama CobaSQL.
5. Buatlah tabel dengan nama “t_user” dengan field “nmuser” type varchar panjang 20.
6. Buatlah ODBC dengan nama MySQL. Jika belum paham, silakan buka disini.
7. Buatlah project baru pada Microsoft Visual Basic.
2015-12-31_104246
8. Tambahkan referensi pada project baru anda dengan cara:
Project -> References -> pilih Microsoft Activex Data Objects 2.8 Library.
9. Tambahkan sebuah modul kemudian tambahkan script berikut ini:
Option Explicit
Public conn As Connection
Public rs As Recordset
Public sql As String
Function OpenConnMysql()
Set conn = New Connection
conn.CursorLocation = adUseClient
conn.Open “PROVIDER=MSDASQL;Mode=ReadWrite;dsn=MySQL;uid=root;pwd=;database=CobaSQL;”
End Function
Function Query()
Set rs = New Recordset
rs.Open sql, conn, adOpenStatic, adLockOptimistic
End Function
Function CloseConnMySQL()
conn.Close
Set conn = Nothing
End Function
10.Kemudian tambahkan script berikut pada Form1:
Private Sub Form_Load()
OpenConnMysql
sql = “select*from t_user”
Query
MsgBox “Nama user adalah:” & rs.Fields(“nmuser”)
CloseConnMySQL
End Sub
11.Jalankan program.

About This Blog

Check Page Rank of any web site pages instantly:
This free page rank checking tool is powered by Page Rank Checker service

Visitor

Blogging by 4visited  © 2015

Back to TOP