Membuat Modul Koneksi Database Mysql Ke VB 6.0
Salam!
Source Code Modul Koneksi
Sub koneksi()
Salam!
Kami akan sharing ilmu mengenai koneksi database mysql ke vb 6.0 , Tentunya untuk membuat sebuah koneksi dan database memerlukan software tersendiri, selain vb 6.0 , anda juga memerlukan mysql sebagai databasenya (Bagi pemula bisa download xampp dan buat database melalui phpmyadmin, silahkan search di google) dan Mysql odbc connector versi bebas silahkan search google juga,
Kami anggap anda telah membuat database dan koneksi melalui set up odbc connector atau kami akan jelaskan di tutorial selanjutnya, untuk posting kali ini kami hanya akan menjelaskan module untuk koneksinya.
Tentunya anda memerlukan lembar modul di vb 6 anda dengan cara klik menu project- add module.
source code daripada Public (nama koneksi(bebas sesuai tipe koneksi dan tabel)) as new (adodb.connection)/(adodb.recordset) menjelaskan tentang bagaimana objek didefinisikan , sedangkan pada sub koneksi() menjelaskan mengenai koneksi ke databasenya. Perhatikan gambar dibawah.
Dari gambar diatas saya membuat nama tipe data koneksi sebagai "kon",
Sementara tabel database saya membuat tabel kamar, transaksi, detail transaksi, pelanggan
Kami membuat tabel temp didatabase sebagai tabel sementara untuk keperluan program.
Dari keterangan tersebut, kami harap pembaca mengerti keterkaitan source code yang ada di modul koneksi vb tersebut dengan database.
Sementara di public koneksi() saya membuat sebuah koneksi database ke mysql menggunakan "Mysql ODBC connector 32 bit" dengan ketentuan nama koneksi = diklat, server = localhost, user id = root dan nama database = diklat.
Cukup sekian tutorial dari kami semoga membantu dan bermanfaat bagi yang membaca. Terimakasih telah berkunjung di "Zaba Tech".
Kami melampirkan source code dari modul koneksi tersebut dibawah ini, silahkan anda gunakan untuk anda pelajari dan inovasikan sesuai kemampuan anda.
Source Code Modul Koneksi
Public kon As New adodb.ConnectionPublic rskmr As adodb.RecordsetPublic rsuser As adodb.RecordsetPublic rsdetail As adodb.RecordsetPublic rstrans As adodb.RecordsetPublic rstemp As adodb.RecordsetPublic rsplg As adodb.Recordset
Sub koneksi()
End SubSet kon = New adodb.ConnectionSet rskmr = New adodb.RecordsetSet rsuser = New adodb.RecordsetSet rsdetail = New adodb.RecordsetSet rstrans = New adodb.RecordsetSet rstemp = New adodb.RecordsetSet rsplg = New adodb.Recordsetkon.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=diklat"
ConversionConversion EmoticonEmoticon