Koneksi Database Buka Tutup Visual Basic 6.0
Dalam melakukan koneksi ke database dari sebuah aplikasi baiknya dilakukan sesuai kebutuhan program, artinya lakukan koneksi database manakala membutuhkan untuk memproses data saja, seperti melakukan query untuk menampilkan data, melakukan manipulasi data (INSERT, UPDATE atau DELETE). Setelah proses selesai putus koneksi ke database.
Pada aplikasi yang dibangun dengan Visual Basic 6.0, yang harus anda lakukan adalah membuat sebuah procedure untuk koneksi database dimana procedure ini mempunyai argumen bertipe data boolean dimana jika argumen diberikan adalah TRUE maka lakukan koneksi dan sebaliknya jika argumen yang diberikan FALSE akan menutup koneksi.
Procedure dbKonek, pada Module
Agar procedure dapat dikenal diseluruh aplikasi atau dapat diakses oleh kode-kode program yang terdapat dalam form maka procedure diletakan di Module. Pada contoh kode berikut ini diasumsikan anda telah membuat Data Source Name melalui ODBC 32 bit ke database SQL Server, dengan nama DSN dsnku :
Public cnkoneksi As ADODB.Connection Sub dbKonek(status As Boolean) Set cnkoneksi = New ADODB.Connection With cnkoneksi If status = True Then ‘jika ingn koneksi dibuka .Open “DSN=dsnku;Uid=sa;Pwd=oke” Else ‘ jika ingin di tutup If .State = True Then ‘ cek apakah koneksi terbuka .Close ‘ close connection End If End If End With End Sub
Implementasi
1. Berikut implementasi koneksi database yang dibutuhkan untuk menampilkan data dari suatu table database kedalam suatu DataGrid yang terhubung ke object ADODC, yang dieksekusi pada saat Form Aktif
Private Sub Form_Activate() Dim sql As String sql = “SELECT * FROM anggota ” dbKonek ( True ) ‘ buka koneksi With adodc1 .ConnectionString = cnkoneksi ‘ object koneksi .RecordSource = sql .CommandType = adCmdText .Refresh End With dbKonek ( False ) ‘ tutup koneksi End Sub
2. Berikut petikan kode program implementasi koneksi database pada saat melakukan penambahan data ke sebuah table
Dim sql As String sql = “INSERT INTO produk (kode,nama,stok) VALUES (’TV01′,’Televisi’,10)” dbKonek (True) ‘ buka koneksi cnkoneksi.Execute (sql) dbKonek (False) ‘ tutup koneksi setelah selesai eksekusi query