Mudah-mudahan tutorial Visual Basic 6.0 – Mengambil sintax “Connection String” ini bermanfaat
Untuk instalasi Visual Basic silakan cek disini, bisa dilihat juga instalasi SP6 disini
Memulai Visual Basic 6.0
Database disini yang digunakan adalah DB2 dengan server AS400, untuk koneksi ke database (DB2 – AS400) kita mulai dengan membuka Visual Basic 6.0 pilih saja Standard EXE, kemudian kilik Open dan seperti biasanya tampilan seperti dibawah ini :
Tambah Komponen
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 :
Konfigurasi Komponen
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 yaitu Mengambil sintax “Connection String”. Sebenarnya tujuan saya adalah meng-copy tulisan yang ada di bagian Use Connection String, silakan di blok saja kemudian copy.
Memulai Coding
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.
