{"id":55,"date":"2014-01-02T22:07:24","date_gmt":"2014-01-02T14:07:24","guid":{"rendered":"http:\/\/suherman.asia\/w2\/?p=55"},"modified":"2014-01-02T22:07:24","modified_gmt":"2014-01-02T14:07:24","slug":"implementing-automatic-application-failover","status":"publish","type":"post","link":"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html","title":{"rendered":"Implementing Automatic Application Failover"},"content":{"rendered":"

wow\u2026. sudah lama gak ngeblog. udah kangen banget pingin bisa ngeblog lagi, namun karena kesibukan kantor jadinya baru sekarang saya bisa nulis lagi.<\/p>\n

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.<\/p>\n

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 ?<\/p>\n

Jawabannya adalah \u2026\u2026 BISA!<\/strong><\/p>\n

So, ga perlu deh migrasi ke .NET. Project berikutnya aja deh kalo tim saya mau pake .NET \"Smile\"<\/p>\n

Langkah untuk membuat aplikasi VB6 anda dapat menjadi application failover adalah :<\/p>\n

    \n
  1. Pastikan SQL Server Browser Services<\/strong> di kedua server (principal dan Mirror) sudah berjalan.\n
  2. pada sisi client sudah terinstal SQL Server Native Component yang dapat di didownload disini (untuk SQL Server 2008):\n

    X86 Package<\/a><\/b> (sqlncli.msi) – 4549 KB
    X64 Package<\/a><\/b> (sqlncli.msi) – 7963 KB
    IA64 Package<\/a><\/b> (sqlncli.msi) – 11112 KB <\/p>\n

  3. Gunakan connectionstring seperti contoh berikut (code ini untuk di vb6):\n
    \n
    \n
    Public<\/span> Con As<\/span> ADODB.Connection<\/pre>\n
    <\/p>\n
     Sub<\/span> OpenSQLCOnnection()<\/pre>\n
    <\/p>\n
        Const<\/span> CLOSED As<\/span> Integer<\/span> = 0<\/pre>\n
    <\/p>\n
            If<\/span> Con.State = CLOSED Then<\/span><\/pre>\n
    <\/p>\n
            constr = \"Provider=SQLNCLI10;\"<\/span><\/pre>\n
    <\/p>\n
            constr = constr & \"Integrated Security=SSPI;\"<\/span><\/pre>\n
    <\/p>\n
            constr = constr & \"Initial Catalog=AdventureWorks;\"<\/span><\/pre>\n
    <\/p>\n
            constr = constr & \"Data Source=Suherman-PC\\SS2008R2;\"<\/span><\/pre>\n
    <\/p>\n
            constr = constr & \"FailoverPartner=Suherman-PC\\MIRRORSERVER;\"<\/span><\/pre>\n
    <\/p>\n
            constr = constr & \"DataTypeCompatibility=80;\"<\/span><\/pre>\n
    <\/p>\n
            constr = constr & \"Network=dbmssocn;\"<\/span><\/pre>\n
    <\/p>\n
            Con.Open constr<\/pre>\n
    <\/p>\n
            End<\/span> If<\/span><\/pre>\n
    <\/p>\n
    End<\/span> Sub<\/span><\/pre>\n
    <\/div>\n<\/div>\n
  4. Selesai. <\/li>\n<\/ol>\n
    Yup, sesederhana itu aja. kita tinggal mengganti Provider untuk connectionstringnya dan menambah beberapa atribut di connectionstringnya.<\/p>\n
    Berikut ini saya sertakan juga sample application failover yg dibuat dari VB6 yang ddapat didownload disini<\/a>. dan sample yang dibuat dengan VB.NET yang dapat didownload disini<\/a>.<\/p>\n
    Semoga bermanfaat.<\/p>\n","protected":false},"excerpt":{"rendered":"
    wow\u2026. 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 \u2026<\/p>\n
     Continue reading<\/i><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2],"tags":[19],"class_list":["post-55","post","type-post","status-publish","format-standard","hentry","category-sql-server","tag-automatic-failover"],"yoast_head":"\nImplementing Automatic Application Failover - Suherman Blog<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Implementing Automatic Application Failover - Suherman Blog\" \/>\n<meta property=\"og:description\" content=\"wow\u2026. 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 \u2026 Continue reading\" \/>\n<meta property=\"og:url\" content=\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html\" \/>\n<meta property=\"og:site_name\" content=\"Suherman Blog\" \/>\n<meta property=\"article:publisher\" content=\"https:\/\/www.facebook.com\/emantin34\" \/>\n<meta property=\"article:author\" content=\"https:\/\/www.facebook.com\/emantin34\" \/>\n<meta property=\"article:published_time\" content=\"2014-01-02T14:07:24+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/mugi.or.id\/cfs-file.ashx\/__key\/CommunityServer.Blogs.Components.WeblogFiles\/suherman\/wlEmoticon_2D00_smile_5F00_224C3760.png\" \/>\n<meta name=\"author\" content=\"admin\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"admin\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"1 minute\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#article\",\"isPartOf\":{\"@id\":\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html\"},\"author\":{\"name\":\"admin\",\"@id\":\"http:\/\/suherman.asia\/w2\/#\/schema\/person\/63654a129ee88012961c1a00415967dc\"},\"headline\":\"Implementing Automatic Application Failover\",\"datePublished\":\"2014-01-02T14:07:24+00:00\",\"mainEntityOfPage\":{\"@id\":\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html\"},\"wordCount\":231,\"commentCount\":0,\"publisher\":{\"@id\":\"http:\/\/suherman.asia\/w2\/#\/schema\/person\/63654a129ee88012961c1a00415967dc\"},\"image\":{\"@id\":\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#primaryimage\"},\"thumbnailUrl\":\"http:\/\/mugi.or.id\/cfs-file.ashx\/__key\/CommunityServer.Blogs.Components.WeblogFiles\/suherman\/wlEmoticon_2D00_smile_5F00_224C3760.png\",\"keywords\":[\"Automatic Failover\"],\"articleSection\":[\"SQL Server\"],\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html\",\"url\":\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html\",\"name\":\"Implementing Automatic Application Failover - Suherman Blog\",\"isPartOf\":{\"@id\":\"http:\/\/suherman.asia\/w2\/#website\"},\"primaryImageOfPage\":{\"@id\":\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#primaryimage\"},\"image\":{\"@id\":\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#primaryimage\"},\"thumbnailUrl\":\"http:\/\/mugi.or.id\/cfs-file.ashx\/__key\/CommunityServer.Blogs.Components.WeblogFiles\/suherman\/wlEmoticon_2D00_smile_5F00_224C3760.png\",\"datePublished\":\"2014-01-02T14:07:24+00:00\",\"breadcrumb\":{\"@id\":\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#primaryimage\",\"url\":\"http:\/\/mugi.or.id\/cfs-file.ashx\/__key\/CommunityServer.Blogs.Components.WeblogFiles\/suherman\/wlEmoticon_2D00_smile_5F00_224C3760.png\",\"contentUrl\":\"http:\/\/mugi.or.id\/cfs-file.ashx\/__key\/CommunityServer.Blogs.Components.WeblogFiles\/suherman\/wlEmoticon_2D00_smile_5F00_224C3760.png\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"http:\/\/suherman.asia\/w2\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Implementing Automatic Application Failover\"}]},{\"@type\":\"WebSite\",\"@id\":\"http:\/\/suherman.asia\/w2\/#website\",\"url\":\"http:\/\/suherman.asia\/w2\/\",\"name\":\"Suherman Blog\",\"description\":\"Just Another Geek Site\",\"publisher\":{\"@id\":\"http:\/\/suherman.asia\/w2\/#\/schema\/person\/63654a129ee88012961c1a00415967dc\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"http:\/\/suherman.asia\/w2\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":[\"Person\",\"Organization\"],\"@id\":\"http:\/\/suherman.asia\/w2\/#\/schema\/person\/63654a129ee88012961c1a00415967dc\",\"name\":\"admin\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"http:\/\/suherman.asia\/w2\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/secure.gravatar.com\/avatar\/eed6f889b4c2af2a8c18cb3bf63de6a4?s=96&d=retro&r=g\",\"contentUrl\":\"https:\/\/secure.gravatar.com\/avatar\/eed6f889b4c2af2a8c18cb3bf63de6a4?s=96&d=retro&r=g\",\"caption\":\"admin\"},\"logo\":{\"@id\":\"http:\/\/suherman.asia\/w2\/#\/schema\/person\/image\/\"},\"sameAs\":[\"http:\/\/suherman.asia\",\"https:\/\/www.facebook.com\/emantin34\",\"https:\/\/x.com\/emantin34\"],\"url\":\"http:\/\/suherman.asia\/w2\/author\/admin\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Implementing Automatic Application Failover - Suherman Blog","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html","og_locale":"en_US","og_type":"article","og_title":"Implementing Automatic Application Failover - Suherman Blog","og_description":"wow\u2026. 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 \u2026 Continue reading","og_url":"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html","og_site_name":"Suherman Blog","article_publisher":"https:\/\/www.facebook.com\/emantin34","article_author":"https:\/\/www.facebook.com\/emantin34","article_published_time":"2014-01-02T14:07:24+00:00","og_image":[{"url":"http:\/\/mugi.or.id\/cfs-file.ashx\/__key\/CommunityServer.Blogs.Components.WeblogFiles\/suherman\/wlEmoticon_2D00_smile_5F00_224C3760.png","type":"","width":"","height":""}],"author":"admin","twitter_misc":{"Written by":"admin","Est. reading time":"1 minute"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#article","isPartOf":{"@id":"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html"},"author":{"name":"admin","@id":"http:\/\/suherman.asia\/w2\/#\/schema\/person\/63654a129ee88012961c1a00415967dc"},"headline":"Implementing Automatic Application Failover","datePublished":"2014-01-02T14:07:24+00:00","mainEntityOfPage":{"@id":"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html"},"wordCount":231,"commentCount":0,"publisher":{"@id":"http:\/\/suherman.asia\/w2\/#\/schema\/person\/63654a129ee88012961c1a00415967dc"},"image":{"@id":"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#primaryimage"},"thumbnailUrl":"http:\/\/mugi.or.id\/cfs-file.ashx\/__key\/CommunityServer.Blogs.Components.WeblogFiles\/suherman\/wlEmoticon_2D00_smile_5F00_224C3760.png","keywords":["Automatic Failover"],"articleSection":["SQL Server"],"inLanguage":"en-US","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#respond"]}]},{"@type":"WebPage","@id":"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html","url":"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html","name":"Implementing Automatic Application Failover - Suherman Blog","isPartOf":{"@id":"http:\/\/suherman.asia\/w2\/#website"},"primaryImageOfPage":{"@id":"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#primaryimage"},"image":{"@id":"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#primaryimage"},"thumbnailUrl":"http:\/\/mugi.or.id\/cfs-file.ashx\/__key\/CommunityServer.Blogs.Components.WeblogFiles\/suherman\/wlEmoticon_2D00_smile_5F00_224C3760.png","datePublished":"2014-01-02T14:07:24+00:00","breadcrumb":{"@id":"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html"]}]},{"@type":"ImageObject","inLanguage":"en-US","@id":"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#primaryimage","url":"http:\/\/mugi.or.id\/cfs-file.ashx\/__key\/CommunityServer.Blogs.Components.WeblogFiles\/suherman\/wlEmoticon_2D00_smile_5F00_224C3760.png","contentUrl":"http:\/\/mugi.or.id\/cfs-file.ashx\/__key\/CommunityServer.Blogs.Components.WeblogFiles\/suherman\/wlEmoticon_2D00_smile_5F00_224C3760.png"},{"@type":"BreadcrumbList","@id":"http:\/\/suherman.asia\/w2\/implementing-automatic-application-failover.html#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"http:\/\/suherman.asia\/w2"},{"@type":"ListItem","position":2,"name":"Implementing Automatic Application Failover"}]},{"@type":"WebSite","@id":"http:\/\/suherman.asia\/w2\/#website","url":"http:\/\/suherman.asia\/w2\/","name":"Suherman Blog","description":"Just Another Geek Site","publisher":{"@id":"http:\/\/suherman.asia\/w2\/#\/schema\/person\/63654a129ee88012961c1a00415967dc"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"http:\/\/suherman.asia\/w2\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":["Person","Organization"],"@id":"http:\/\/suherman.asia\/w2\/#\/schema\/person\/63654a129ee88012961c1a00415967dc","name":"admin","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"http:\/\/suherman.asia\/w2\/#\/schema\/person\/image\/","url":"https:\/\/secure.gravatar.com\/avatar\/eed6f889b4c2af2a8c18cb3bf63de6a4?s=96&d=retro&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/eed6f889b4c2af2a8c18cb3bf63de6a4?s=96&d=retro&r=g","caption":"admin"},"logo":{"@id":"http:\/\/suherman.asia\/w2\/#\/schema\/person\/image\/"},"sameAs":["http:\/\/suherman.asia","https:\/\/www.facebook.com\/emantin34","https:\/\/x.com\/emantin34"],"url":"http:\/\/suherman.asia\/w2\/author\/admin"}]}},"_links":{"self":[{"href":"http:\/\/suherman.asia\/w2\/wp-json\/wp\/v2\/posts\/55","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/suherman.asia\/w2\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/suherman.asia\/w2\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/suherman.asia\/w2\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/suherman.asia\/w2\/wp-json\/wp\/v2\/comments?post=55"}],"version-history":[{"count":1,"href":"http:\/\/suherman.asia\/w2\/wp-json\/wp\/v2\/posts\/55\/revisions"}],"predecessor-version":[{"id":56,"href":"http:\/\/suherman.asia\/w2\/wp-json\/wp\/v2\/posts\/55\/revisions\/56"}],"wp:attachment":[{"href":"http:\/\/suherman.asia\/w2\/wp-json\/wp\/v2\/media?parent=55"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/suherman.asia\/w2\/wp-json\/wp\/v2\/categories?post=55"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/suherman.asia\/w2\/wp-json\/wp\/v2\/tags?post=55"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}