Koneksi antara visual basic dan sebuah database tentunya ada beberapa cara, ada yang menggunakan script dan ada pula yang ‘mengaitkan’ antara tools yang satu dengan yang lainnya. Koneksi VB6 dengan Access, saya sering menggunakan script untuk konektifitas, namun pada saat ada seseorang rekan kerja yang meminta untuk merubah database type dari access ke mysql, saya pun mulai berfikir “Kayaknya harus punya refrence atau component baru!”. Sebelumnya saya akan bahas secara garis besar kelebihan dan kekurangan antara Microsoft Access dengan Mysql, yaitu :
* Legalitas
Masyarakat indonesia pada umumnya mempunyai sifat konsumtif yang sangat tinggi, namun jeleknya mereka tidak mau mengeluarkan uang sedikitpun, walaupun jalan yang ditempuh sangatlah tidak baik, contohnya yah saya sendiri 
Dari pada membeli dengan harga yang tinggi lebih baik membeli bajakan yang mempunyai harga lebih murah walaupun saya tau resikonya lebih besar.
Dari legalitas ini Mysql diunggulkan karena merupakan product dengan lisensi GNU dan disebarkan secara free, sedangkan MS Access merupakan product Microsoft dan lisensi harus dibeli dengan harga yang lumayan tinggi.
* Kapasitas dan efektifitas
Disini tentunya Mysql diunggulkan, dibandingkan dengan Microsoft Access yang lebih lambat dan kapasitas dibawah mysql.
* Stand Alone Application
Namun Mysql harus mengakui kelebihan dari MS Access yang bisa membuat aplikasi didalam aplikasi itu sendiri, banyak aplikasi perkantoran yang masih menggunakannya.
Setelah dijelaskan kelebihan dan kekurangan kedua database tersebut, akhirnya saya mengerti kenapa rekan kerja saya meminta untuk merubah dari MS Access ke Mysql. Namun bagi saya kedua database tersebut mungkin saja sewaktu-waktu akan dipergunakan lagi, bagi saya ini merupakan ilmu dan pengalaman baru. Berikut adalah contoh-contoh connection script :
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)
Click the image to show with high quality
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.
Click the image to show with high quality
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
Click the image to show with high quality
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.
Masalah yang sudah terjadi selama 2 hari kebelakang sempat membuat gerah (gak bisa istirahat) tapi akhirnya selesai juga. Permasalahan awal yang pertama yaitu mesin tidak dapat “size change” atau ganti size product, namun itu terjadi kadang-kadang, masalah yang kedua jika bisa size change spec Die Plate atau cetakan tidak masuk ke PLC, ternyata inti masalahnya pada port number untuk komunikasi antara komputer dan PLC dalam keadaan status busy yang akhirnya PLC tidak dapat menerima data dari komputer. Dengan mengganti port number dengan port number yang masih fresh (dari 8002 ke 8001) kemudian restart program, beres deh..
Comment