Selamat datang di blog pribadi Hasbi Ashshiddiqi

Hallo Semua.... Selamat Datang di blog pribadi gw, disini gw mencurahkan (weeee... sok puitis nih..) semua unex's-unex's yg menggundahkan hati.... hehehe... klo sampean lg iseng dan ga ada kerjaan yo mlaku-mlaku yo neng kene...hehehe

Istilah-Istilah Komputer

Berikut ini istilah-istilah yang berhubungan dengan komputer :

Rabu, 21 Januari 2009

cara koneksi ke mysql dari vb menggunakan mysql odbc

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
10. isi datasource name, misal ikhsanganteng, description (kosongin juga boleh),server(defaultnya localhost),User nya root, password (default kosong), pilih databasenya
11. Klik Test… (success, connection was made) berarti telah sukses buat koneksi, klik ok
12. 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
13. Di project Explorer, tambahkan module, add module
14. 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

Tidak ada komentar: