Hidup ini ga selamanya bahagia bro..ga juga selamanya sengsara. Di sudut sana mungkin ada orang yang begitu bahagia, di sudut lainnya mungkin ada yang berharap mentari tak lagi bersinar. Ini kejadian yang bener-bener ane alami. Ane ceritain dengan lebay bin capcay. Ane, sebut saja Otong Eldorado Fabregas seorang anak yang lahir dari keluarga sederhana. Saat smp ane berangkat sekolah dengan jalan kaki. Kecemplung got sudah tak terhitung berapa kali. Hujan berpayung daun pisang, kulalui. Pakaian ga kering ane taruh diatas tungku ampe bau asep. Jamur tumbuh subur di seragam sekolah ane. Tapi ane ga akan pernah menyerah, demi emak ane tercinta. Kejadian ini terjadi pada hari ketiga ane masuk SMK, sekitar jam 4.45 pagi hari. Ane milih SMK karena ane hampir mustahil bisa kuliah. Selain otak ane terlalu OONitalis, secara ekonomi ane juga kurang integrability.

Hari itu, ane hendak berangkat ke pemberhentian bus dikampung ane. Karena ane tinggal di kampung, jarak rumah ane ke pemberhentian BUS agak jauh, kurang lebih 1 KM. Jarak rumah ane sama sekolah ane menurut mbah google sekitar 38KM.

Ane : Mak, ane berangkat sekolah dulu ya..

Emak : Sapa yang nganter ke BUS STOP ?

Ane : Otong jalan kaki aja mak..

Emak : Yaudah, emak anter. Ambil sepeda ontel Lamborghini Aventador sana. Boncengin emak.

Ane : Woke mak..

Bentuk Sepeda ane yang ane kasih nama Lamborghini Aventador. Tapi punya ane ada boncengannya.

Dengan Sigap ane ambil sepeda ontel Lamborghini Aventador yang udah tua bentuknya segede gaban. Ane boncengin emak ane dengan penuh semangat. Sekitar 100 meter dari pemberhentian BUS, terlihat BUS jalur A yang biasa ane tumpangin. Namun, BUS itu sudah mulai melaju meninggalkan BUS STOP.

Ane : Maaak…BUS nya udah mao jalan !!!

Emak : Kebuuut…cepet kejaaaar !!!

Ane : WUUUOOOOOOOOOOOOOOOOOO !!! ( Meng-ontel sepeda Lamborghini Aventador dengan sekuat tenaga )

Ane kebut sepeda ontel dengan gaya zig-zag diantara ibu-ibu yang mau ke pasar bak Vin Diesel dari Fast & Furius. Tiba – tiba ada ibu-ibu mao kepasar motong jalur balap ane. Tak pelak ane REM mendadak dengan system pengereman canggih CAKRAM platinum yang biasa disebut System Injeksi Pengereman menggunakan KAKI !!. Setelah pengereman terlaksana dengan selamat. Ane kembali kebut sepeda ane. Tiba – tiba,

Emak : LEEEE!!!…leeee!!….leeee! ( Terdengar suara emak manggil ane. Tapi anehnya suara emak makin lama makin kecil. Karena curiga, akhirnya ane noleh )

Ane :  WUUAAAAAA…EMAK KETINGGALAAAAN…!!!! (Kaget !!!. Ternyata emak ane turun dari sepeda Lamborghini Aventador waktu terjadi Pengereman System Injeksi ).

Dengan sigap ane puter sepeda, kembali menerobos kerumunan ibu – ibu yang hendak ke pasar untuk menjemput emak ane tercinta. Setelah berhasil menjemput emak tercinta, ane kembali mengontel sepeda tak kenal lelah untuk mendapatkan sheet di BUS harapan. Namun, apa daya kaki tak sampai. Dengan lemah lunglai, ane dan emak kembali ke pemberhentian BUS pertama tadi, Setelah sampai di PIT STOP pertama tadi, ane pamitan dengan emak tercinta, lalu emak pulang duluan dan ane menunggu 1 jam untuk giliran BUS selanjutnya. . Sampai di sekolah, bisa ditebak, ane dapet skor 2 point untuk pelanggaraan ketertiban.

YOOOOOOSSSSSH!!!!!….begitulah cerita SMK saya. Lanjut sesuai Judul, membuat koneksi dari VB 6 ke  MySQL menggunakan MyVBQL.

Pertama, Download dulu DLL MyVBQL sama libmySQL. Entar ane kasih linknya koq di archive sama sekalian source code-nya. Kemudian copy kedua file tersebut ke C:\WINDOWS\system32 . Lakukan register DLL tadi dengan menggunakan Command Prompt. Buka Command Promt, ketik regsvr32 MyVBQL . kemudian enter. Selanjutnya lakukan hal yang sama pada file libmySQL. Buka Command Promt, ketik regsvr32 libmySQL.

Contoh Register DLL jika berhasil

Kemudian buka VB 6.0. Agar Program yang akan agan buat nantinya mengenali DLL tadi, tambahkan Reference atas DLL MyVBQL, caranya :

Masuk ke menu Project — > Reference

Reference

Akan muncul kotak dialog, klik aja Browse.

Klik Browse

Muncul lagi kotak dialog, pilih file DLL tadi MyVBQL.dll

Pilih MyVBQL.dll

Klik OPEN , Akan muncul API MyVBQL Selanjutnya Klik OK

Muncul API MyVBQL klik OK

Selanjutnya tinggal Coding, Buat Modul dan deklarasikan :

Public connMySQL As New MYSQL_CONNECTION

Public myRS As MYSQL_RS

Untuk login kedatabase gunakan script :

If connMySQL.State = MY_CONN_OPEN Then connMySQL.CloseConnection

‘Membuka koneksi ke database MySQL

‘Untuk login ke MySQL gunakan perintah : ConnMySQL.OpenConnection Nama Database Server, Username, password, tabel, port ‘Port MySQL secara default adalah 3306  

connMySQL.OpenConnection “databaseserver”, “username”, “password”, “nama-database”, “port”

Udah ah, capek ngejelasinnya, download aja file sample dari ane, trus pelajari aja. Downloadnya bisa DISINI

Screeshot Program Ane :

 

Perhatian, Baca saya dulu.

  1. Sebelum menjalankan/membuka source code, Anda harus sudah meng-copy file MyVBQL.dll dan LibMySQL.dll ke C:\WINDOWS\system32
  2. Sebelum menjalankan/membuka source code, Anda harus sudah me-register kedua DLL tersebut melalui Command Promt.
  3. Buat  database server baru, yang ane sertakan di archive, ada file localhost.sql, tinggal import aja di database server, ntar otomatis bikin database tester dan tabel item.
  4. Komputer Anda hang, hardisk bad sector, mbledug, terbakar, rumah Anda kebakaran, itu bukan tanggung jawab penulis.
  5. Dilarang jatuh cinta dengan penulis kecuali pembaca seorang cewek.
  6. Dilarang merepost tulisan ini tanpa seijin penulis.
  7. Dilarang merokok waktu masang tabung gas 3 kg.
  8. Jika da pertanyaan, silahkan post di komentar.

Visual Basic

September 13, 2011

2 Komentar