Oleh : Uus Rusmawan Hal - 1 -

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan Hal - 1 -

BAB KONEKSI MYSQL MySql oleh sebagian besar pemakainya lebih cenderung digunakan untuk database berbasis web, padahal VB juga dapat mengolah database MySql.

Instalasi Server Lokal MySQL MySql terdapat pada beberapa perangkat lunak, bahkan Anda dapat mengunduhnya di internet secara gratis. Pada kesempatan kali ini kami coba jelaskan software WAMP5. Syarat utama pengolahan database MySQL dalam VB adalah menginstall MySQL dan Driver ODBC 3.51. Untuk melakukan instalasi MySQL ke dalam komputer, ikutilah langkah-langkah berikut ini. 1.

Masukkan CD pendukung ke dalam CD Drive (asumsinya menggunkan Drive D)

2.

Pilih Folder D:\Install Server Lokal

3.

Klik dua kali file Wamp5_3.1

4.

Klik Next

5.

Pilih opsi I accept the agreement

6.

Klik Next


7.

Tentukan lokasi instalasi

8.

Klik Browse jika ingin diubah lokasi instalasinya

9.

Klik Next

10. Tentukan nama shorcutnya 11. Jika ingin mengganti bentuk shorcut klik Browse kemudian cari icon yang diinginkan 12. Klik Next


13. Beri tanda cheklist jika Wamp5 akan dijalankan secara otomatis saat startup 14. Klik Next 15. klik install


16. Untuk menjalankan aplikasi MySQL klik Start 17. Pilih WampServer >Pilih Start Wampserver 18. Untuk memulai menjalankan Wamp klik icon Wamp

19. Kemudian pilih phpMyAdmin

20. Tampilan awal MySql terlihat seperti gambar di bawah ini


21. Untuk memudahkan pekerjaan Anda di MySQL, ubahlah ke bahasa Indonesia

MEMBUAT DATABASE 1.

Buatlah database dengan nama DBMySQL > Klik Buat

Catatan : Database tersebut akan secara otomatis dibuat di posisi C:\Wamp\mysql\data

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan Hal - 6 Posisi yang ditampilkan dalam aplikasi MySQL terlihat pada gambar di bawah ini.

MEMBUAT TABEL 1.

Buatlah tabel dengan nama Barang yang terdiri dari 4 field > GO

2.

Struktur tabel barang terlihat seperti Gambar di bawah ini

Catatan : di sebelah kanan menu ini masih ada opsi lain, aktifkan pilihan PRIMARY pada field KodeBrg. 1.

Klik Simpan, jika proses berhasil MySQL akan menampilkan keterangan berikut


2.

Untuk mengentri data klik SISIPKAN kemudian isilah tiga buah record berikut ini

No

KodeBrg

NamaBrg

HargaBrg

JumlahBrg

1

SUS01

SUSU BENDERA

4500

10

2

KOP01

KOPI KAPAL API

1500

20

3

MIE01

MIE SOTO

1000

30

3.

Aktifkan opsi Sisipkan baris baru > GO

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan Hal - 8 4.

Lanjutkan dengan mengentri data berikutnya (Mie)

INSTALASI DRIVER MYODBC 3.51 Agar MySQL dapat berintegrasi dengan Visual Basic, Anda harus menginstall Driver ODBC 3.51. Ikutilah langkah-langkah berikut ini. 1.

Klik folder D:\Install Server Lokal

2.

Klik dua kali file MyODBC-3.51.04

3.

Klik Next

4.

Klik Next

5.

Klik Next

6.

Klik Finish

Koneksi Model DSN Menggunakan Objek Sebelum program di Visual Basic dijalankan, maka MySql harus diaktifkan agar komputer dianggap sebagai server lokal dan koneksi database dapat dilakukan. Setelah software yang diperlukan diinstall ke dalam komputer, langkah berikutnya adalah membuat rancangan GUI berikut programnya di Visual Basic. Untuk tahap awal kita akan mencoba menampilkan data yang dibuat dengan MySQL dalam DataGrid. Lakukanlah langkah-langkah di bawah ini. 1.

Buatlah sebuah GUI dengan menambahkan satu Adodc dan DataGrid

2.

Klik DataGrid dan hubungkan ke Adodc1 pada properti DataSource

3.

Klik kanan objek Adodc1 > ADODC Properties

4.

Pilih Use ODBC Data Source Name > New

5.

Pilih Use Data Source (Applies to this machine only) > Next

6.

Pilih MySQL ODBC 3.51 Driver > Next

7.

Klik Finish


Isilah masing-masing data sebagai berikut

9.

Klik Test Data Source > OK > OK

