{"id":1922,"date":"2014-04-16T14:17:14","date_gmt":"2014-04-16T05:17:14","guid":{"rendered":"http:\/\/www.climb.co.jp\/blog_dbmoto\/?p=1922"},"modified":"2019-09-05T13:18:30","modified_gmt":"2019-09-05T04:18:30","slug":"2%e3%81%a4%e3%81%ae%e3%82%bd%e3%83%bc%e3%82%b9%e3%83%86%e3%83%bc%e3%83%96%e3%83%ab%e3%81%8b%e3%82%89%e3%82%bf%e3%83%bc%e3%82%b2%e3%83%83%e3%83%88%e3%81%ae%e4%b8%80%e3%81%a4%e3%81%ae%e3%83%ac%e3%82%b3","status":"publish","type":"post","link":"https:\/\/www.climb.co.jp\/blog_dbmoto\/archives\/1922","title":{"rendered":"2\u3064\u306e\u30bd\u30fc\u30b9\u30c6\u30fc\u30d6\u30eb\u304b\u3089\u30bf\u30fc\u30b2\u30c3\u30c8\u306e\u4e00\u3064\u306e\u30ec\u30b3\u30fc\u30c9\u306b\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3"},"content":{"rendered":"\n

2\u3064\u306e\u30c6\u30fc\u30d6\u30eb\u30921\u3064\u306e\u30c6\u30fc\u30d6\u30eb\u306b\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3059\u5834\u5408\u306b\u306f\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u624b\u9806\u3067\u5b9f\u65bd\u3057\u307e\u3059\u3002
1\uff0e\u4e00\u3064\u306e\u30bf\u30fc\u30b2\u30c3\u30c8\u30c6\u30fc\u30d6\u30eb\u306b\u5bfe\u3057\u3066\u3001\u5404\u30bd\u30fc\u30b9\u30c6\u30fc\u30d6\u30eb\u304b\u3089\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u4f5c\u6210\u3057\u307e\u3059\u3002
2\uff0e\u30bf\u30fc\u30b2\u30c3\u30c8\u30c6\u30fc\u30d6\u30eb\u3067\u306e\u30c8\u30e9\u30f3\u30b1\u30fc\u30c8\u3084\u7d50\u5408\u3092\u5236\u5fa1\u3059\u308b\u305f\u3081\u3001\u5404\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3067\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002
3\uff0e\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u4e00\u3064\u306e\u30b0\u30eb\u30fc\u30d7\u306b\u8a2d\u5b9a\u3057\u307e\u3059\u3002
4\uff0e\u5168\u3066\u306e\u30ec\u30b3\u30fc\u30c9\u3092\u524a\u9664\u3057\u3001\u30bf\u30fc\u30b2\u30c3\u30c8\u30c6\u30fc\u30d6\u30eb\u3092\u30af\u30ea\u30fc\u30f3\u30a2\u30c3\u30d7\u3057\u307e\u3059\u3002
5\uff0e\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u5b9f\u884c\u3057\u307e\u3059\u3002<\/p>\n\n\n\n

\"\u753b\u50cf1\u30c6\u30fc\u30d6\u30eb\uff11\"<\/a><\/figure>\n\n\n\n
\"\u753b\u50cf2\u30de\u30c3\u30d4\u30f3\u30b0\"<\/a><\/figure>\n\n\n\n
\"\u753b\u50cf3\u30b9\u30af\u30ea\u30d7\u30c8\"<\/a><\/figure>\n\n\n\n

\u4f8b\u3068\u3057\u3066\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u884c\u3046\u5834\u5408\u3092\u3054\u7d39\u4ecb\u3057\u307e\u3059\u3002

MULTITEST1 > MULTITEST3\u306e\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u4f5c\u6210\u3057\u307e\u3059\u3002
1\uff0e\u30de\u30c3\u30d4\u30f3\u30b0\u8a2d\u5b9a\u3067ID, NAME, COMPANY\u3092\u30de\u30c3\u30d4\u30f3\u30b0\u3057\u307e\u3059\u3002
2\uff0eUNIT\u306b\u306fvbNull\u3092\u30de\u30c3\u30d7\u3057\u307e\u3059\u3002

3\uff0e\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u7121\u52b9\u306b\u3057\u3001\u30a6\u30a3\u30b6\u30fc\u30c9\u3092\u5b8c\u4e86\u3057\u307e\u3059\u3002
4\uff0e\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u958b\u304d\u307e\u3059\u3002
5\uff0e\u30b9\u30af\u30ea\u30d7\u30c8\u306e\u4f7f\u7528\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3001\u4ee5\u4e0b\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002
<\/p>\n\n\n\n

\nImports Microsoft.VisualBasic\nImports DBMotoPublic\nImports DBMotoScript\nImports DBRS.GlobalScript\n\nNamespace DBRS\n    Public Class ReplicationScript : Inherits IreplicationScript\n      Dim PrimaryKey As String\n      Dim Field As String\n      Dim Table2 As String \n\n      Public Overrides Sub Refresh_onBeforeTruncate(ByRef CancelTruncate As Boolean, ByRef Filter As String)\n\u3000\u3000\u3000\u3000'\u30ea\u30d5\u30ec\u30c3\u30b7\u30e5\u6642\u306e\u30ec\u30b3\u30fc\u30c9\u524a\u9664\u3092\u7121\u52b9\u5316\n        CancelTruncate = True\n      End Sub\n\n      Public Overrides Sub Record_onAfterMapping( recSource As DBMotoPublic.IRecord,  recTarget As DBMotoPublic.IRecord, ByRef AbortRecord As Boolean, ByRef DisableReplication As Boolean)\n        Table2 = \"\"\"asami\"\".MULTITEST2\" '\u3082\u3046\u4e00\u65b9\u306e\u30c6\u30fc\u30d6\u30eb\n        PrimaryKey = \"ID\" '\u4e3b\u30ad\u30fc\n        Field = \"UNIT\" 'vbNull\u3092\u30de\u30c3\u30d7\u3057\u305f\u30d5\u30a3\u30fc\u30eb\u30c9\n        '\u4e3b\u30ad\u30fc\u304c\u5909\u66f4\u3055\u308c\u3066\u3044\u306a\u3044\u5834\u5408\n        If recTarget.GetValueAfter(PrimaryKey) = Nothing Then\n          recTarget.SetValueAfter(Field, Nothing)\n        '\u4e3b\u30ad\u30fc\u304c\u5909\u66f4\u3055\u308c\u3066\u3044\u308b\u5834\u5408(\u307e\u305f\u306finsert)\n        Else\n          InterpolationFields (recTarget)\n        End If\n      End Sub\n      '\u88dc\u9593\u3059\u308b\u305f\u3081\u306bField\u306e\u5024\u3092\u691c\u7d22\n      Private Sub InterpolationFields (recTarget As IRecord)\n        Dim cmd As System.Data.IdbCommand\n        Dim rs As System.Data.IdataReader\n        Dim SQL As String\n        'Table2\u304b\u3089PrimaryKey\u306e\u30ec\u30b3\u30fc\u30c9\u3092\u691c\u7d22\n        SQL = \"Select * From \" + Table2 + \" Where \" + PrimaryKey + \" = \" &amp;amp;amp; recTarget.GetValueAfter(PrimaryKey)\n        '\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30bd\u30fc\u30b9\u63a5\u7d9a\u60c5\u5831\u3092\u53d6\u5f97\n        cmd = SourceConnection.CreateCommand\n        '\u30b3\u30de\u30f3\u30c9\u306bSQL\u30af\u30a8\u30ea\u3092\u4ee3\u5165\n        cmd.CommandText = SQL\n        'SQL\u3092\u5b9f\u884c\n        rs = cmd.ExecuteReader\n        'Field\u306evbNull\u3092\u53d6\u5f97\u3057\u305f\u5024\u306b\u7f6e\u304d\u63db\u3048\n        While rs.Read\n          recTarget.SetValueAfter(Field, rs(Field))\n        End While\n        rs.Close\n      End Sub\n    End Class\nEnd Namespace\n<\/pre><\/pre>\n\n\n\n
MULTITEST2 > MULTITEST3\u306e\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u4f5c\u6210\u3057\u307e\u3059\u3002
1\uff0e\u30de\u30c3\u30d4\u30f3\u30b0\u8a2d\u5b9a\u3067ID, NAME, UNIT\u3092\u30de\u30c3\u30d4\u30f3\u30b0\u3057\u307e\u3059\u3002
2\uff0eCOMPANY\u306b\u306fvbNull\u3092\u30de\u30c3\u30d7\u3057\u307e\u3059\u3002
3\uff0e\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u7121\u52b9\u306b\u3057\u3001\u30a6\u30a3\u30b6\u30fc\u30c9\u3092\u5b8c\u4e86\u3057\u307e\u3059\u3002
4\uff0e\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u958b\u304d\u307e\u3059\u3002
5\uff0e\u30b9\u30af\u30ea\u30d7\u30c8\u306e\u4f7f\u7528\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3001\u4ee5\u4e0b\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
\nImports Microsoft.VisualBasic\nImports DBMotoPublic\nImports DBMotoScript\nImports DBRS.GlobalScript\n\nNamespace DBRS\n    Public Class ReplicationScript : Inherits IreplicationScript\n      Dim PrimaryKey As String\n      Dim Field As String\n      Dim Table1 As String\n      Dim Table2 As String\n      Dim Table3 As String \n\n      Public Overrides Sub Refresh_onBeforeTruncate(ByRef CancelTruncate As Boolean, ByRef Filter As String)\n            CancelTruncate = True\n      End Sub\n\n      Public Overrides Sub Record_onAfterMapping( recSource As DBMotoPublic.IRecord,  recTarget As DBMotoPublic.IRecord, ByRef AbortRecord As Boolean, ByRef DisableReplication As Boolean)\n        Table1 = \"\"\"asami\"\".MULTITEST1\" '\u3082\u3046\u4e00\u65b9\u306e\u30bd\u30fc\u30b9\u30c6\u30fc\u30d6\u30eb\n        Table2 = \"\"\"asami\"\".MULTITEST2\" '\u30bd\u30fc\u30b9\u30c6\u30fc\u30d6\u30eb\n        Table3 = \"ASAMI.MULTITEST3\" '\u30bf\u30fc\u30b2\u30c3\u30c8\u30c6\u30fc\u30d6\u30eb\n        PrimaryKey = \"ID\" '\u4e3b\u30ad\u30fc\n        Field = \"UNIT\" '\u3082\u3046\u4e00\u65b9\u306e\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3067vbNull\u3092\u30de\u30c3\u30d7\u3057\u305f\u30d5\u30a3\u30fc\u30eb\u30c9\n        'insert,update,delete\u3067\u306e\u5834\u5408\u5206\u3051\n        Select Case recTarget.OperationType\n          'insert\u306e\u5834\u5408\u3001\u30bf\u30fc\u30b2\u30c3\u30c8\u306eField\u306b\u5bfe\u3057\u3066update\u3092\u5b9f\u65bd\n          Case enmOperationType.Insert\n            UpdateFields(recTarget)\n            AbortRecord = True\n          'update\u306e\u5834\u5408\n          Case enmOperationType.Update\n            '\u4e3b\u30ad\u30fc\u304c\u5909\u66f4\u3055\u308c\u3066\u3044\u308b\u5834\u5408\u3001\u30bf\u30fc\u30b2\u30c3\u30c8\u306e\u5909\u66f4\u524d\u306eField\u3092Null\u306bupdate\n            If recTarget.GetValueAfter(PrimaryKey) &amp;amp;lt;&amp;amp;gt; recTarget.GetValueBefore(PrimaryKey) Then\n              SetNull(recTarget)\n            End If\n            '\u30bf\u30fc\u30b2\u30c3\u30c8\u306eField\u306b\u5bfe\u3057\u3066update\u3092\u5b9f\u65bd\n            UpdateFields(recTarget)\n            AbortRecord = True\n            'Delete\u306e\u5834\u5408\n            Case enmOperationType.Delete\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000'Field\u3092null\u306bupdate\n              SetNull(recTarget)\n              AbortRecord = True\n        End Select\n      End Sub\n\n      'Field\u306b\u5bfe\u3059\u308bupdate\n      Private Sub UpdateFields (recTarget As IRecord)\n        Dim SQL As String\n        SQL = \"Update \" + Table3 + \" Set \"\n        'Field\u304cNull\u306e\u5834\u5408\u306fNull\u306bupdate\n        If recTarget.GetValueAfter(Field) = Nothing Then\n          SQL = SQL + \" \" + Field + \" = Null \"\n        'Field\u306e\u5024\u3067update\u3092\u5b9f\u65bd\n        Else\n          SQL = SQL + \" \" + Field + \" = '\" + recTarget.GetValueAfter(Field) + \"'\"\n        End If\n        '\u4e3b\u30ad\u30fc\u306b\u5909\u66f4\u304c\u306a\u3044\u5834\u5408\u306f\u5909\u66f4\u524d\u306e\u4e3b\u30ad\u30fc\u306e\u30ec\u30b3\u30fc\u30c9\u3092update\n        if recTarget.GetValueAfter(\"ID\") = Nothing then\n          SQL = SQL + \" Where \" + PrimaryKey + \" = '\" + recTarget.GetValueBefore(PrimaryKey) +  \"'\"\n        '\u4e3b\u30ad\u30fc\u304c\u5909\u66f4\u3055\u308c\u3066\u3044\u308b\u5834\u5408\u306f\u5909\u66f4\u5f8c\u306e\u4e3b\u30ad\u30fc\u306e\u30ec\u30b3\u30fc\u30c9\u3092update\n        else\n          SQL = SQL + \" Where \" + PrimaryKey + \" = '\" + recTarget.GetValueAfter(PrimaryKey) +  \"'\"\n        End if \n\n        AddLog (\"UpdateFields SQL: \" + SQL, 0)\n        Try\n          Dim cmd As System.Data.IdbCommand\n          cmd = TargetConnection.CreateCommand\n          cmd.CommandText = SQL\n          cmd.ExecuteNonQuery()\n        Catch Ex As System.Exception\n          AddLog (Table2 + \".*_onAfterFieldMapping (UpdateFields): Cannot update field UNIT on Table \" + Table3 + \" (\" + Ex.Message + \")\", 1)\n        End Try\n      End Sub\n      'Field\u3092Null\u306bupdate\n      Private Sub SetNull (recTarget As IRecord)\n        Dim SQL As String\n\n        SQL = \"Update \" + Table3 + \" Set \" + Field + \" = Null Where ID = '\" + recTarget.GetValueBefore(PrimaryKey) +  \"'\"\n        AddLog (\"SetNull: \" + SQL, 0)\n        Try\n            Dim cmd As System.Data.IdbCommand\n            cmd = TargetConnection.CreateCommand\n            cmd.CommandText = SQL\n            cmd.ExecuteNonQuery()\n        Catch Ex As System.Exception\n            AddLog (Table2 + \".*_onAfterFieldMapping (SetNull): Cannot update field UNIT on Table \" + Table3 + \" (\" + Ex.Message + \")\", 1)\n        End Try\n      End Sub\n    End Class\nEnd Namespace\n<\/pre><\/pre>\n\n\n\n
\u3053\u306e\u3088\u3046\u306b\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u3067\u30bf\u30fc\u30b2\u30c3\u30c8\u30c6\u30fc\u30d6\u30eb\u306e\u4e00\u3064\u306e\u30ec\u30b3\u30fc\u30c9\u30922\u3064\u306e\u30bd\u30fc\u30b9\u30c6\u30fc\u30d6\u30eb\u304b\u3089\u4f5c\u6210\u53ef\u80fd\u3067\u3059\u3002
\u3057\u304b\u3057\u3001\u3053\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u306b\u306f\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u5236\u9650\u3082\u3042\u308a\u307e\u3059\u3002
\u30fb\u30ea\u30d5\u30ec\u30c3\u30b7\u30e5\u6642\u306b\u306f\u624b\u52d5\u3067\u306e\u30bf\u30fc\u30b2\u30c3\u30c8\u30c6\u30fc\u30d6\u30eb\u306e\u30ec\u30b3\u30fc\u30c9\u524a\u9664\u304c\u5fc5\u9808
\u30fbMULTITEST1\u306b\u5b58\u5728\u3057\u306a\u3044\u4e3b\u30ad\u30fc\u3092MULTITEST2\u306binsert\u3057\u305f\u5834\u5408\u3001MULTITEST3\u306b\u305d\u306e\u60c5\u5831\u306f\u9023\u643a\u3055\u308c\u306a\u3044
\u7b49\u3005<\/p>\n\n\n\n
\u305d\u306e\u305f\u3081\u3001\u9023\u643a\u3092\u884c\u3046\u30c6\u30fc\u30d6\u30eb\u306b\u5408\u308f\u305b\u3066\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u30ab\u30b9\u30bf\u30de\u30a4\u30ba\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
2\u3064\u306e\u30c6\u30fc\u30d6\u30eb\u30921\u3064\u306e\u30c6\u30fc\u30d6\u30eb\u306b\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3059\u5834\u5408\u306b\u306f\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u624b\u9806\u3067\u5b9f\u65bd\u3057\u307e\u3059\u30021\uff0e\u4e00\u3064\u306e\u30bf\u30fc\u30b2\u30c3\u30c8\u30c6\u30fc\u30d6\u30eb\u306b\u5bfe\u3057\u3066\u3001\u5404\u30bd\u30fc\u30b9\u30c6\u30fc\u30d6\u30eb\u304b\u3089\u30ec\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u4f5c\u6210\u3057\u307e\u3059\u30022\uff0e\u30bf\u30fc\u30b2\u30c3\u30c8\u30c6\u30fc\u30d6\u30eb\u3067\u306e\u30c8\u30e9\u30f3\u30b1\u30fc\u30c8\u3084\u7d50\u5408 … \u7d9a\u304d\u3092\u8aad\u3080 →<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4],"tags":[],"class_list":["post-1922","post","type-post","status-publish","format-standard","hentry","category-syniti"],"_links":{"self":[{"href":"https:\/\/www.climb.co.jp\/blog_dbmoto\/wp-json\/wp\/v2\/posts\/1922","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.climb.co.jp\/blog_dbmoto\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.climb.co.jp\/blog_dbmoto\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.climb.co.jp\/blog_dbmoto\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.climb.co.jp\/blog_dbmoto\/wp-json\/wp\/v2\/comments?post=1922"}],"version-history":[{"count":16,"href":"https:\/\/www.climb.co.jp\/blog_dbmoto\/wp-json\/wp\/v2\/posts\/1922\/revisions"}],"predecessor-version":[{"id":4665,"href":"https:\/\/www.climb.co.jp\/blog_dbmoto\/wp-json\/wp\/v2\/posts\/1922\/revisions\/4665"}],"wp:attachment":[{"href":"https:\/\/www.climb.co.jp\/blog_dbmoto\/wp-json\/wp\/v2\/media?parent=1922"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.climb.co.jp\/blog_dbmoto\/wp-json\/wp\/v2\/categories?post=1922"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.climb.co.jp\/blog_dbmoto\/wp-json\/wp\/v2\/tags?post=1922"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}