STMIKBG MATARAM

Untuk kali ini kita akan membahas sedikit tentang konsep ADO ( Bukan ADO .Net ), ADO ( Active X Data Object ) adalah Data adapter universal dari microsoft, konsisten dan stabil dalam pengambilan data menggunakan OLE DB. Dan dengan teknologi ini kita bisa membuka banyak data source dari berbagai tipe, seperti MS-SQL Server, MySQL, Oracle, Sybase.

Dengan kemudahan saat penggunaannya, banyak programer yang menggunakan komponen ini, akan tetapi perlu kita ingat bahwa ketika kita membuka koneksi menuju database dengan mengunakan ADO ini, mengingat karakteristik koneksi yang dibuka adalah realtime alias estabilished maka kita perlu membuat sebuah metode open connection yang benar untuk aplikasi kita.

Coba kita perhatikan beberapa kekeliruan yang sering kita buat pada aplikasi seperti dibawah ini

‘Form Penjualan

Dim Conn As ADODB.Connection

Form_Load()

Set Conn = Nothing
Set Conn = New ADODB.Connection
Conn.ConnectionString = “Provider=sqloledb;” & _
“Data Source=” + cServerName + “;” & _
“Initial Catalog=” + cDBName + “;User Id=” + cUserId + “;” & _
“Password=” + cPass

End Sub

Dari kode diatas kita sering mendeklarasikan ulang koneksi disetiap form, bayangkan jika anda membuka banyak form, ada berapa koneksi yang anda buka sekaligus? Dan jika ada sejumlah komputer dalam network yang menggunakan program kita, dan cara kerjanya sama, masing-masing beberapa client membuka form maka akan ada beberapa koneksi yang terbuka untuk mengakses database pada server? Tentu hal ini akan sangat membebani server. Dan juga kebanyakan programer VB menggunakan ADO Data Control untuk membuka tabel, Control ini akan membuka satu koneksi realtime untuk tiap tabelnya, jika kita akan mengakses banyak tabel tentunya dengan sendirinya akan terbuka banyak koneksi juga secara otomatis.

Perlu diingat!!!

Usahakan dalam pembuatan aplikasi kita meminimalkan sekali penggunaan resource, baik resource local pada komputer kita, berupa addressing memory maupun resource jaringan.

Untuk solusi diatas kita akan coba buat sebuah module public untuk koneksi database yang bisa digunakan oleh semua form.

‘Buat module baru ( mymodule.bas )

Public Conn As ADODB.Connection

Public Function OpenConnection()

Set Conn = Nothing
Set Conn = New ADODB.Connection
Conn.ConnectionString = “Provider=sqloledb;” & _
“Data Source=” + cServerName + “;” & _
“Initial Catalog=” + cDBName + “;User Id=” + cUserId + “;” & _
“Password=” + cPass
End Function

Public Sub Main()

‘Buka koneksi database sebagai global variabel

OpenConnection

Frm_Login.Show ‘Buka form lain yang kita set sebagai form awal

End Sub

Dengan metode diatas akan terbuka satu koneksi kedatabase, yang bisa digunakan oleh semua form, dan tentunya dengan cara ini kita telah melakukan optimasi metode dalam penanganan koneksi.