Menu Horisontal

Minggu, 30 September 2012

Implementing Automatic Application Failover

Sumber : http://sqlserver-indo.org/blogs/suherman/archive/2011/06/18/implementing-automatic-application-failover.aspx

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 Smile
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.

Tidak ada komentar: