Koneksi VB 6.0 dengan FireBird

Assalamu’alaikum wr. wb.
Firebird merupakan database open source alias gratis untuk dibagikan dan dikembangkan sendiri tanpa ada batas waktu. Namun walaupun gratis, database firebird tidak kalah kehandalannya dengan database lainnya seperti MySQL, SQL Server dan lainnya. Umumnya database Firebird digunakan untuk membangun aplikasi dari Delphi, namun kali ini akan kita bahas koneksi VB 6.0 dengan Firebird sehingga para programmer Visual Basic 6.0 tetap dapat menggunakan database firebird ini.

1. Pastikan Microsoft Visual Basic 6.0 dan Database Firebird sudah terinstal di komputer anda. (saya menggunakan Firebird 2.5 dalam contoh).
2. Buatlah project baru kemudian tambahkan referensi “Microsoft Activex Data Objects 2.8 Library“.
3. Tambahkan modul dalam project baru anda, kemudian ketik script berikut ini:

Global koneksi As Connection
Global Comm As Command, Comm2 As Command
Global rc As Recordset
Global sql As String

Public Sub Buka()
On Error GoTo Salah
Set koneksi = New Connection
Set Comm = New Command
Set rc = New Recordset
With koneksi
.Provider = “MSDASQL.1″
.ConnectionString = “DRIVER=Firebird/InterBase(r) driver;UID=NamaUser;PWD=PasswordUser;DBNAME=NamaServer:NamaDatabase;”
.Open
End With
Comm.ActiveConnection = koneksi
Comm.CommandText = sql
Comm.Prepared = True
Comm.Parameters.Refresh
Set rc = Comm.Execute
sql = “”
Exit Sub
Salah:
End Sub

Public Sub Tutup()
koneksi.Close
Set koneksi = Nothing
End Sub

Contoh untuk membuka data tabel user:

Private Sub Form_Load()
sql = “select*from t_user”
Buka
MsgBox “nama usernya adalah:” & rc!nmuser
Tutup
End Sub

Selamat mencoba….