menghubungkan vb6 dengan database mysql

menghubungkan vb6 dengan database mysql

kali ini saya memposting bagaimana cara mengoneksi database mysql ke dalam program vb6

mungkin sudah banyak tutorial yang bertebaran di internet, jangan jauh jauh kunjungi saja blogspot ini.. karena mungkin referensi ini bisa menambah penjelasan yang sependapat dengan yang anda cari itu harapan saya.. okey kita langsung bahas cara mengoneksi database mysql ke vb6,.

"pertama yang harus anda lakukan adalah :

1. buka aplikasi vb6 anda
2. kemudian sorot menu project klick pilih references dan akan keluar form references
3. beri tanda centang pada microsoft activeX data object 2,8 library
   dan juga microsoft DAO 3,51 object library dan tekan OK
4. selanjutnya buatlah sebuah form baru dan tambahkan sebuah komponen baru dengan cara
   a. pilih menu project dan sorot components kemudian
   b. beri tanda centang pada microsoft ADO Data control 6.0(OLEDB)
      dan microsoft datagrid control 6.0(OLEDB) untuk menampilkan komponen baru
5. setelah itu tambahkan add class module
    dan isilah module dengan script sebagai berikut
    
   Public con As New ADODB.Connection
Public rsdata As New ADODB.Recordset
Public Sub koneksi()
On Error GoTo er
Set con = New ADODB.Connection
Set rsdata = New ADODB.Recordset
con.Open "Driver={MySQL ODBC 3.51 Driver};server=localhost;database=penjualan;uid=root;pwd="
con.CursorLocation = adUseClient
'buka tabel database
Exit Sub
er:
 MsgBox "Gagal Loading Database", vbInformation, "Database Error"
End Sub

Public Sub dtgrid()
Set rsdata = New ADODB.Recordset
    rsdata.ActiveConnection = con
    rsdata.CursorLocation = adUseClient
    rsdata.CursorType = adOpenDynamic
    rsdata.LockType = adLockOptimistic
    rsdata.Source = "SELECT * FROM barang"
    rsdata.Open
End Sub

kemudian tulis coding berikut pada form saat load

Private Sub Form_Load()
Call koneksi
Call dtgrid
Set DataGrid1.DataSource = rsdata
End Sub