Cara VB connect to mySQL

Cara VB connect to mySQL

1. Install vbnya
2. Download mysql odbc-nya, install
3. create database di mysql, misalnya infoonline
4. use infoonline ==> create table mahasiswa
5. masuk ke control panel, switch ke classic view aja.
6. masuk ke Administrative Tools –> Data Source (ODBC)
7. Di tag user DSN, klik Add
8. pilih mysql odbc driver, –> klik finish
9. akan tampil panel odbc connector, isi datasource name, misal ikhsanganteng, description (kosongin juga boleh),server(defaultnya localhost),User nya root, password (default kosong), pilih databasenya Klik Test… (success, connection was made) berarti telah sukses buat koneksi, klik ok
10. Sekarang, masuk ke vbnya, klik menu project — > references — > pilih Microsoft ActiveX Data Objects 2.0 Library dan Microsoft ActiveX Data Object RecordSet 2.8 Library
11. Di project Explorer, tambahkan module, add module
12. Isikan coding koneksi dan seleksi mahasiswa

Public con As New ADODB.Connection

Public rsmhs As New ADODB.Recordset

Public Sub konekdb()

Set con = New ADODB.Connection

‘ connection provider kalau ragu, ambil dari adodc,

‘build, isi bagian pada tag connection, isi datasource namenya,

‘pilih ikhsanganteng, ok, copy connection stringnya

con.Open “Provider=MSDASQL.1;Persist Security Info=False;Data Source=ikhsanganteng”

con.CursorLocation = adUseClient

End Sub

Public Sub seleksimhs()

Set rsmhs = New ADODB.Recordset

rsmhs.Open “select * from mahasiswa”, con, adOpenDynamic, adLockOptimistic

End Sub

——————-

Kalau udah, di form, tambahkan komponen datagrid, double klik formnya

‘tambahkan coding berikut pada form_Load

Private Sub Form_Load()

konekdb

seleksimhs

Set DataGrid1.DataSource = rsmhs

End Sub

——————–

Run (F5), selamat mencoba…