Mengakses multi database dengan satu Namespace

Bagi Anda yang suka gonta ganti pasangan database mungkin bisa mencoba namespace yang satu ini.

System.Data.Common yuph itulah nama namespacenya, namespace super yang di dalamnya terdapat class-class generic untuk mengakses database.

Dengan memanfaatkan class-class generic tersebut jika terjadi perubahan database kita cukup merubah beberapa baris kode.

Sebelumnya kita lihat dulu bagaimana cara mengakses database tanpa menggunakan namespace ini.

Menembus pertahanan database Firebird yang diproteksi

Sebelumnya saya mohon maaf jika ada pihak yang tidak berkenan atau merasa dirugikan dengan postingan kali ini, dan jika memang ada silahkan menghubungi Admin dan postingan ini akan dihapus.

Salah seorang pengunjung bertanya “bagaimana cara mengekspor data-data yang ada di database Zahir Accounting ke Ms Excel“.

Untuk bisa mengekspornya tentu saja kita harus tau dulu isi databasenya seperti apa terutama tabelnya, nah untuk demo Zahir Accounting sendiri bisa di download disini.

Backup dan Restore Database Firebird

Dalam pembuatan aplikasi biasanya kita (terutama saya ) selalu menyepelekan fitur yang satu ini, biasanya klo ditanya tentang fitur yang satu ini jawaban kita lebih kurang “udah copas aja databasenya trus dicompress, gampangkan” .

Tapi.. akhirnya saya kena batunya juga , beberapa waktu lalu saya dapat klien yang ngotot banget untuk dibuatkan fitur ini dan untungnya firebird sudah menyediakan tool untuk menghandle masalah ini yaitu dengan menggunakan tool gbak.

Pada artikel pertama ini kita akan bahas dulu penggunaan tool ini via command prompt, dan pada artikel berikutnya (insya Allah klo saya sempat ) kita akan bahas penggunaannya langsung dari aplikasi.

Rutin patch database

Kesibukan “coding demi sesuap nasi” he he he , sempat membuat blog ini enggak keurus.

Untungnya ada beberapa pengunjung yang berbaik hati untuk meninggalkan komennya sehingga saya pun jadi rutin untuk mengecek blog ini.

Melakukan perubahan struktur database merupakan pekerjaan sampingan yang mau tidak mau harus kita terima dengan ikhlas jika membuat aplikasi terutama aplikasi masal, karena biasanya aplikasi tipe ini sering sekali terjadi perubahan untuk memenuhi kebutuhan klien.

Contoh pemanggilan store procedure dan view firebird dari aplikasi

Ini merupakan artikel puncax dari pengenalan firebird yang dilanjutkan dengan pembuatan store procedure (SP), trigger dan view dan kini saat kita membahas penggunaan SP dan view.

Untuk mengakses firebird dari aplikasi kita membutuhkan Firebird ODBC yang bisa didownload disini

1. Store Procedure

Disini kita akan mengakses SP proc_add_supplier yang mempunyai tiga parameter yaitu : nama, alamat dan telepon

Membuat store procedure, trigger dan view di Firebird

Menyambung artikel sebelumnya kali ini kita akan membuat store procedure, trigger dan view di Firebird dengan bantuan tool IBExpert.

Secara ringkas definisi store procedure, trigger dan view sebagai berikut :
1. Store procedure = Sekumpulan perintah yang mempunyai nama dan disimpan sebagai objek dari database yang nantinya bisa kita panggil dari aplikasi

Berkenalan dengan database Firebird

Firebird merupakan RDMS open source yang dikembangkan dari Interbase 6 versi open source milik Borland. Firebird berjalan baik di Linux, Windows, maupun pada sejumlah platform Unix, selain itu kita juga dimudahkan untuk mengakses Firebird dengar tersedianya Firebird ODBC.

Firebird juga mempunyai fitur-fitur database server seperti :
1. Trigger
2. Store Procedure
3. View

Pada artikel kali ini saya akan membahas bagai mana membuat database di Firebird berikut tabelnya, ada 2 cara yang bisa kita gunakan :
1. Menggunakan utility isql (sama seperti utility mysql)
2. Menggunakan database manager (disini saya menggunakan IBExpert)

Membuat paket instalasi vb + firebird dengan inno setup

Menyambung postingan saya sebelumnya Membuat paket instalasi vb + mysql dengan inno setup kali ini database yang kita paketkan adalah Firebird. Adapun hal-hal yang perlu dipersiapkan :

1. File Setup Firebird (saat postingan ini dibuat versi Firebird-2.1.3.18185_0_Win32)
2. File OdbcFb32.dll hasil dari instalasi Firebird ODBC yang ada di c:\windows\system32
3. Inno Setup

Membuat fungsi koneksi untuk beberapa database (Firebird, MySQL, Ms SQL Server dan Ms Access)

1. Tambahkan sebuah modul dan copy paste kode berikut :

Public conn As ADODB.Connection

Public Enum TIPE_DATABASE
   FIREBIRD = 1
   MYSQL = 2
   SQLSERVER = 3
   MSACCESS = 4
End Enum

Public Function connToDB(ByVal tipeDb As TIPE_DATABASE, Optional ByVal serverName As String = "", _
   Optional ByVal userName As String = "", Optional ByVal userPass As String = "", _
   Optional ByVal dbPath As String = "", Optional ByVal dbName As String = "") As Boolean

   Dim strCon As String

   On Error GoTo errHandle

   Select Case tipeDb
      Case FIREBIRD
         strCon = "DRIVER=Firebird/Interbase(r) Driver;UID=" & userName & ";PWD=" & userPass & ";" & _
         "DBNAME=" & serverName & ":" & dbPath & "\" & dbName & ""

      Case MYSQL
         strCon = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & serverName & ";DATABASE=" & dbName & ";" & _
         "UID=" & userName & ";PWD=" & userPass & ";OPTION=3"

      Case SQLSERVER
         strCon = "Provider=SQLOLEDB.1;User ID=" & userName & ";Pwd=" & userPass & ";" & _
         "Initial Catalog=" & dbName & ";Data Source=" & serverName & ""

      Case MSACCESS
        If Len(userPass) > 0 Then
           strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dbPath & "\" & dbName & ";" & _
           "Jet OLEDB:Database Password=" & userPass & ""
        Else
           strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dbPath & "\" & dbName & ""
        End If
   End Select

   Set conn = New ADODB.Connection
   conn.ConnectionString = strCon
   conn.Open

   connToDB = True

   Exit Function
errHandle:
   connToDB = False
End Function

2. Pada form tambahkan sebuah objek command dan set properties Name = cmdTesKoneksi

copy paste kode berikut :

Private Sub cmdTesKoneksi_Click()
   Dim result  As Boolean

   'Firebird
   result = connToDB(FIREBIRD, "127.0.0.1", "SYSDBA", "masterkey", "d:\data", "db_akademik.fdb")
   Debug.Print result

   'MySQL
   result = connToDB(MYSQL, "127.0.0.1", "root", "masterkey", , "db_akademik")
   Debug.Print result

   'SQL Server 2000
   result = connToDB(SQLSERVER, "127.0.0.1", "sa", "masterkey", , "db_akademik")
   Debug.Print result

   'Ms Access - tanpa password
   result = connToDB(MSACCESS, , , , "d:\data", "db_akademik.mdb")
   Debug.Print result

   'Ms Access - menggunakan password
   result = connToDB(MSACCESS, , , "masterkey", "d:\data", "db_akademik.mdb")
   Debug.Print result
End Sub

Untuk nilai semua parameter fungsi connToDB disesuaikan dengan kondisi komputer Anda. Selamat mencoba