Implementing Automatic Application Failover

wow…. sudah lama gak ngeblog. udah kangen banget pingin bisa ngeblog lagi, namun karena kesibukan kantor jadinya baru sekarang saya bisa nulis lagi.

Tulisan kali ini adalah hasil eksperimen saya terhadap pertanyaan dari salahsatu member di milis SQLServer-indo mengenai apakah aplikasi Visual Basic 6 dapat beradaptasi dengan fitur Database mirroring yang ada di SQL Server 2005 keatas.

Makin terpancing lagi karena di kantor saya sudah menerapkan Database Mirroring, namun aplikasi di client masih menggunakan Visual Foxpro. Jadi Apakah aplikasi Visual Basic 6 dan Visual Foxpro dapat beradaptasi dengan fitur Database Mirroring di SQL Server 2005 keatas ?

Jawabannya adalah …… BISA!

So, ga perlu deh migrasi ke .NET. Project berikutnya aja deh kalo tim saya mau pake .NET 

Langkah untuk membuat aplikasi VB6 anda dapat menjadi application failover adalah :

1. Pastikan SQL Server Browser Services di kedua server (principal dan Mirror) sudah berjalan.
2. pada sisi client sudah terinstal SQL Server Native Component yang dapat di didownload disini (untuk SQL Server 2008):
   X86 Package (sqlncli.msi) – 4549 KB
   X64 Package (sqlncli.msi) – 7963 KB
   IA64 Package (sqlncli.msi) – 11112 KB
3. Gunakan connectionstring seperti contoh berikut (code ini untuk di vb6):

   Public Con As ADODB.Connection

    Sub OpenSQLCOnnection()

       Const CLOSED As Integer = 0

           If Con.State = CLOSED Then

           constr = "Provider=SQLNCLI10;"

           constr = constr & "Integrated Security=SSPI;"

           constr = constr & "Initial Catalog=AdventureWorks;"

           constr = constr & "Data Source=Suherman-PC\SS2008R2;"

           constr = constr & "FailoverPartner=Suherman-PC\MIRRORSERVER;"

           constr = constr & "DataTypeCompatibility=80;"

           constr = constr & "Network=dbmssocn;"

           Con.Open constr

           End If

   End Sub
4. Selesai.

Yup, sesederhana itu aja. kita tinggal mengganti Provider untuk connectionstringnya dan menambah beberapa atribut di connectionstringnya.

Berikut ini saya sertakan juga sample application failover yg dibuat dari VB6 yang ddapat didownload disini. dan sample yang dibuat dengan VB.NET yang dapat didownload disini.

Semoga bermanfaat.