VB6 to Access ( Visual Basic to Access ) Script
Sebelumnya pastikan refrence pada Visual Basic anda klik Project > refrences > Browse kemudian cari file C:\Program Files\Common Files\System\ado\msado25.tlb atau msado27.tlb
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSql As String
on Error goto Error
strSql = "SELECT * FROM e_member" ' Select semua field yang berada di tabel e_member
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;" _
& "Data Source=D:\Project\database.mdb"
cn.Open
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strSql, cn, adOpenDynamic, adLockOptimistic, adCmdText
rs.Requery
txtId.text = rs("e_id")
cn.close
Exit Sub
Error:
strMessage = "Pembatalan transaksi"
Call Write_Log(2, pConstSuccess, strMessage, LblUser.Caption)
Script diatas merupakan contoh untuk read database pada MS Access
VB6 to MySql ( Visual Basic to MySql ) Connection
Visual Basic to MySql connection mungkin sering menjadi pertanyaan bagi orang awam yang sedang memperdalam kemampuannya dalam Visual Basic Programming, tidak tersedianya atau tidak support Visual Basic package ( paket visual basic Develpment Software ) terhadap aplikasi yang non Microsoft. Maka dari itu jika kita ingin menghubungkkan antara Visual Basic programming dengan maka saya akan memberikan caranya :
- Install Aplikasi MySql dan buatlah sebuah database, jika anda menggunakan Operating System WinXP dan ingin menginstall MySql anda bisa menggunakan software appserv, jika ingin download bisa klik disini.
- Download mysql connector odbc 5.1.5 win32 Driver, anda bisa klik disini untuk download.
- Ekstrak file kemudian install.bat pada folder ODBC driver.
- Setelah itu anda harus setup DSN pada komputer anda, berikut saya berikan langkah-langkahnya :
- Masuk ke Control Panel >> Administrative Tools >> Data Sources (ODBC)
Kemudian akan muncul form ODBC Data Source Administration, pada Tabs User DNS anda pilih tombol Add disisi sebelah kanan form untuk menambahkan DSN yang baru. Setelah di klik maka akan keluar form Create New Data Source, dan pilih MySQL ODBC 5.1 Driver >> klik Finish.
Kemudian akan muncul form seperti gambar disamping, isi data source dengan "AutoStock" (Contoh), kemudian description di isi dengan bebas. Selanjutnya adalah pengisian untuk authentikasi login ke mysql, misalkan pada server di isi localhost (karena saya install mysql di local), masukkan user dan password, kemudian pilih database yang digunakan. Jika sudah selesai lakukan pengecekan koneksi ke database dengan cara klik pada tombol test.
Jika Installasi sudah selesai dilakukan, kini saatnya mencoba interfacing antara MySql dengan dengan Visual Basic, contoh script adalah sebagai berikut :
Public Sub ReloadDGRepStock()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSql As String
strSql = "SELECT * FROM tmp_stock"
Set cn = New ADODB.Connection
cn.Open "dsn=AutoStock"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strSql, cn, adOpenDynamic, adLockOptimistic, adCmdText
rs.Requery
Set DataGrid3.DataSource = rs
Exit Sub
End Sub
Perbedaan antara koneksi dengan MS Access dengan MySql hanya sedikit saja pada script, yaitu pada open connection dikarenakan tujuan database menggunakan DSN sudah di setup sehingga tidak memerlukan connection string, dan sintaks untuk membuka database berubah menjadi
cn.open "dsn=autostock"
Semoga Bermanfaat.
Sumber : Mindahin postingan di blog yang lama, ngeditnya ampun dah..
https://kerenz.wordpress.com/2009/01/16/vb6-connect-to-mysql
