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

Post a Response