Koneksi MySQL dan VB6
21.1
Pendahuluan
Bab ini membahas cara mengakses database MySQL melalui Visula Basic
6. Dengan demikian memungkinkan Anda untukmembangun suatuaplikasi VB yang bisa
mengkasses database My SQL. Namun, perlu diperhatikan bahwa ketika membca
bahsan dalam bab ini diasumsikan bahwa Anda sudah mengusai VB.
21.2
Koneksi Visual Basic dan MySQL
Membangun
aplikasi database yang mengakses MySQL
sebenarnya dapat dilakukan dengan menggunakan berbagai tool; termasuk dalam hal
ini yaitu Visual Basic. Untuk mengkases MySQL dari VB, diperlukan konektor
MyODBC ( MySQL CONNECTOR/ODBC).
|
Skema
di atas mensyratakan penggunaan MyODBC agar program yang di bangun menggunakan
Visual Basic bisa mengakses database server MySQL. Oleh karena itu bila Anda belum memiliki
MyODBC yang terpasang pada komputer Anda, Anda perlu menginstalnya terlebih
dahulu.
21.3
Menginstal MyODBC
MyODBC
dapat diunduh secra gratis melalui situs http://www.mysql.com/products/connector/odbc. Namun,untuk kemudahan Anda, software tersebut di sertakan pada
CD.
Untk
menginstalnya lakukan langkah berikut:
1.
Klik
pada file mysql-connector –odbc-3.51.23-win32.msi.
2.
Klik
tombol RUN.
3.
Klik
tombol NEXT >
4.
Klik
tombol NEXT >
5.
Klik
tombol INSTALL
6.
Klik
tombol FINISH
Selesai sudah penginstalan MyODBC. Anda bisa segera memulai koneksi
ke MySQL.
21.4 Menguji Koneksi ke MySQL
Prosedur
berikut berlaku pada windows XP.
1.
Klik
tombol Start
2.
Klik
pada Control Panel
3.
Klik
pada Adminisrtrative Tools.
4.
Klik
ganda pada Data Source (ODBC).
5.
Klik
pada system DSN
6.
Klik
Add
7.
Pilih
pada MySQL ODBC 3.51
8.
Klik
tombol Finish
9.
Ketikkan
MySQL pada Data Source Name
10. Ketikkan 127.0.0.1 pada serever
11. Ketikkan root pada User
12. Ketikkan rahasia pada Password
13. Pilih pegawai pada Database.
14. Klik tombol Test
15. Coba ganti password dengan sembarang isian.
16. Uji test kembali.
17. Klik tombol OK
18. Klik tombol OK
21.
5 Mencoba Koneksi ke mySQL Via VB
Sebelum
mencoba buatlah folder dengan nama LatVB pada drive C.
1.
Buatlah
proyek baru (pilih menu File| New Project)
2.
Pilih
Standard Exe dan kliktombol OK
3.
Ganti
isi properti Caption milik Form1 menjadi Koneksi ke MySQL.
4.
Ganti
isi properti (Name) menjadi FormKoneksi.
5.
Pilih
menu Project, kemudian pilih Add Module.
6.
Klik
tombol Open
7.
Ketikkan kode seperti berikut ini.
Function koneksi MySssQL (Conn As ADODB.Connection, -
Server As String, -
Database As String, -
User
As String, Password As String) As Boolean
‘Koneksi ke database MySQL
Conn.ConnectionString = “DRIVER={MySQL ODBC 3.52 Driver}; ”
& -
“SERVER=”
& Server & “ ; “ & -
“
DATABASE=” & database & “ ; “ & -
“UID=”
& User & “ ; PWD= “ & -
Password
On Error Resume Next
Conn.Open
On Error GoTo 0
KoneksiMySQL = (Err.Number =)
End Function
1.
Ganti
properti (Name)milik modul ( yang semula berupa Module1) menjadi ModulKoneksi)
2.
Atur folder
yang tertera pada Save in: menjadi
LatVB.
3.
Biarkan
ModulKoneksi pada file name.
4.
Klik
tombol Save
5.
Biarkan
FormKoneksi pada File Name
6.
Klik
tombol Save
7.
Ganti Project1 menjadi Project Pertama
8.
Klik
tombol Save
9.
Pilih
No
10.
Menambahkan
kode
11.
Letakkan
penunjuk mouse pada form dan kemudian klik tombol kanan mouse.
12.
Plih
View Code
13.
Ketikkan
kode berikut
14.
Open
explisit
15.
Dim
Conn As ADODB.Connection
16.
Menuliskan
kode untk kejadian Unload Milik Form
17.
Klik
tanda pilihan menu pada tombol General
18.
Pilih
Form
19.
Ketikan
mencoba menjalankan program
General
Option Explisit
Dim Conn As ADODB. Connection
Load:
Set Conn = New ADODB.Connection
Set ConnAcces = New ADODB.Connection
Set RS = New ADODB.Recordset
SetRSBank = New ADODB.Recorset
KeluarTanpaSyarat
= False
KonekDB Conn
Unload:
Set Conn = Nothing
0 komentar:
Posting Komentar