Koneksi Database dengan ADO Connection String

Bagi programmer yang terbiasa melakukan segalanya dengan cara manual (tanpa wizard) kadang-kadang terganggu dengan cara Microsoft “memudahkan para pengembang” dengan menyediakan banyak wizard yang bertele-tele hanya untuk melakukan satu tugas. Parahnya, terkadang wizard ini malah mengulur-ulur waktu karena harus mempelajari option-option yang diberikan.
Padahal jika di-coding secara manual, permasalahan yang sama bisa selesai dalam waktu beberapa menit. Salah satu contohnya adalah mengkoneksikan program dengan database server. Microsoft menyediakan wizard melalui IDE Visual Studio 2005 nya. Bagi beberapa orang mungkin wizard ini lumayan membantu (karena tidak usah banyak-banyak coding, tentunya) tapi bagi saya hal ini kurang memuaskan. Melakukannya dengan cara manual membuat saya lebih memahami konsep koneksi database ini dan lebih banyak yang bisa saya kustomisasi sendiri dibandingkan dengan menggunakan wizard.
Langkah-langkah melakukan koneksi dengan ConnectionString ini lumayan mudah, mari kita mulai.
1. Buat satu Modul yang berisi variabel public yang dapat diakses oleh semua class. Variabel inilah yang diisi dengan connection string sesuai dengan jenis database server yang akan dikoneksikan. Dalam contoh ini saya membuat satu Module bernama “Connection”.
Berikut isi modulnya :

Module ConnectionPublic ModConnectionString As String = _
"Driver={MySQLODBC5.1Driver}; _
Server=localhost; _
Database=db_windowsapplication; _
User=root; _
Password=; _
Option=4;"End Module

ConnectionString diatas khusus digunakan untuk database server MySQL versi 5 for Win32. Untuk daftar lengkap ConnectionString dengan berbagai macam database server dapat anda lihat di http://www.codeproject.com/database/connectionstrings.asp

2. Untuk percobaan, mari kita buat sebuah class berisi function yang berfungsi untuk mengambil data pada tabel siswa, dan menghasilkan return sebuah array yang berisi data hasil query.

Imports System.Data.OdbcPublicClass ProsesData
'ambil data dari tabel student
'kemudian passing hasilnya ke array sebagai nilai balikFunction viewStudent()
As Array
Dim sql As String = "SELECT * FROM student WHERE SID = '1'"
Dim hasil(5) As String
Dim i As Integer = 0
Dim conn As New OdbcConnection(connectionString)
Dim reader As OdbcDataReader
Try
conn.Open()
Dim cmd As OdbcCommand = New OdbcCommand(sql, conn)
reader = cmd.ExecuteReader()
If reader.Read Then
If reader.HasRows = True Then
hasil(0) = reader.GetString(0)
hasil(1) = reader.GetString(1)
hasil(2) = reader.GetString(2)
hasil(3) = reader.GetString(3)
hasil(4) = reader.GetString(4)
End If
End If
Catch ex As Exception
MsgBox(ex.Message & " SQL : " & sql)
Finally conn.Close()

End Try

Return hasil
End Function
End Class

3. Dari fungsi diatas, beberapa baris yang penting diamati adalah :
Imports System.Data.Odbc
B ini digunakan untuk menyatakan bahwa kita menggunakan namespace ODBC untuk koneksi database kita. Ini penting agar kita dapat mendeklarasikan object dari class OdbcConnection yang akan kita gunakan selanjutnya.

Dim conn As New OdbcConnection(ModConnectionString)
B ini mendeklarasikan object “conn” dari class “OdbcConnection” dengan memasukkan parameter ConnectionString “ModConnectionString” yang telah kita buat pada modul “Connection” sebelumnya.