10.

Klik combo Use ODBC Data Source Name

11.

Pilih CobaMySQL1


Klik tabulasi RecordSource

13.

Pilih 2 – adCmdTable

14.

Klik combo Table or Stored Procedure Name

15.

Pilih barang

16.

Klik Apply > OK

17.

Hasil koneksi dapat dilihat pada properti ConnectionString seperti gambar di bawah ini

18.

Langkah terakhir adalah menjalankan program Visual Basic Anda, maka hasilnya akan terlihat seperti Gambar di bawah ini

KONEKSI MODEL DSN TANPA OBJEK

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan Hal - 11 Implementasi dalam pemrograman koneksi model DSN untuk MySql dalat dilakukan sebagai berikut:

1.

Buatlah sebuah form baru

2.

Tambahkan objek List

3.

Tulis coding berikut ini

Dim Conn As New ADODB.Connection Dim RSBarang As ADODB.Recordset Private Sub Form_Load() Set Conn = New ADODB.Connection Set RSBarang = New ADODB.Recordset Conn.Open "DSN=CobaMySQL1" RSBarang.Open "select * from barang", Conn List1.Clear Do Until RSBarang.EOF List1.AddItem RSBarang!kodebrg & vbTab & RSBarang!namabrg RSBarang.MoveNext Loop End Sub

KONEKSI MODEL STRING MENGGUNAKAN OBJEK ADODC Selain cara koneksi model DSN, Anda dapat melakukan koneksi dari Visual Basic ke database MySQL dengan model Connection String. Ikutilah langkah-langkah di bawah ini. 1.

Buatlah GUI dengan menambahkan sebuah control adodc dan datagrid

2.

Hubungkan DataGrid ke adodc pada properti DataSource

3.

Klik kanan Adodc1 > ADODC Properties …

4.

Klik Use Connection String > Build

5.

Pilih Microsoft OLE DB Provider for ODBC Drivers > Next


6.

Pilih Use Connection String > Build

7.

Klik New


8.

Pilih MySQL ODBC 3.51 Driver > Next

9.

Klik Browse > Tulis nama Data Source (misalnya CobaMySQL2).


10.

Perhatikan posisi folder yang sedang aktif pada indikator Save In :

11.

Klik Save > Klik Next


12.

Klik Finish

13.

Isilah masing-masing data sebagai berikut


14.

Klik Test Data Source > OK > OK

15.

Klik nama File Data Source > OK


Klik OK

17.

Klik Test Connection

18.

Klik OK

19.

Klik tabulasi DataSource

20.

Klik combo Command Type

21.

Pilih 2 - adCmdTable

22.

Klik combo Table or Stored Procedure Name

23.

Pilih Barang > Apply > OK

24.

Untuk melihat hasil koneksi yang dilakukan dengan model String, klik objek Adocd, properti ConnectionString telah terisi seperti gambar di bawah ini


Listing lengkap koneksi model string tersebut adalah sebagai berikut: Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=DBMySQL;SERVER=localhost;UID=;PASSWORD=;PORT=; OPTION=;STMT=;"

25.

Langkah selanjutnya adalah menjalankan program Visual Basic. Dengan koneksi model String ini akan dihasilkan data yang sama seperti model DSN.

KONEKSI MODEL GABUNGAN Sebenarnya ada teknik gabungan yang dapat digunakan untuk melakukan koneksi ke database MySQL, yaitu menggunakan model String tetapi memanfaatkan DSN yang telah dibuat sebelumnya. Ikutilah langkah-langkah berikut ini. 1.

Buatlah GUI dengan menambahkan control adodc dan datagrid

2.

Hubungkan DataGrid ke Adodc1 pada properti DataSource

3.

Klik objek Adodc > ADODC Properties

4.

Pilih Use Connection String > Build


5.

Pilih Microsoft OLE DB Provider for ODBC Drivers > Next

6.

Klik combo Use Data Source Name

7.

Pilih CobaMySQL1


8.

Klik Text Connection > OK > OK

9.

Klik tabulasi RecordSource

10.

Klik combo Command Type > 2 – adCmdTable

11.

Klik combo Table or Stored Procedure Name > Barang

12.

Klik Apply > OK

13.

Hasil koneksi tersebut dapat dilihat pada properti ConnectionString seperti gambar di bawah ini

Listing lengkapnya adalah sebagai berikut:

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan Hal - 21 Provider=MSDASQL.1;Persist Security Info=False;Data Source=CobaMySQL1

Cara koneksi database model gabungan ini pembuatannya lebih cepat dan listing programnya lebih pendek.

Oleh : Uus Rusmawan Hal - 1 -

Recommend Documents