Tutorial Koneksi Database dalam Visual Basic 6.0 dengan database DB2

Aplikasi dengan koneksi database adalah aplikasi yang banyak sekali dipakai. Mulai dari toko kecil (tentu saja toko kecil yang ada komputernya) sampai perusahaan besar sekelas Microsoft memakai program/aplikasi dengan koneksi database tersebut. Dengan macam-macam pengolahan data juga tentunya. Oke tidak usah panjang lebar… Langsung saja saya ingin  sharing ilmu tentang pembuatan program/aplikasi database. Bahasa pemrograman yang saya pakai adalah Visual Basic 6.0 milik Microsoft dan database yang saya pilih adalah DB2 dengan server AS400 milik IBM.

Software Requirement :

Microsoft Visual Basic 6.0
Database DB2 (Server AS400)
IBM iSeries Access for Windows (Driver yang menghubungkan ke database)

Sebelum kita buat program, kita harus instal dulu IBM iSeries Access for Windows untuk koneksi databasenya ke server AS400 (biasanya include di AS400). Jika sudah maka kita sudah siap untuk pembuatan programnya. Oke mari kita mulai.

Mulai dengan membuka Visual Basic 6.0 pilih saja Standard EXE, kemudian kilik Open dan seperti biasanya tampilan seperti dibawah ini :

Tambahkan komponen (Ctrl+T) ADO Data Control 6.0 untuk koneksi ke databasenya dan satu lagi disini saya gunakan DataGrid Control 6.0 untuk tempat menampilkan datanya.

Kemudian tambahkan komponen ADODC tersebut ke dalam form, seperti gambar

Sebenarnya saya disini tidak menggunakan komponen ADODC untuk koneksi ke databasenya, tapi komponen ini saya gunakan untuk pancingan melihat code-nya untuk koneksi ke AS400. Klik kanan pada komponen tersebut pilih ADODC Properties kemudian akan muncul jendela Property Pages. Pilih Tab General. Kurang lebihnya tampilannya seperti dibawah ini :

Kemudian pilih saja Use Connection String klik tombol [Build…], dibawah merupakan tampilannya dimana ditampilan tersebut berisi sejumlah OLE DB Provider yang terinstal dikomputer anda. Untuk koneksi ke server AS400 pilih saja IBM DB2 UDB for iSeries IBMDA400 OLE DB Provider (biasanya yang paling atas) kemudian klik [Next >>]

Disini merupakan parameter koneksi ke AS400 antara lain: IP Server, User, Password, Initial Catalog dan pastikan semuanya terisi. Contoh pengisian seperti dibawah, jika sudah diisi semua kemudian klik [Test Connection] dan pastikan muncul tampilan Test connection succeeded. seperti gambar berikut

Konfirmasi tersebut menandakan bahwa koneksi ke server AS400 telah berhasil, tinggal seting database yang kita gunakan. Caranya pilih saja Tab All kemudian klik ganda di baris Catalog Library List, kemudian isikan nama database yang anda gunakan.

Jika sudah semuanya klik [OK], kemudian kembali lagi ke Property Pages komponen ADODC seperti tampilan berikut

Nah, ini yang kita tunggu. Sebenarnya tujuan saya adalah meng-copy tulisan yang ada di bagian Use Connection String, silakan di blok saja kemudian copy.
Sekarang saatnya kita mulai membuat program, pertama kita tambahkan ke project kita sebuah modul seperti berikut

Tambahkan kode berikut ke modul

Variabel Cn adalah variabel koneksi, dan Rs adalah recordsetnya, dan yang hasil dari Use Connection String dari ADODC tadi (masih ingat kan…?) di paste saja dibagian Cn.Open “…”. Biar datanya bisa ditampilkan di DataGrid yang kita tambahkan tadi maka CursorLocation pastikan diset ke adUseClient.

Tinggal kita tampilkan ke Formnya, di form tambahkan componen DataGrid dan kodenya kurang lebihnya seperti berikut

Nah, program kita siap dijalankan. Tekan F5. Kurang lebihnya tampilannya seperti berikut.

Ini dia program kita sudah hampir jadi, tinggal dipoles sedikit.

Selamat Berjuang…

Share

You may also like...