KONEKSI DATABASE MYSQL DENGAN VB 6.0 (3)

KONEKSI DATABASE MYSQL DENGAN VB 6.0 (3)

Rabu, Oktober 28, 2009  Database, MySQL  4 comments

Sekarang kita mulai masuk ke visual basic untuk koneksi dengan database MySQL, sebelumnya kita sudah install server lokal dan membuat database sederhanakemudian install odbc driver untuk MySQL nya dan membuat Data Source Name.

Untuk percobaan pertama akan dipakai Adodc sebagai alat bantu koneksi. Oleh karenanya kita tambahkan sebuah Adodc ke dalam form baru. Apabila belum ada komponen Adodc-nya tambahkan dulu dengan cara (klik pada menu bar Project >> component ..., setelah muncul jendela component, cari dan contreng Microsoft ADO Data Control 6.0 (OLE DB) akhiri dengan tombol OK.

Jika sudah ditambahkan ke dalam Form, klik kanan Adodc nya dan atur propertiesnya sebagai berikut :

Pada Jendela Property page - Tab General pilih option Use ODBC Data Source Name, nah DSN yang dibuat sebelumnya akan kita gunakan disini, apabila pembuatan DSN berhasil akan tampak pada daftar drop down dibawah, kemudian pilih yang sesuai (seperti yang dibuat sebelumnya, misal : "myodbc"), klik Apply.

Kemudian menuju ke tab Record Source, Command Type pilih "adCmdTable", dan pada Table or Procedure Name pilih nama tabel, misalnya : "Tbarang", akhiri dengan klik tombol OK

Sampai disini koneksi sudah selesai, jika tidak ada komentar (message) yang gak jelas berarti sudah konek. Sekarang kita buktikan apakah sudah benar-benar connect dengan mencoba menampilkan data ke dalam datagrid. Tambahkan sebuah DataGrid (Microsoft DataGrid Control 6.0 (OLE DB)), atur propertiesnya, pada datasource pilih Adodc1. kemudian Run(F5) , bagaimana sudah muncul? semoga ... ^_^.

Bila Anda tidak suka pengaturan properties Adodc yang berbelit-belit seperti diatas Anda dapat copy-paste code dibawah ini sebagai kode koneksinya :


'-----------------------------------------------
Private Sub Form_Load()

Adodc1.ConnectionString = "" &  _

"Provider=MSDASQL.1;Persist Security Info=False;Data Source=myodbc"
Adodc1.RecordSource = "tbarang"
Adodc1.Refresh
DataGrid1.Refresh

End Sub