From c7304d60a65ac825c76aeddb0279ceb30a29c3d7 Mon Sep 17 00:00:00 2001 From: daisuke nishino Date: Mon, 12 May 2014 13:58:34 +0900 Subject: [PATCH] =?UTF-8?q?=E3=82=B5=E3=83=BC=E3=83=89=E3=83=91=E3=83=BC?= =?UTF-8?q?=E3=83=86=E3=82=A3=E8=A3=BD=E3=81=AE=E3=83=87=E3=83=BC=E3=82=BF?= =?UTF-8?q?=E3=83=97=E3=83=AD=E3=83=90=E3=82=A4=E3=83=80=E3=81=AE=E3=83=89?= =?UTF-8?q?=E3=83=AD=E3=83=83=E3=83=97(Drop=20the=20data=20provider=20of?= =?UTF-8?q?=20third-party)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Infrastructure/AllComponent.sln | 24 - .../Infrastructure/Business/Business.csproj | 16 - .../Business/Business/MyBaseLogic.cs | 126 +-- .../Business/Business/MyFcBaseLogic.cs | 126 +-- .../RichClient/Business.RichClient.csproj | 12 - .../RichClient/Business/MyBaseLogic2CS.cs | 126 +-- .../RichClient/Business/MyFcBaseLogic2CS.cs | 126 +-- .../Tools/DPQuery_Tool/DPQuery_Tool.csproj | 25 - .../Tools/DPQuery_Tool/DummyDaps.cs | 722 +++++++------- .../C#/Frameworks/Tools/DPQuery_Tool/Form1.cs | 2 +- .../Tools/DaoGen_Tool/DaoGen_Tool.csproj | 13 - .../App_Code/testPublic/Business/TestMTC.cs | 712 -------------- .../testPublic/Business/TestMTC_mcn.cs | 885 ------------------ .../testPublic/Business/TestMTC_txg.cs | 220 ----- .../Aspx/testPublic/testScreen.aspx | 50 - .../Aspx/testPublic/testScreen.aspx.cs | 162 ++-- .../Infrastructure/Business/Business.vbproj | 12 - .../Business/Business/MyBaseLogic.vb | 120 +-- .../Business/Business/MyFcBaseLogic.vb | 120 +-- .../RichClient/Business.RichClient.vbproj | 12 - .../RichClient/Business/MyBaseLogic2CS.vb | 120 +-- .../RichClient/Business/MyFcBaseLogic2CS.vb | 120 +-- .../App_Code/testPublic/Business/TestMTC.vb | 691 -------------- .../testPublic/Business/TestMTC_mcn.vb | 865 ----------------- .../testPublic/Business/TestMTC_txg.vb | 183 ---- .../Aspx/testPublic/testScreen.aspx | 50 - .../Aspx/testPublic/testScreen.aspx.vb | 59 -- 27 files changed, 959 insertions(+), 4740 deletions(-) delete mode 100644 root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC.cs delete mode 100644 root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_mcn.cs delete mode 100644 root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_txg.cs delete mode 100644 root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC.vb delete mode 100644 root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_mcn.vb delete mode 100644 root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_txg.vb diff --git a/root_easysetup/programs/C#/Frameworks/Infrastructure/AllComponent.sln b/root_easysetup/programs/C#/Frameworks/Infrastructure/AllComponent.sln index ca64e87c3..27717232e 100644 --- a/root_easysetup/programs/C#/Frameworks/Infrastructure/AllComponent.sln +++ b/root_easysetup/programs/C#/Frameworks/Infrastructure/AllComponent.sln @@ -9,14 +9,6 @@ Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "Public", "Public\Public.csp EndProject Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "Framework", "Framework\Framework.csproj", "{33133F7E-FCF4-4438-8241-FE5CDF6E52FD}" EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "DamDB2", "Public\Db\DamDB2\DamDB2.csproj", "{F7B93ED0-8046-408E-A2BB-BAE8AF040E4A}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "DamPstGrS", "Public\Db\DamPstGrS\DamPstGrS.csproj", "{1A3B3376-716C-4AB2-9FB5-427227D8037F}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "DamMySQL", "Public\Db\DamMySQL\DamMySQL.csproj", "{18345E81-5ECB-4B2F-8304-0E94F8763216}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "DamOraOdp", "Public\Db\DamOraOdp\DamOraOdp.csproj", "{FE4533B3-53F0-4BE2-8390-9486FFF380A3}" -EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU @@ -39,22 +31,6 @@ Global {33133F7E-FCF4-4438-8241-FE5CDF6E52FD}.Debug|Any CPU.Build.0 = Debug|Any CPU {33133F7E-FCF4-4438-8241-FE5CDF6E52FD}.Release|Any CPU.ActiveCfg = Release|Any CPU {33133F7E-FCF4-4438-8241-FE5CDF6E52FD}.Release|Any CPU.Build.0 = Release|Any CPU - {F7B93ED0-8046-408E-A2BB-BAE8AF040E4A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {F7B93ED0-8046-408E-A2BB-BAE8AF040E4A}.Debug|Any CPU.Build.0 = Debug|Any CPU - {F7B93ED0-8046-408E-A2BB-BAE8AF040E4A}.Release|Any CPU.ActiveCfg = Release|Any CPU - {F7B93ED0-8046-408E-A2BB-BAE8AF040E4A}.Release|Any CPU.Build.0 = Release|Any CPU - {1A3B3376-716C-4AB2-9FB5-427227D8037F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {1A3B3376-716C-4AB2-9FB5-427227D8037F}.Debug|Any CPU.Build.0 = Debug|Any CPU - {1A3B3376-716C-4AB2-9FB5-427227D8037F}.Release|Any CPU.ActiveCfg = Release|Any CPU - {1A3B3376-716C-4AB2-9FB5-427227D8037F}.Release|Any CPU.Build.0 = Release|Any CPU - {18345E81-5ECB-4B2F-8304-0E94F8763216}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {18345E81-5ECB-4B2F-8304-0E94F8763216}.Debug|Any CPU.Build.0 = Debug|Any CPU - {18345E81-5ECB-4B2F-8304-0E94F8763216}.Release|Any CPU.ActiveCfg = Release|Any CPU - {18345E81-5ECB-4B2F-8304-0E94F8763216}.Release|Any CPU.Build.0 = Release|Any CPU - {FE4533B3-53F0-4BE2-8390-9486FFF380A3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {FE4533B3-53F0-4BE2-8390-9486FFF380A3}.Debug|Any CPU.Build.0 = Debug|Any CPU - {FE4533B3-53F0-4BE2-8390-9486FFF380A3}.Release|Any CPU.ActiveCfg = Release|Any CPU - {FE4533B3-53F0-4BE2-8390-9486FFF380A3}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE diff --git a/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/Business.csproj b/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/Business.csproj index a914c4026..5f626e59e 100644 --- a/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/Business.csproj +++ b/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/Business.csproj @@ -112,22 +112,6 @@ {33133F7E-FCF4-4438-8241-FE5CDF6E52FD} Framework - - {F7B93ED0-8046-408E-A2BB-BAE8AF040E4A} - DamDB2 - - - {18345E81-5ECB-4B2F-8304-0E94F8763216} - DamMySQL - - - {FE4533B3-53F0-4BE2-8390-9486FFF380A3} - DamOraOdp - - - {1A3B3376-716C-4AB2-9FB5-427227D8037F} - DamPstGrS - {81CC573A-0DF9-49E5-AF10-A50F9B194DA5} Public diff --git a/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/Business/MyBaseLogic.cs b/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/Business/MyBaseLogic.cs index 5a280ed6b..88d1cdae6 100644 --- a/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/Business/MyBaseLogic.cs +++ b/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/Business/MyBaseLogic.cs @@ -152,54 +152,60 @@ protected override void UOC_ConnectionOpen( #region データ プロバイダ選択 - if (parameterValue.ActionType.Split('%')[0] == "SQL") - { - // SQL Server / SQL Client用のDamを生成 - dam = new DamSqlSvr(); + // SQL Server / SQL Client用のDamを生成 + dam = new DamSqlSvr(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL"); - } - else if (parameterValue.ActionType.Split('%')[0] == "OLE") - { - // OLEDB.NET用のDamを生成 - dam = new DamOLEDB(); + // 接続文字列をロード + connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL"); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE"); - } - else if (parameterValue.ActionType.Split('%')[0] == "ODB") - { - // ODBC.NET用のDamを生成 - dam = new DamODBC(); + //if (parameterValue.ActionType.Split('%')[0] == "SQL") + //{ + // // SQL Server / SQL Client用のDamを生成 + // dam = new DamSqlSvr(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC"); - } - else if (parameterValue.ActionType.Split('%')[0] == "ORA") - { - // Oracle / Oracle Client用のDamを生成 - dam = new DamOraClient(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "OLE") + //{ + // // OLEDB.NET用のDamを生成 + // dam = new DamOLEDB(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA"); - } - else if (parameterValue.ActionType.Split('%')[0] == "ODP") - { - // Oracle / ODP.NET用のDamを生成 - dam = new DamOraOdp(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "ODB") + //{ + // // ODBC.NET用のDamを生成 + // dam = new DamODBC(); - // 接続文字列をロード（ODP2：Instant Client） - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2"); - } - else if (parameterValue.ActionType.Split('%')[0] == "DB2") - { - // DB2.NET用のDamを生成 - dam = new DamDB2(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "ORA") + //{ + // // Oracle / Oracle Client用のDamを生成 + // dam = new DamOraClient(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2"); - } + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "ODP") + //{ + // // Oracle / ODP.NET用のDamを生成 + // dam = new DamOraOdp(); + + // // 接続文字列をロード（ODP2：Instant Client） + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "DB2") + //{ + // // DB2.NET用のDamを生成 + // dam = new DamDB2(); + + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2"); + //} //else if (parameterValue.ActionType.Split('%')[0] == "HIR") //{ // // HiRDBデータプロバイダ用のDamを生成 @@ -208,26 +214,26 @@ protected override void UOC_ConnectionOpen( // // 接続文字列をロード // connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR"); //} - else if (parameterValue.ActionType.Split('%')[0] == "MCN") - { - // MySQL Cnn/NET用のDamを生成 - dam = new DamMySQL(); + //else if (parameterValue.ActionType.Split('%')[0] == "MCN") + //{ + // // MySQL Cnn/NET用のDamを生成 + // dam = new DamMySQL(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN"); - } - else if (parameterValue.ActionType.Split('%')[0] == "NPS") - { - // PostgreSQL / Npgsql用のDamを生成 - dam = new DamPstGrS(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "NPS") + //{ + // // PostgreSQL / Npgsql用のDamを生成 + // dam = new DamPstGrS(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS"); - } - else - { - // ここは通らない - } + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS"); + //} + //else + //{ + // // ここは通らない + //} #endregion diff --git a/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/Business/MyFcBaseLogic.cs b/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/Business/MyFcBaseLogic.cs index 34f283e3d..debef19a8 100644 --- a/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/Business/MyFcBaseLogic.cs +++ b/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/Business/MyFcBaseLogic.cs @@ -196,54 +196,60 @@ protected override void UOC_ConnectionOpen( #region データ プロバイダ選択 - if (parameterValue.ActionType.Split('%')[0] == "SQL") - { - // SQL Server / SQL Client用のDamを生成 - dam = new DamSqlSvr(); + // SQL Server / SQL Client用のDamを生成 + dam = new DamSqlSvr(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL"); - } - else if (parameterValue.ActionType.Split('%')[0] == "OLE") - { - // OLEDB.NET用のDamを生成 - dam = new DamOLEDB(); + // 接続文字列をロード + connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL"); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE"); - } - else if (parameterValue.ActionType.Split('%')[0] == "ODB") - { - // ODBC.NET用のDamを生成 - dam = new DamODBC(); + //if (parameterValue.ActionType.Split('%')[0] == "SQL") + //{ + // // SQL Server / SQL Client用のDamを生成 + // dam = new DamSqlSvr(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC"); - } - else if (parameterValue.ActionType.Split('%')[0] == "ORA") - { - // Oracle / Oracle Client用のDamを生成 - dam = new DamOraClient(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "OLE") + //{ + // // OLEDB.NET用のDamを生成 + // dam = new DamOLEDB(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA"); - } - else if (parameterValue.ActionType.Split('%')[0] == "ODP") - { - // Oracle / ODP.NET用のDamを生成 - dam = new DamOraOdp(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "ODB") + //{ + // // ODBC.NET用のDamを生成 + // dam = new DamODBC(); - // 接続文字列をロード（ODP2：Instant Client） - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2"); - } - else if (parameterValue.ActionType.Split('%')[0] == "DB2") - { - // DB2.NET用のDamを生成 - dam = new DamDB2(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "ORA") + //{ + // // Oracle / Oracle Client用のDamを生成 + // dam = new DamOraClient(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2"); - } + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "ODP") + //{ + // // Oracle / ODP.NET用のDamを生成 + // dam = new DamOraOdp(); + + // // 接続文字列をロード（ODP2：Instant Client） + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "DB2") + //{ + // // DB2.NET用のDamを生成 + // dam = new DamDB2(); + + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2"); + //} //else if (parameterValue.ActionType.Split('%')[0] == "HIR") //{ // // HiRDBデータプロバイダ用のDamを生成 @@ -252,26 +258,26 @@ protected override void UOC_ConnectionOpen( // // 接続文字列をロード // connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR"); //} - else if (parameterValue.ActionType.Split('%')[0] == "MCN") - { - // MySQL Cnn/NET用のDamを生成 - dam = new DamMySQL(); + //else if (parameterValue.ActionType.Split('%')[0] == "MCN") + //{ + // // MySQL Cnn/NET用のDamを生成 + // dam = new DamMySQL(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN"); - } - else if (parameterValue.ActionType.Split('%')[0] == "NPS") - { - // PostgreSQL / Npgsql用のDamを生成 - dam = new DamPstGrS(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "NPS") + //{ + // // PostgreSQL / Npgsql用のDamを生成 + // dam = new DamPstGrS(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS"); - } - else - { - // ここは通らない - } + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS"); + //} + //else + //{ + // // ここは通らない + //} #endregion diff --git a/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/RichClient/Business.RichClient.csproj b/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/RichClient/Business.RichClient.csproj index 8cb4dabf3..9d4da2654 100644 --- a/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/RichClient/Business.RichClient.csproj +++ b/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/RichClient/Business.RichClient.csproj @@ -62,18 +62,6 @@ ..\..\Build\Business.dll - - ..\..\Build\DamDB2.dll - - - ..\..\Build\DamMySQL.dll - - - ..\..\Build\DamOraOdp.dll - - - ..\..\Build\DamPstGrS.dll - ..\..\Build\Framework.dll diff --git a/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/RichClient/Business/MyBaseLogic2CS.cs b/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/RichClient/Business/MyBaseLogic2CS.cs index a1f32bedd..e83125692 100644 --- a/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/RichClient/Business/MyBaseLogic2CS.cs +++ b/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/RichClient/Business/MyBaseLogic2CS.cs @@ -152,54 +152,60 @@ protected override void UOC_ConnectionOpen( #region データ プロバイダ選択 - if (parameterValue.ActionType.Split('%')[0] == "SQL") - { - // SQL Server / SQL Client用のDamを生成 - dam = new DamSqlSvr(); + // SQL Server / SQL Client用のDamを生成 + dam = new DamSqlSvr(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL"); - } - else if (parameterValue.ActionType.Split('%')[0] == "OLE") - { - // OLEDB.NET用のDamを生成 - dam = new DamOLEDB(); + // 接続文字列をロード + connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL"); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE"); - } - else if (parameterValue.ActionType.Split('%')[0] == "ODB") - { - // ODBC.NET用のDamを生成 - dam = new DamODBC(); + //if (parameterValue.ActionType.Split('%')[0] == "SQL") + //{ + // // SQL Server / SQL Client用のDamを生成 + // dam = new DamSqlSvr(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC"); - } - else if (parameterValue.ActionType.Split('%')[0] == "ORA") - { - // Oracle / Oracle Client用のDamを生成 - dam = new DamOraClient(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "OLE") + //{ + // // OLEDB.NET用のDamを生成 + // dam = new DamOLEDB(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA"); - } - else if (parameterValue.ActionType.Split('%')[0] == "ODP") - { - // Oracle / ODP.NET用のDamを生成 - dam = new DamOraOdp(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "ODB") + //{ + // // ODBC.NET用のDamを生成 + // dam = new DamODBC(); - // 接続文字列をロード（ODP2：Instant Client） - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2"); - } - else if (parameterValue.ActionType.Split('%')[0] == "DB2") - { - // DB2.NET用のDamを生成 - dam = new DamDB2(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "ORA") + //{ + // // Oracle / Oracle Client用のDamを生成 + // dam = new DamOraClient(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2"); - } + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "ODP") + //{ + // // Oracle / ODP.NET用のDamを生成 + // dam = new DamOraOdp(); + + // // 接続文字列をロード（ODP2：Instant Client） + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "DB2") + //{ + // // DB2.NET用のDamを生成 + // dam = new DamDB2(); + + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2"); + //} //else if (parameterValue.ActionType.Split('%')[0] == "HIR") //{ // // HiRDBデータプロバイダ用のDamを生成 @@ -208,26 +214,26 @@ protected override void UOC_ConnectionOpen( // // 接続文字列をロード // connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR"); //} - else if (parameterValue.ActionType.Split('%')[0] == "MCN") - { - // MySQL Cnn/NET用のDamを生成 - dam = new DamMySQL(); + //else if (parameterValue.ActionType.Split('%')[0] == "MCN") + //{ + // // MySQL Cnn/NET用のDamを生成 + // dam = new DamMySQL(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN"); - } - else if (parameterValue.ActionType.Split('%')[0] == "NPS") - { - // PostgreSQL / Npgsql用のDamを生成 - dam = new DamPstGrS(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "NPS") + //{ + // // PostgreSQL / Npgsql用のDamを生成 + // dam = new DamPstGrS(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS"); - } - else - { - // ここは通らない - } + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS"); + //} + //else + //{ + // // ここは通らない + //} #endregion diff --git a/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/RichClient/Business/MyFcBaseLogic2CS.cs b/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/RichClient/Business/MyFcBaseLogic2CS.cs index b47db3bf2..e756ea844 100644 --- a/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/RichClient/Business/MyFcBaseLogic2CS.cs +++ b/root_easysetup/programs/C#/Frameworks/Infrastructure/Business/RichClient/Business/MyFcBaseLogic2CS.cs @@ -196,54 +196,60 @@ protected override void UOC_ConnectionOpen( #region データ プロバイダ選択 - if (parameterValue.ActionType.Split('%')[0] == "SQL") - { - // SQL Server / SQL Client用のDamを生成 - dam = new DamSqlSvr(); + // SQL Server / SQL Client用のDamを生成 + dam = new DamSqlSvr(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL"); - } - else if (parameterValue.ActionType.Split('%')[0] == "OLE") - { - // OLEDB.NET用のDamを生成 - dam = new DamOLEDB(); + // 接続文字列をロード + connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL"); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE"); - } - else if (parameterValue.ActionType.Split('%')[0] == "ODB") - { - // ODBC.NET用のDamを生成 - dam = new DamODBC(); + //if (parameterValue.ActionType.Split('%')[0] == "SQL") + //{ + // // SQL Server / SQL Client用のDamを生成 + // dam = new DamSqlSvr(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC"); - } - else if (parameterValue.ActionType.Split('%')[0] == "ORA") - { - // Oracle / Oracle Client用のDamを生成 - dam = new DamOraClient(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "OLE") + //{ + // // OLEDB.NET用のDamを生成 + // dam = new DamOLEDB(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA"); - } - else if (parameterValue.ActionType.Split('%')[0] == "ODP") - { - // Oracle / ODP.NET用のDamを生成 - dam = new DamOraOdp(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "ODB") + //{ + // // ODBC.NET用のDamを生成 + // dam = new DamODBC(); - // 接続文字列をロード（ODP2：Instant Client） - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2"); - } - else if (parameterValue.ActionType.Split('%')[0] == "DB2") - { - // DB2.NET用のDamを生成 - dam = new DamDB2(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "ORA") + //{ + // // Oracle / Oracle Client用のDamを生成 + // dam = new DamOraClient(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2"); - } + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "ODP") + //{ + // // Oracle / ODP.NET用のDamを生成 + // dam = new DamOraOdp(); + + // // 接続文字列をロード（ODP2：Instant Client） + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "DB2") + //{ + // // DB2.NET用のDamを生成 + // dam = new DamDB2(); + + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2"); + //} //else if (parameterValue.ActionType.Split('%')[0] == "HIR") //{ // // HiRDBデータプロバイダ用のDamを生成 @@ -252,26 +258,26 @@ protected override void UOC_ConnectionOpen( // // 接続文字列をロード // connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR"); //} - else if (parameterValue.ActionType.Split('%')[0] == "MCN") - { - // MySQL Cnn/NET用のDamを生成 - dam = new DamMySQL(); + //else if (parameterValue.ActionType.Split('%')[0] == "MCN") + //{ + // // MySQL Cnn/NET用のDamを生成 + // dam = new DamMySQL(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN"); - } - else if (parameterValue.ActionType.Split('%')[0] == "NPS") - { - // PostgreSQL / Npgsql用のDamを生成 - dam = new DamPstGrS(); + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN"); + //} + //else if (parameterValue.ActionType.Split('%')[0] == "NPS") + //{ + // // PostgreSQL / Npgsql用のDamを生成 + // dam = new DamPstGrS(); - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS"); - } - else - { - // ここは通らない - } + // // 接続文字列をロード + // connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS"); + //} + //else + //{ + // // ここは通らない + //} #endregion diff --git a/root_easysetup/programs/C#/Frameworks/Tools/DPQuery_Tool/DPQuery_Tool.csproj b/root_easysetup/programs/C#/Frameworks/Tools/DPQuery_Tool/DPQuery_Tool.csproj index eefc93078..a7205f56c 100644 --- a/root_easysetup/programs/C#/Frameworks/Tools/DPQuery_Tool/DPQuery_Tool.csproj +++ b/root_easysetup/programs/C#/Frameworks/Tools/DPQuery_Tool/DPQuery_Tool.csproj @@ -60,35 +60,10 @@ 4 - - ..\..\Infrastructure\Build\DamDB2.dll - - - ..\..\Infrastructure\Build\DamMySQL.dll - - - ..\..\Infrastructure\Build\DamOraOdp.dll - - - ..\..\Infrastructure\Build\DamPstGrS.dll - - - ..\..\Infrastructure\Build\IBM.Data.DB2.dll - False ..\..\Infrastructure\Build\log4net.dll - - ..\..\Infrastructure\Build\MySql.Data.dll - - - ..\..\Infrastructure\Build\Npgsql.dll - - - False - ..\..\Infrastructure\Build\Oracle.DataAccess.dll - False ..\..\Infrastructure\Build\Public.dll diff --git a/root_easysetup/programs/C#/Frameworks/Tools/DPQuery_Tool/DummyDaps.cs b/root_easysetup/programs/C#/Frameworks/Tools/DPQuery_Tool/DummyDaps.cs index 549cad31d..121476792 100644 --- a/root_easysetup/programs/C#/Frameworks/Tools/DPQuery_Tool/DummyDaps.cs +++ b/root_easysetup/programs/C#/Frameworks/Tools/DPQuery_Tool/DummyDaps.cs @@ -42,300 +42,300 @@ ////////////////////////////////////////////////// namespace Touryo.Infrastructure.Public.Db { - ///// - ///// DamOraClientのダミー - ///// - //public class DamOraClient { } - - ///// - ///// DamOraOdpのダミー - ///// - //public class DamOraOdp - //{ - // public int ArrayBindCount; - //} - - ///// - ///// DamDB2のダミー - ///// - //public class DamDB2 { } + /// + /// DamOraClientのダミー + /// + public class DamOraClient { } + + /// + /// DamOraOdpのダミー + /// + public class DamOraOdp + { + public int ArrayBindCount; + } + + /// + /// DamDB2のダミー + /// + public class DamDB2 { } /// /// DamHiRDBのダミー /// public class DamHiRDB { } - ///// - ///// DamMySQLのダミー - ///// - //public class DamMySQL { } + /// + /// DamMySQLのダミー + /// + public class DamMySQL { } - ///// - ///// DamPstGrSのダミー - ///// - //public class DamPstGrS { } + /// + /// DamPstGrSのダミー + /// + public class DamPstGrS { } } ////////////////////////////////////////////////// // System.Data.OracleClient ////////////////////////////////////////////////// -//namespace System.Data.OracleClient -//{ -// /// -// /// OracleConnectionのダミー -// /// -// public class OracleConnection -// { -// /// コンストラクタ -// /// 接続文字列 -// public OracleConnection(string s) -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// Openメソッド -// public void Open() -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// Closeメソッド -// public void Close() -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// GetSchemaメソッド -// public DataTable GetSchema(object o) -// { -// throw new NotImplementedException("this is dummy."); -// //return null; -// } -// } - -// /// -// /// OracleConnectionStringBuilderのダミー -// /// -// public class OracleConnectionStringBuilder -// { -// public string DataSource; -// public string UserID; -// public string Password; -// public string ConnectionString; -// } - -// /// -// /// OracleTypeのダミー -// /// -// public enum OracleType -// { -// BFile, -// Blob, -// Byte, -// Char, -// Clob, -// Cursor, -// DateTime, -// Double, -// Float, -// Int16, -// Int32, -// IntervalDayToSecond, -// IntervalYearToMonth, -// LongRaw, -// LongVarChar, -// NChar, -// NClob, -// Number, -// NVarChar, -// Raw, -// RowId, -// SByte, -// Timestamp, -// TimestampLocal, -// TimestampWithTZ, -// UInt16, -// UInt32, -// VarChar -// } -//} +namespace System.Data.OracleClient +{ + /// + /// OracleConnectionのダミー + /// + public class OracleConnection + { + /// コンストラクタ + /// 接続文字列 + public OracleConnection(string s) + { + throw new NotImplementedException("this is dummy."); + } + + /// Openメソッド + public void Open() + { + throw new NotImplementedException("this is dummy."); + } + + /// Closeメソッド + public void Close() + { + throw new NotImplementedException("this is dummy."); + } + + /// GetSchemaメソッド + public DataTable GetSchema(object o) + { + throw new NotImplementedException("this is dummy."); + //return null; + } + } + + /// + /// OracleConnectionStringBuilderのダミー + /// + public class OracleConnectionStringBuilder + { + public string DataSource; + public string UserID; + public string Password; + public string ConnectionString; + } + + /// + /// OracleTypeのダミー + /// + public enum OracleType + { + BFile, + Blob, + Byte, + Char, + Clob, + Cursor, + DateTime, + Double, + Float, + Int16, + Int32, + IntervalDayToSecond, + IntervalYearToMonth, + LongRaw, + LongVarChar, + NChar, + NClob, + Number, + NVarChar, + Raw, + RowId, + SByte, + Timestamp, + TimestampLocal, + TimestampWithTZ, + UInt16, + UInt32, + VarChar + } +} ////////////////////////////////////////////////// // Oracle.DataAccess.Client ////////////////////////////////////////////////// -//namespace Oracle.DataAccess.Client -//{ -// /// -// /// OracleConnectionのダミー -// /// -// public class OracleConnection -// { -// /// コンストラクタ -// /// 接続文字列 -// public OracleConnection(string s) -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// Openメソッド -// public void Open() -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// Closeメソッド -// public void Close() -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// GetSchemaメソッド -// public DataTable GetSchema(object o) -// { -// throw new NotImplementedException("this is dummy."); -// //return null; -// } -// } - -// /// -// /// OracleConnectionStringBuilderのダミー -// /// -// public class OracleConnectionStringBuilder -// { -// public string DataSource; -// public string UserID; -// public string Password; -// public string ConnectionString; -// } - -// /// -// /// OracleDbTypeのダミー -// /// -// public enum OracleDbType -// { -// BFile, -// BinaryFloat, -// BinaryDouble, -// Blob, -// Byte, -// Char, -// Clob, -// Date, -// Decimal, -// Double, -// Int16, -// Int32, -// Int64, -// IntervalDS, -// IntervalYM, -// Long, -// LongRaw, -// NChar, -// NClob, -// NVarchar2, -// Raw, -// RefCursor, -// Single, -// TimeStamp, -// TimeStampLTZ, -// TimeStampTZ, -// Varchar2, -// XmlType -// } -//} +namespace Oracle.DataAccess.Client +{ + /// + /// OracleConnectionのダミー + /// + public class OracleConnection + { + /// コンストラクタ + /// 接続文字列 + public OracleConnection(string s) + { + throw new NotImplementedException("this is dummy."); + } + + /// Openメソッド + public void Open() + { + throw new NotImplementedException("this is dummy."); + } + + /// Closeメソッド + public void Close() + { + throw new NotImplementedException("this is dummy."); + } + + /// GetSchemaメソッド + public DataTable GetSchema(object o) + { + throw new NotImplementedException("this is dummy."); + //return null; + } + } + + /// + /// OracleConnectionStringBuilderのダミー + /// + public class OracleConnectionStringBuilder + { + public string DataSource; + public string UserID; + public string Password; + public string ConnectionString; + } + + /// + /// OracleDbTypeのダミー + /// + public enum OracleDbType + { + BFile, + BinaryFloat, + BinaryDouble, + Blob, + Byte, + Char, + Clob, + Date, + Decimal, + Double, + Int16, + Int32, + Int64, + IntervalDS, + IntervalYM, + Long, + LongRaw, + NChar, + NClob, + NVarchar2, + Raw, + RefCursor, + Single, + TimeStamp, + TimeStampLTZ, + TimeStampTZ, + Varchar2, + XmlType + } +} ////////////////////////////////////////////////// // IBM.Data.DB2 ////////////////////////////////////////////////// -//namespace IBM.Data.DB2 -//{ -// /// -// /// DB2Connectionのダミー -// /// -// public class DB2Connection -// { -// /// コンストラクタ -// /// 接続文字列 -// public DB2Connection(string s) -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// Openメソッド -// public void Open() -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// Closeメソッド -// public void Close() -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// GetSchemaメソッド -// public DataTable GetSchema(object o) -// { -// throw new NotImplementedException("this is dummy."); -// //return null; -// } -// } - -// /// -// /// DB2ConnectionStringBuilderのダミー -// /// -// public class DB2ConnectionStringBuilder -// { -// public string Database; -// public string UserID; -// public string Password; -// public string ConnectionString; -// } - -// /// -// /// DB2Typeのダミー -// /// -// public enum DB2Type -// { -// BigInt, -// BigSerial, -// Binary, -// Blob, -// Byte, -// Char, -// Clob, -// Date, -// DateTime, -// DbClob, -// Decimal, -// DecimalFloat, -// Double, -// Float, -// Graphic, -// Integer, -// Int8, -// LongVarBinary, -// LongVarGraphic, -// Money, -// Numeric, -// Real, -// Real370, -// RowId, -// Serial, -// Serial8, -// SmallInt, -// Text, -// Time, -// Timestamp, -// VarBinary, -// VarChar, -// VarGraphic, -// Xml -// } -//} +namespace IBM.Data.DB2 +{ + /// + /// DB2Connectionのダミー + /// + public class DB2Connection + { + /// コンストラクタ + /// 接続文字列 + public DB2Connection(string s) + { + throw new NotImplementedException("this is dummy."); + } + + /// Openメソッド + public void Open() + { + throw new NotImplementedException("this is dummy."); + } + + /// Closeメソッド + public void Close() + { + throw new NotImplementedException("this is dummy."); + } + + /// GetSchemaメソッド + public DataTable GetSchema(object o) + { + throw new NotImplementedException("this is dummy."); + //return null; + } + } + + /// + /// DB2ConnectionStringBuilderのダミー + /// + public class DB2ConnectionStringBuilder + { + public string Database; + public string UserID; + public string Password; + public string ConnectionString; + } + + /// + /// DB2Typeのダミー + /// + public enum DB2Type + { + BigInt, + BigSerial, + Binary, + Blob, + Byte, + Char, + Clob, + Date, + DateTime, + DbClob, + Decimal, + DecimalFloat, + Double, + Float, + Graphic, + Integer, + Int8, + LongVarBinary, + LongVarGraphic, + Money, + Numeric, + Real, + Real370, + RowId, + Serial, + Serial8, + SmallInt, + Text, + Time, + Timestamp, + VarBinary, + VarChar, + VarGraphic, + Xml + } +} ////////////////////////////////////////////////// // Hitachi.HiRDB @@ -380,98 +380,98 @@ public DataTable GetSchema(object o) // MySql.Data.MySqlClient ////////////////////////////////////////////////// -//namespace MySql.Data.MySqlClient -//{ -// /// -// /// MySqlConnectionのダミー -// /// -// public class MySqlConnection -// { -// /// コンストラクタ -// /// 接続文字列 -// public MySqlConnection(string s) -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// Openメソッド -// public void Open() -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// Closeメソッド -// public void Close() -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// GetSchemaメソッド -// public DataTable GetSchema(object o) -// { -// throw new NotImplementedException("this is dummy."); -// //return null; -// } -// } - -// /// -// /// MySqlConnectionStringBuilderのダミー -// /// -// public class MySqlConnectionStringBuilder -// { -// public string Server; -// public string Database; -// public string UserID; -// public string Password; -// public string ConnectionString; -// } -//} +namespace MySql.Data.MySqlClient +{ + /// + /// MySqlConnectionのダミー + /// + public class MySqlConnection + { + /// コンストラクタ + /// 接続文字列 + public MySqlConnection(string s) + { + throw new NotImplementedException("this is dummy."); + } + + /// Openメソッド + public void Open() + { + throw new NotImplementedException("this is dummy."); + } + + /// Closeメソッド + public void Close() + { + throw new NotImplementedException("this is dummy."); + } + + /// GetSchemaメソッド + public DataTable GetSchema(object o) + { + throw new NotImplementedException("this is dummy."); + //return null; + } + } + + /// + /// MySqlConnectionStringBuilderのダミー + /// + public class MySqlConnectionStringBuilder + { + public string Server; + public string Database; + public string UserID; + public string Password; + public string ConnectionString; + } +} ////////////////////////////////////////////////// // Npgsql ////////////////////////////////////////////////// -//namespace Npgsql -//{ -// /// -// /// NpgsqlConnectionのダミー -// /// -// public class NpgsqlConnection -// { -// /// コンストラクタ -// /// 接続文字列 -// public NpgsqlConnection(string s) -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// Openメソッド -// public void Open() -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// Closeメソッド -// public void Close() -// { -// throw new NotImplementedException("this is dummy."); -// } - -// /// GetSchemaメソッド -// public DataTable GetSchema(object o) -// { -// throw new NotImplementedException("this is dummy."); -// //return null; -// } -// } -//} - -//namespace NpgsqlTypes -//{ -// /// -// /// xxxのダミー -// /// -// public class xxx -// { -// } -//} +namespace Npgsql +{ + /// + /// NpgsqlConnectionのダミー + /// + public class NpgsqlConnection + { + /// コンストラクタ + /// 接続文字列 + public NpgsqlConnection(string s) + { + throw new NotImplementedException("this is dummy."); + } + + /// Openメソッド + public void Open() + { + throw new NotImplementedException("this is dummy."); + } + + /// Closeメソッド + public void Close() + { + throw new NotImplementedException("this is dummy."); + } + + /// GetSchemaメソッド + public DataTable GetSchema(object o) + { + throw new NotImplementedException("this is dummy."); + //return null; + } + } +} + +namespace NpgsqlTypes +{ + /// + /// xxxのダミー + /// + public class xxx + { + } +} diff --git a/root_easysetup/programs/C#/Frameworks/Tools/DPQuery_Tool/Form1.cs b/root_easysetup/programs/C#/Frameworks/Tools/DPQuery_Tool/Form1.cs index 460a98d68..95c3626a3 100644 --- a/root_easysetup/programs/C#/Frameworks/Tools/DPQuery_Tool/Form1.cs +++ b/root_easysetup/programs/C#/Frameworks/Tools/DPQuery_Tool/Form1.cs @@ -63,7 +63,7 @@ using System.Data.SqlClient; using System.Data.OleDb; using System.Data.Odbc; -using System.Data.OracleClient; +//using System.Data.OracleClient; using Oracle.DataAccess.Client; using IBM.Data.DB2; //using Hitachi.HiRDB; diff --git a/root_easysetup/programs/C#/Frameworks/Tools/DaoGen_Tool/DaoGen_Tool.csproj b/root_easysetup/programs/C#/Frameworks/Tools/DaoGen_Tool/DaoGen_Tool.csproj index e0a9a6911..0a33a7d27 100644 --- a/root_easysetup/programs/C#/Frameworks/Tools/DaoGen_Tool/DaoGen_Tool.csproj +++ b/root_easysetup/programs/C#/Frameworks/Tools/DaoGen_Tool/DaoGen_Tool.csproj @@ -59,19 +59,6 @@ 4 - - ..\..\Infrastructure\Build\IBM.Data.DB2.dll - - - ..\..\Infrastructure\Build\MySql.Data.dll - - - ..\..\Infrastructure\Build\Npgsql.dll - - - False - ..\..\Infrastructure\Build\Oracle.DataAccess.dll - False ..\..\Infrastructure\Build\Public.dll diff --git a/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC.cs b/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC.cs deleted file mode 100644 index 8ef103537..000000000 --- a/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC.cs +++ /dev/null @@ -1,712 +0,0 @@ -//********************************************************************************** -//* フレームワーク・テストクラス（Ｂ層） -//********************************************************************************** - -//********************************************************************************** -//* クラス名 ：TestMTC -//* クラス日本語名 ：Ｂ層のテスト（手動トランザクション制御） -//* -//* 作成日時 ：－ -//* 作成者 ：sas 生技 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ ＸＸＸＸ -//* -//********************************************************************************** - -// System -using System; - -// データセット利用 -using System.Data; - -// 業務フレームワーク -using Touryo.Infrastructure.Business.Business; -using Touryo.Infrastructure.Business.Dao; -using Touryo.Infrastructure.Business.Common; - -// フレームワーク -using Touryo.Infrastructure.Framework.Business; -using Touryo.Infrastructure.Framework.Common; -using Touryo.Infrastructure.Framework.Exceptions; - -// 部品 -using Touryo.Infrastructure.Public.Db; -using Touryo.Infrastructure.Public.Util; - -/// -/// TestMTC の概要の説明です -/// -public class TestMTC : MyBaseLogic -{ - /// 業務処理を実装 - /// 引数クラス - /// 戻り値クラス - protected override void UOC_DoAction(BaseParameterValue parameterValue, ref BaseReturnValue returnValue) - { - // 戻り値を生成しておく。 - returnValue = new MyReturnValue(); - - // 自動トランザクションで開始したトランザクションを閉じる。 - this.GetDam().CommitTransaction(); - - // コネクションを閉じる。 - this.GetDam().ConnectionClose(); - - // データアクセス制御クラスをクリア。 - this.SetDam(null); - - // Dam用ワーク - BaseDam damWork; - - // 共通Dao - CmnDao cmnDao; - - // カバレージ上げ用 - IDbConnection idcnn = null; - IDbTransaction idtx = null; - IDbCommand idcmd = null; - IDataAdapter idapt = null; - DataSet ds = null; - - // SQLの戻り値を受ける - object obj; - - #region SQL Server - - damWork = new DamSqlSvr(); - - #region 接続しない - - BaseLogic.InitDam("XXXX", damWork); - this.SetDam(damWork); - - // なにもしない。 - - // プロパティにアクセス（デバッガで確認） - idcnn = ((DamSqlSvr)this.GetDam()).DamSqlConnection; - idtx = ((DamSqlSvr)this.GetDam()).DamSqlTransaction; - - // nullの時に呼んだ場合。 - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region SQL_NT - - BaseLogic.InitDam("SQL_NT", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region SQL_UC - - BaseLogic.InitDam("SQL_UC", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region SQL_RC - - BaseLogic.InitDam("SQL_RC", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - // プロパティにアクセス（デバッガで確認） - idcnn = ((DamSqlSvr)this.GetDam()).DamSqlConnection; - idtx = ((DamSqlSvr)this.GetDam()).DamSqlTransaction; - idcmd = ((DamSqlSvr)this.GetDam()).DamSqlCommand; - idapt = ((DamSqlSvr)this.GetDam()).DamSqlDataAdapter; - ds = new DataSet(); - idapt.Fill(ds); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - // ２連続で呼んだ場合。 - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region SQL_RR - - BaseLogic.InitDam("SQL_RR", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region SQL_SZ - - BaseLogic.InitDam("SQL_SZ", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region SQL_SS - - BaseLogic.InitDam("SQL_SS", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region SQL_DF - - BaseLogic.InitDam("SQL_DF", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #endregion - - #region Oracle - - damWork = new DamOraOdp(); - - #region 接続しない - - BaseLogic.InitDam("XXXX", damWork); - this.SetDam(damWork); - - // なにもしない。 - - // プロパティにアクセス（デバッガで確認） - idcnn = ((DamOraOdp)this.GetDam()).DamOracleConnection; - idtx = ((DamOraOdp)this.GetDam()).DamOracleTransaction; - - // nullの時に呼んだ場合。 - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region ODP2_NT - - BaseLogic.InitDam("ODP2_NT", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region ODP2_UC - - // ★ サポートされない分離レベル - - #endregion - - #region ODP2_RC - - BaseLogic.InitDam("ODP2_RC", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - // プロパティにアクセス（デバッガで確認） - idcnn = ((DamOraOdp)this.GetDam()).DamOracleConnection; - idtx = ((DamOraOdp)this.GetDam()).DamOracleTransaction; - idcmd = ((DamOraOdp)this.GetDam()).DamOracleCommand; - idapt = ((DamOraOdp)this.GetDam()).DamOracleDataAdapter; - ds = new DataSet(); - idapt.Fill(ds); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - // ２連続で呼んだ場合。 - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region ODP2_RR - - // ★ サポートされない分離レベル - - #endregion - - #region ODP2_SZ - - BaseLogic.InitDam("ODP2_SZ", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region ODP2_SS - - // ★ サポートされない分離レベル - - #endregion - - #region ODP2_DF - - BaseLogic.InitDam("ODP2_DF", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #endregion - - #region DB2 - - damWork = new DamDB2(); - - #region 接続しない - - BaseLogic.InitDam("XXXX", damWork); - this.SetDam(damWork); - - // なにもしない。 - - // プロパティにアクセス（デバッガで確認） - idcnn = ((DamDB2)this.GetDam()).DamDB2Connection; - idtx = ((DamDB2)this.GetDam()).DamDB2Transaction; - - // nullの時に呼んだ場合。 - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region DB2_NT - - BaseLogic.InitDam("DB2_NT", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region DB2_UC - - BaseLogic.InitDam("DB2_UC", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region DB2_RC - - BaseLogic.InitDam("DB2_RC", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - // プロパティにアクセス（デバッガで確認） - idcnn = ((DamDB2)this.GetDam()).DamDB2Connection; - idtx = ((DamDB2)this.GetDam()).DamDB2Transaction; - idcmd = ((DamDB2)this.GetDam()).DamDB2Command; - idapt = ((DamDB2)this.GetDam()).DamDB2DataAdapter; - ds = new DataSet(); - idapt.Fill(ds); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - // ２連続で呼んだ場合。 - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region DB2_RR - - BaseLogic.InitDam("DB2_RR", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region DB2_SZ - - BaseLogic.InitDam("DB2_SZ", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region DB2_SS - - // ★ サポートされない分離レベル - - #endregion - - #region DB2_DF - - BaseLogic.InitDam("DB2_DF", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #endregion - - #region MySQL - - damWork = new DamMySQL(); - - #region 接続しない - - BaseLogic.InitDam("XXXX", damWork); - this.SetDam(damWork); - - // なにもしない。 - - // プロパティにアクセス（デバッガで確認） - idcnn = ((DamMySQL)this.GetDam()).DamMySqlConnection; - idtx = ((DamMySQL)this.GetDam()).DamMySqlTransaction; - - // nullの時に呼んだ場合。 - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region MCN_NT - - BaseLogic.InitDam("MCN_NT", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region MCN_UC - - BaseLogic.InitDam("MCN_UC", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region MCN_RC - - BaseLogic.InitDam("MCN_RC", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - // プロパティにアクセス（デバッガで確認） - idcnn = ((DamMySQL)this.GetDam()).DamMySqlConnection; - idtx = ((DamMySQL)this.GetDam()).DamMySqlTransaction; - idcmd = ((DamMySQL)this.GetDam()).DamMySqlCommand; - idapt = ((DamMySQL)this.GetDam()).DamMySqlDataAdapter; - ds = new DataSet(); - idapt.Fill(ds); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - // ２連続で呼んだ場合。 - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region MCN_RR - - BaseLogic.InitDam("MCN_RR", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region MCN_SZ - - BaseLogic.InitDam("MCN_SZ", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #region MCN_SS - - // ★ サポートされない分離レベル - - #endregion - - #region MCN_DF - - BaseLogic.InitDam("MCN_DF", damWork); - this.SetDam(damWork); - - // 行数 - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam()); - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS"; - obj = (object)cmnDao.ExecSelectScalar(); - - this.GetDam().CommitTransaction(); - this.GetDam().ConnectionClose(); - - #endregion - - #endregion - - #region エラー処理（ロールバックのテスト） - - if ((parameterValue.ActionType.Split('%'))[1] != "-") - { - #region エラー時のDamの状態選択 - - if ((parameterValue.ActionType.Split('%'))[2] == "UT") - { - // トランザクションあり - damWork = new DamSqlSvr(); - damWork.ConnectionOpen(GetConfigParameter.GetConnectionString("ConnectionString_SQL")); - damWork.BeginTransaction(DbEnum.IsolationLevelEnum.ReadCommitted); - this.SetDam(damWork); - } - else if ((parameterValue.ActionType.Split('%'))[2] == "NT") - { - // トランザクションなし - damWork = new DamSqlSvr(); - damWork.ConnectionOpen(GetConfigParameter.GetConnectionString("ConnectionString_SQL")); - this.SetDam(damWork); - } - else if ((parameterValue.ActionType.Split('%'))[2] == "NC") - { - // コネクションなし - damWork = new DamSqlSvr(); - this.SetDam(damWork); - } - else if ((parameterValue.ActionType.Split('%'))[2] == "NULL") - { - // データアクセス制御クラス = Null - this.SetDam(null); - } - - #endregion - - #region エラーのスロー - - if ((parameterValue.ActionType.Split('%'))[1] == "Business") - { - // 業務例外のスロー - throw new BusinessApplicationException( - "ロールバックのテスト", - "ロールバックのテスト", - "エラー情報"); - } - else if ((parameterValue.ActionType.Split('%'))[1] == "System") - { - // システム例外のスロー - throw new BusinessSystemException( - "ロールバックのテスト", - "ロールバックのテスト"); - } - else if ((parameterValue.ActionType.Split('%'))[1] == "Other") - { - // その他、一般的な例外のスロー - throw new Exception("ロールバックのテスト"); - } - else if ((parameterValue.ActionType.Split('%'))[1] == "Other-Business") - { - // その他、一般的な例外（業務例外へ振り替え）のスロー - throw new Exception("Other-Business"); - } - else if ((parameterValue.ActionType.Split('%'))[1] == "Other-System") - { - // その他、一般的な例外（システム例外へ振り替え）のスロー - throw new Exception("Other-System"); - } - - #endregion - } - - #endregion - - } -} diff --git a/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_mcn.cs b/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_mcn.cs deleted file mode 100644 index b0c79cf51..000000000 --- a/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_mcn.cs +++ /dev/null @@ -1,885 +0,0 @@ -//********************************************************************************** -//* フレームワーク・テストクラス（Ｂ層） -//********************************************************************************** - -//********************************************************************************** -//* クラス名 ：TestMTC_mcn -//* クラス日本語名 ：Ｂ層のテスト（手動トランザクション制御－複数コネクション版） -//* -//* 作成日時 ：－ -//* 作成者 ：sas 生技 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ ＸＸＸＸ -//* -//********************************************************************************** - -// System -using System; - -// データセット利用 -using System.Data; - -// 業務フレームワーク -using Touryo.Infrastructure.Business.Business; -using Touryo.Infrastructure.Business.Dao; -using Touryo.Infrastructure.Business.Common; - -// フレームワーク -using Touryo.Infrastructure.Framework.Business; -using Touryo.Infrastructure.Framework.Common; -using Touryo.Infrastructure.Framework.Exceptions; - -// 部品 -using Touryo.Infrastructure.Public.Db; -using Touryo.Infrastructure.Public.Util; - -/// -/// TestMTC_mcn の概要の説明です -/// -public class TestMTC_mcn : MyBaseLogic -{ - /// 業務処理を実装 - /// 引数クラス - /// 戻り値クラス - protected override void UOC_DoAction(BaseParameterValue parameterValue, ref BaseReturnValue returnValue) - { - // 戻り値を生成しておく。 - returnValue = new MyReturnValue(); - - // 自動トランザクションで開始したトランザクションを閉じる。 - this.GetDam().CommitTransaction(); - - // コネクションを閉じる。 - this.GetDam().ConnectionClose(); - - // データアクセス制御クラスをクリア。 - this.SetDam(null); - - // Dam用ワーク - BaseDam damWork; - - // 共通Dao - CmnDao cmnDao; - - // SQLの戻り値を受ける - object obj; - - #region SQL Server - - #region SQL_NT - - // Damを生成 - damWork = new DamSqlSvr(); - // Damを初期化 - BaseLogic.InitDam("SQL_NT", damWork); - // Damを設定 - this.SetDam("SQL_NT", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("SQL_NT")); - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('SQL_NT', 'SQL_NT')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("SQL_NT").CommitTransaction(); - //this.GetDam("SQL_NT").ConnectionClose(); - - #endregion - - #region SQL_UC - - // Damを生成 - damWork = new DamSqlSvr(); - // Damを初期化 - BaseLogic.InitDam("SQL_UC", damWork); - // Damを設定 - this.SetDam("SQL_UC", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("SQL_UC")); - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('SQL_UC', 'SQL_UC')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("SQL_UC").CommitTransaction(); - //this.GetDam("SQL_UC").ConnectionClose(); - - #endregion - - #region SQL_RC - - // Damを生成 - damWork = new DamSqlSvr(); - // Damを初期化 - BaseLogic.InitDam("SQL_RC", damWork); - // Damを設定 - this.SetDam("SQL_RC", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("SQL_RC")); - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('SQL_RC', 'SQL_RC')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("SQL_RC").CommitTransaction(); - //this.GetDam("SQL_RC").ConnectionClose(); - - #endregion - - #region SQL_RR - - // Damを生成 - damWork = new DamSqlSvr(); - // Damを初期化 - BaseLogic.InitDam("SQL_RR", damWork); - // Damを設定 - this.SetDam("SQL_RR", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("SQL_RR")); - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('SQL_RR', 'SQL_RR')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("SQL_RR").CommitTransaction(); - //this.GetDam("SQL_RR").ConnectionClose(); - - #endregion - - #region SQL_SZ - - // Damを生成 - damWork = new DamSqlSvr(); - // Damを初期化 - BaseLogic.InitDam("SQL_SZ", damWork); - // Damを設定 - this.SetDam("SQL_SZ", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("SQL_SZ")); - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('SQL_SZ', 'SQL_SZ')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("SQL_SZ").CommitTransaction(); - //this.GetDam("SQL_SZ").ConnectionClose(); - - #endregion - - #region SQL_SS - - // Damを生成 - damWork = new DamSqlSvr(); - // Damを初期化 - BaseLogic.InitDam("SQL_SS", damWork); - // Damを設定 - this.SetDam("SQL_SS", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("SQL_SS")); - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('SQL_SS', 'SQL_SS')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("SQL_SS").CommitTransaction(); - //this.GetDam("SQL_SS").ConnectionClose(); - - #endregion - - #region SQL_DF - - // Damを生成 - damWork = new DamSqlSvr(); - // Damを初期化 - BaseLogic.InitDam("SQL_DF", damWork); - // Damを設定 - this.SetDam("SQL_DF", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("SQL_DF")); - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('SQL_DF', 'SQL_DF')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("SQL_DF").CommitTransaction(); - //this.GetDam("SQL_DF").ConnectionClose(); - - #endregion - - #endregion - - #region Oracle - - #region ODP2_NT - - // Damを生成 - damWork = new DamOraOdp(); - // Damを初期化 - BaseLogic.InitDam("ODP2_NT", damWork); - // Damを設定 - this.SetDam("ODP2_NT", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("ODP2_NT")); - cmnDao.SQLText = "INSERT INTO Shippers(ShipperID, CompanyName, Phone) VALUES(TS_ShipperID.NEXTVAL, 'ODP2_NT', 'ODP2_NT')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("ODP2_NT").CommitTransaction(); - //this.GetDam("ODP2_NT").ConnectionClose(); - - #endregion - - #region ODP2_UC - - // ★ サポートされない分離レベル - - #endregion - - #region ODP2_RC - - // Damを生成 - damWork = new DamOraOdp(); - // Damを初期化 - BaseLogic.InitDam("ODP2_RC", damWork); - // Damを設定 - this.SetDam("ODP2_RC", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("ODP2_RC")); - cmnDao.SQLText = "INSERT INTO Shippers(ShipperID, CompanyName, Phone) VALUES(TS_ShipperID.NEXTVAL, 'ODP2_RC', 'ODP2_RC')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("ODP2_RC").CommitTransaction(); - //this.GetDam("ODP2_RC").ConnectionClose(); - - #endregion - - #region ODP2_RR - - // ★ サポートされない分離レベル - - #endregion - - #region ODP2_SZ - - // Damを生成 - damWork = new DamOraOdp(); - // Damを初期化 - BaseLogic.InitDam("ODP2_SZ", damWork); - // Damを設定 - this.SetDam("ODP2_SZ", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("ODP2_SZ")); - cmnDao.SQLText = "INSERT INTO Shippers(ShipperID, CompanyName, Phone) VALUES(TS_ShipperID.NEXTVAL, 'ODP2_SZ', 'ODP2_SZ')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("ODP2_SZ").CommitTransaction(); - //this.GetDam("ODP2_SZ").ConnectionClose(); - - #endregion - - #region ODP2_SS - - // ★ サポートされない分離レベル - - #endregion - - #region ODP2_DF - - // Damを生成 - damWork = new DamOraOdp(); - // Damを初期化 - BaseLogic.InitDam("ODP2_DF", damWork); - // Damを設定 - this.SetDam("ODP2_DF", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("ODP2_DF")); - cmnDao.SQLText = "INSERT INTO Shippers(ShipperID, CompanyName, Phone) VALUES(TS_ShipperID.NEXTVAL, 'ODP2_DF', 'ODP2_DF')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("ODP2_DF").CommitTransaction(); - //this.GetDam("ODP2_DF").ConnectionClose(); - - #endregion - - #endregion - - #region DB2 - - #region DB2_NT - - // Damを生成 - damWork = new DamDB2(); - // Damを初期化 - BaseLogic.InitDam("DB2_NT", damWork); - // Damを設定 - this.SetDam("DB2_NT", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("DB2_NT")); - cmnDao.SQLText = "INSERT INTO Shippers (ShipperID, CompanyName, Phone) VALUES(NEXTVAL for TS_ShipperID, 'DB2_NT', 'DB2_NT')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("DB2_NT").CommitTransaction(); - //this.GetDam("DB2_NT").ConnectionClose(); - - #endregion - - #region DB2_UC - - // Damを生成 - damWork = new DamDB2(); - // Damを初期化 - BaseLogic.InitDam("DB2_UC", damWork); - // Damを設定 - this.SetDam("DB2_UC", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("DB2_UC")); - cmnDao.SQLText = "INSERT INTO Shippers (ShipperID, CompanyName, Phone) VALUES(NEXTVAL for TS_ShipperID, 'DB2_UC', 'DB2_UC')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("DB2_UC").CommitTransaction(); - //this.GetDam("DB2_UC").ConnectionClose(); - - #endregion - - #region DB2_RC - - // Damを生成 - damWork = new DamDB2(); - // Damを初期化 - BaseLogic.InitDam("DB2_RC", damWork); - // Damを設定 - this.SetDam("DB2_RC", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("DB2_UC")); - cmnDao.SQLText = "INSERT INTO Shippers (ShipperID, CompanyName, Phone) VALUES(NEXTVAL for TS_ShipperID, 'DB2_RC', 'DB2_RC')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("DB2_RC").CommitTransaction(); - //this.GetDam("DB2_RC").ConnectionClose(); - - #endregion - - #region DB2_RR - - // Damを生成 - damWork = new DamDB2(); - // Damを初期化 - BaseLogic.InitDam("DB2_RR", damWork); - // Damを設定 - this.SetDam("DB2_RR", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("DB2_RR")); - cmnDao.SQLText = "INSERT INTO Shippers (ShipperID, CompanyName, Phone) VALUES(NEXTVAL for TS_ShipperID, 'DB2_RR', 'DB2_RR')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("DB2_RR").CommitTransaction(); - //this.GetDam("DB2_RR").ConnectionClose(); - - #endregion - - #region DB2_SZ - - // Damを生成 - damWork = new DamDB2(); - // Damを初期化 - BaseLogic.InitDam("DB2_SZ", damWork); - // Damを設定 - this.SetDam("DB2_SZ", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("DB2_SZ")); - cmnDao.SQLText = "INSERT INTO Shippers (ShipperID, CompanyName, Phone) VALUES(NEXTVAL for TS_ShipperID, 'DB2_SZ', 'DB2_SZ')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("DB2_SZ").CommitTransaction(); - //this.GetDam("DB2_SZ").ConnectionClose(); - - #endregion - - #region DB2_SS - - // ★ サポートされない分離レベル - - #endregion - - #region DB2_DF - - // Damを生成 - damWork = new DamDB2(); - // Damを初期化 - BaseLogic.InitDam("DB2_DF", damWork); - // Damを設定 - this.SetDam("DB2_DF", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("DB2_DF")); - cmnDao.SQLText = "INSERT INTO Shippers (ShipperID, CompanyName, Phone) VALUES(NEXTVAL for TS_ShipperID, 'DB2_DF', 'DB2_DF')"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("DB2_DF").CommitTransaction(); - //this.GetDam("DB2_DF").ConnectionClose(); - - #endregion - - #endregion - - #region MySQL - - #region MCN_NT - - // Damを生成 - damWork = new DamMySQL(); - // Damを初期化 - BaseLogic.InitDam("MCN_NT", damWork); - // Damを設定 - this.SetDam("MCN_NT", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("MCN_NT")); - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('MCN_NT', 'MCN_NT');"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("MCN_NT").CommitTransaction(); - //this.GetDam("MCN_NT").ConnectionClose(); - - #endregion - - #region MCN_UC - - // Damを生成 - damWork = new DamMySQL(); - // Damを初期化 - BaseLogic.InitDam("MCN_UC", damWork); - // Damを設定 - this.SetDam("MCN_UC", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("MCN_UC")); - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('MCN_UC', 'MCN_UC');"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("MCN_UC").CommitTransaction(); - //this.GetDam("MCN_UC").ConnectionClose(); - - #endregion - - #region MCN_RC - - // Damを生成 - damWork = new DamMySQL(); - // Damを初期化 - BaseLogic.InitDam("MCN_RC", damWork); - // Damを設定 - this.SetDam("MCN_RC", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("MCN_RC")); - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('MCN_RC', 'MCN_RC');"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("MCN_RC").CommitTransaction(); - //this.GetDam("MCN_RC").ConnectionClose(); - - #endregion - - #region MCN_RR - - // Damを生成 - damWork = new DamMySQL(); - // Damを初期化 - BaseLogic.InitDam("MCN_RR", damWork); - // Damを設定 - this.SetDam("MCN_RR", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("MCN_RR")); - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('MCN_RR', 'MCN_RR');"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("MCN_RR").CommitTransaction(); - //this.GetDam("MCN_RR").ConnectionClose(); - - #endregion - - #region MCN_SZ - - // Damを生成 - damWork = new DamMySQL(); - // Damを初期化 - BaseLogic.InitDam("MCN_SZ", damWork); - // Damを設定 - this.SetDam("MCN_SZ", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("MCN_SZ")); - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('MCN_SZ', 'MCN_SZ');"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("MCN_SZ").CommitTransaction(); - //this.GetDam("MCN_SZ").ConnectionClose(); - - #endregion - - #region MCN_SS - - // ★ サポートされない分離レベル - - #endregion - - #region MCN_DF - - // Damを生成 - damWork = new DamMySQL(); - // Damを初期化 - BaseLogic.InitDam("MCN_DF", damWork); - // Damを設定 - this.SetDam("MCN_DF", damWork); - - // インサート - // Damを直接使用することもできるが、 - // 通常は、データアクセスにはDaoを使用する。 - cmnDao = new CmnDao(this.GetDam("MCN_DF")); - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('MCN_DF', 'MCN_DF');"; - obj = (object)cmnDao.ExecSelectScalar(); - - //this.GetDam("MCN_DF").CommitTransaction(); - //this.GetDam("MCN_DF").ConnectionClose(); - - #endregion - - #endregion - - #region 終了時の状態選択 - - #region Damの状態選択 - - if ((parameterValue.ActionType.Split('%'))[2] == "UT") - { - // トランザクションあり - } - else if ((parameterValue.ActionType.Split('%'))[2] == "NT") - { - // トランザクションなし - // → まえもってロールバックしておく - - #region ロールバック - - this.GetDam("SQL_NT").RollbackTransaction(); - this.GetDam("SQL_UC").RollbackTransaction(); - this.GetDam("SQL_RC").RollbackTransaction(); - this.GetDam("SQL_RR").RollbackTransaction(); - this.GetDam("SQL_SZ").RollbackTransaction(); - this.GetDam("SQL_SS").RollbackTransaction(); - this.GetDam("SQL_DF").RollbackTransaction(); - - this.GetDam("ODP2_NT").RollbackTransaction(); - //this.GetDam("ODP2_UC").RollbackTransaction(); - this.GetDam("ODP2_RC").RollbackTransaction(); - //this.GetDam("ODP2_RR").RollbackTransaction(); - this.GetDam("ODP2_SZ").RollbackTransaction(); - //this.GetDam("ODP2_SS").RollbackTransaction(); - this.GetDam("ODP2_DF").RollbackTransaction(); - - this.GetDam("DB2_NT").RollbackTransaction(); - this.GetDam("DB2_UC").RollbackTransaction(); - this.GetDam("DB2_RC").RollbackTransaction(); - this.GetDam("DB2_RR").RollbackTransaction(); - this.GetDam("DB2_SZ").RollbackTransaction(); - //this.GetDam("DB2_SS").RollbackTransaction(); - this.GetDam("DB2_DF").RollbackTransaction(); - - this.GetDam("MCN_NT").RollbackTransaction(); - this.GetDam("MCN_UC").RollbackTransaction(); - this.GetDam("MCN_RC").RollbackTransaction(); - this.GetDam("MCN_RR").RollbackTransaction(); - this.GetDam("MCN_SZ").RollbackTransaction(); - //this.GetDam("MCN_SS").RollbackTransaction(); - this.GetDam("MCN_DF").RollbackTransaction(); - - #endregion - } - else if ((parameterValue.ActionType.Split('%'))[2] == "NC") - { - // コネクションなし - // → まえもってロールバック、コネクションクローズしておく - // - // ※ トランザクションを開始して - // コミットしないで閉じると、ロールバック扱い。 - - #region ロールバック - - this.GetDam("SQL_NT").RollbackTransaction(); - this.GetDam("SQL_UC").RollbackTransaction(); - this.GetDam("SQL_RC").RollbackTransaction(); - this.GetDam("SQL_RR").RollbackTransaction(); - this.GetDam("SQL_SZ").RollbackTransaction(); - this.GetDam("SQL_SS").RollbackTransaction(); - this.GetDam("SQL_DF").RollbackTransaction(); - - this.GetDam("ODP2_NT").RollbackTransaction(); - //this.GetDam("ODP2_UC").RollbackTransaction(); - this.GetDam("ODP2_RC").RollbackTransaction(); - //this.GetDam("ODP2_RR").RollbackTransaction(); - this.GetDam("ODP2_SZ").RollbackTransaction(); - //this.GetDam("ODP2_SS").RollbackTransaction(); - this.GetDam("ODP2_DF").RollbackTransaction(); - - this.GetDam("DB2_NT").RollbackTransaction(); - this.GetDam("DB2_UC").RollbackTransaction(); - this.GetDam("DB2_RC").RollbackTransaction(); - this.GetDam("DB2_RR").RollbackTransaction(); - this.GetDam("DB2_SZ").RollbackTransaction(); - //this.GetDam("DB2_SS").RollbackTransaction(); - this.GetDam("DB2_DF").RollbackTransaction(); - - this.GetDam("MCN_NT").RollbackTransaction(); - this.GetDam("MCN_UC").RollbackTransaction(); - this.GetDam("MCN_RC").RollbackTransaction(); - this.GetDam("MCN_RR").RollbackTransaction(); - this.GetDam("MCN_SZ").RollbackTransaction(); - //this.GetDam("MCN_SS").RollbackTransaction(); - this.GetDam("MCN_DF").RollbackTransaction(); - - #endregion - - #region コネクションクローズ - - this.GetDam("SQL_NT").ConnectionClose(); - this.GetDam("SQL_UC").ConnectionClose(); - this.GetDam("SQL_RC").ConnectionClose(); - this.GetDam("SQL_RR").ConnectionClose(); - this.GetDam("SQL_SZ").ConnectionClose(); - this.GetDam("SQL_SS").ConnectionClose(); - this.GetDam("SQL_DF").ConnectionClose(); - - this.GetDam("ODP2_NT").ConnectionClose(); - //this.GetDam("ODP2_UC").ConnectionClose(); - this.GetDam("ODP2_RC").ConnectionClose(); - //this.GetDam("ODP2_RR").ConnectionClose(); - this.GetDam("ODP2_SZ").ConnectionClose(); - //this.GetDam("ODP2_SS").ConnectionClose(); - this.GetDam("ODP2_DF").ConnectionClose(); - - this.GetDam("DB2_NT").ConnectionClose(); - this.GetDam("DB2_UC").ConnectionClose(); - this.GetDam("DB2_RC").ConnectionClose(); - this.GetDam("DB2_RR").ConnectionClose(); - this.GetDam("DB2_SZ").ConnectionClose(); - //this.GetDam("DB2_SS").ConnectionClose(); - this.GetDam("DB2_DF").ConnectionClose(); - - this.GetDam("MCN_NT").ConnectionClose(); - this.GetDam("MCN_UC").ConnectionClose(); - this.GetDam("MCN_RC").ConnectionClose(); - this.GetDam("MCN_RR").ConnectionClose(); - this.GetDam("MCN_SZ").ConnectionClose(); - //this.GetDam("MCN_SS").ConnectionClose(); - this.GetDam("MCN_DF").ConnectionClose(); - - #endregion - } - else if ((parameterValue.ActionType.Split('%'))[2] == "NULL") - { - // データアクセス制御クラス = Null - // → まえもってロールバック、コネクションクローズ、Nullクリアしておく - // - // ※ トランザクションを開始して - // コミットしないで閉じると、ロールバック扱い。 - - #region ロールバック - - this.GetDam("SQL_NT").RollbackTransaction(); - this.GetDam("SQL_UC").RollbackTransaction(); - this.GetDam("SQL_RC").RollbackTransaction(); - this.GetDam("SQL_RR").RollbackTransaction(); - this.GetDam("SQL_SZ").RollbackTransaction(); - this.GetDam("SQL_SS").RollbackTransaction(); - this.GetDam("SQL_DF").RollbackTransaction(); - - this.GetDam("ODP2_NT").RollbackTransaction(); - //this.GetDam("ODP2_UC").RollbackTransaction(); - this.GetDam("ODP2_RC").RollbackTransaction(); - //this.GetDam("ODP2_RR").RollbackTransaction(); - this.GetDam("ODP2_SZ").RollbackTransaction(); - //this.GetDam("ODP2_SS").RollbackTransaction(); - this.GetDam("ODP2_DF").RollbackTransaction(); - - this.GetDam("DB2_NT").RollbackTransaction(); - this.GetDam("DB2_UC").RollbackTransaction(); - this.GetDam("DB2_RC").RollbackTransaction(); - this.GetDam("DB2_RR").RollbackTransaction(); - this.GetDam("DB2_SZ").RollbackTransaction(); - //this.GetDam("DB2_SS").RollbackTransaction(); - this.GetDam("DB2_DF").RollbackTransaction(); - - this.GetDam("MCN_NT").RollbackTransaction(); - this.GetDam("MCN_UC").RollbackTransaction(); - this.GetDam("MCN_RC").RollbackTransaction(); - this.GetDam("MCN_RR").RollbackTransaction(); - this.GetDam("MCN_SZ").RollbackTransaction(); - //this.GetDam("MCN_SS").RollbackTransaction(); - this.GetDam("MCN_DF").RollbackTransaction(); - - #endregion - - #region コネクションクローズ - - this.GetDam("SQL_NT").ConnectionClose(); - this.GetDam("SQL_UC").ConnectionClose(); - this.GetDam("SQL_RC").ConnectionClose(); - this.GetDam("SQL_RR").ConnectionClose(); - this.GetDam("SQL_SZ").ConnectionClose(); - this.GetDam("SQL_SS").ConnectionClose(); - this.GetDam("SQL_DF").ConnectionClose(); - - this.GetDam("ODP2_NT").ConnectionClose(); - //this.GetDam("ODP2_UC").ConnectionClose(); - this.GetDam("ODP2_RC").ConnectionClose(); - //this.GetDam("ODP2_RR").ConnectionClose(); - this.GetDam("ODP2_SZ").ConnectionClose(); - //this.GetDam("ODP2_SS").ConnectionClose(); - this.GetDam("ODP2_DF").ConnectionClose(); - - this.GetDam("DB2_NT").ConnectionClose(); - this.GetDam("DB2_UC").ConnectionClose(); - this.GetDam("DB2_RC").ConnectionClose(); - this.GetDam("DB2_RR").ConnectionClose(); - this.GetDam("DB2_SZ").ConnectionClose(); - //this.GetDam("DB2_SS").ConnectionClose(); - this.GetDam("DB2_DF").ConnectionClose(); - - this.GetDam("MCN_NT").ConnectionClose(); - this.GetDam("MCN_UC").ConnectionClose(); - this.GetDam("MCN_RC").ConnectionClose(); - this.GetDam("MCN_RR").ConnectionClose(); - this.GetDam("MCN_SZ").ConnectionClose(); - //this.GetDam("MCN_SS").ConnectionClose(); - this.GetDam("MCN_DF").ConnectionClose(); - - #endregion - - #region Nullクリア - - this.SetDam("SQL_NT", null); - this.SetDam("SQL_UC", null); - this.SetDam("SQL_RC", null); - this.SetDam("SQL_RR", null); - this.SetDam("SQL_SZ", null); - this.SetDam("SQL_SS", null); - this.SetDam("SQL_DF", null); - - this.SetDam("ODP2_NT", null); - //this.SetDam("ODP2_UC",null); - this.SetDam("ODP2_RC", null); - //this.SetDam("ODP2_RR",null); - this.SetDam("ODP2_SZ", null); - //this.SetDam("ODP2_SS",null); - this.SetDam("ODP2_DF", null); - - this.SetDam("DB2_NT", null); - this.SetDam("DB2_UC", null); - this.SetDam("DB2_RC", null); - this.SetDam("DB2_RR", null); - this.SetDam("DB2_SZ", null); - //this.SetDam("DB2_SS",null); - this.SetDam("DB2_DF", null); - - this.SetDam("MCN_NT", null); - this.SetDam("MCN_UC", null); - this.SetDam("MCN_RC", null); - this.SetDam("MCN_RR", null); - this.SetDam("MCN_SZ", null); - //this.SetDam("MCN_SS",null); - this.SetDam("MCN_DF", null); - - #endregion - } - - #endregion - - #region エラーのスロー - - if ((parameterValue.ActionType.Split('%'))[1] == "Business") - { - // 業務例外のスロー - throw new BusinessApplicationException( - "ロールバックのテスト", - "ロールバックのテスト", - "エラー情報"); - } - else if ((parameterValue.ActionType.Split('%'))[1] == "System") - { - // システム例外のスロー - throw new BusinessSystemException( - "ロールバックのテスト", - "ロールバックのテスト"); - } - else if ((parameterValue.ActionType.Split('%'))[1] == "Other") - { - // その他、一般的な例外のスロー - throw new Exception("ロールバックのテスト"); - } - else if ((parameterValue.ActionType.Split('%'))[1] == "Other-Business") - { - // その他、一般的な例外（業務例外へ振り替え）のスロー - throw new Exception("Other-Business"); - } - else if ((parameterValue.ActionType.Split('%'))[1] == "Other-System") - { - // その他、一般的な例外（システム例外へ振り替え）のスロー - throw new Exception("Other-System"); - } - - #endregion - - #endregion - - } -} diff --git a/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_txg.cs b/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_txg.cs deleted file mode 100644 index 6d144d2a2..000000000 --- a/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_txg.cs +++ /dev/null @@ -1,220 +0,0 @@ -//********************************************************************************** -//* フレームワーク・テストクラス（Ｂ層） -//********************************************************************************** - -//********************************************************************************** -//* クラス名 ：TestMTC_txg -//* クラス日本語名 ：Ｂ層のテスト（手動トランザクション制御－複数コネクション版） -//* -//* 作成日時 ：－ -//* 作成者 ：sas 生技 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ ＸＸＸＸ -//* -//********************************************************************************** - -// 型情報 -using MyType; - -// System -using System; - -// データセット利用 -using System.Data; - -// 業務フレームワーク -using Touryo.Infrastructure.Business.Business; -using Touryo.Infrastructure.Business.Dao; -using Touryo.Infrastructure.Business.Common; - -// フレームワーク -using Touryo.Infrastructure.Framework.Business; -using Touryo.Infrastructure.Framework.Common; -using Touryo.Infrastructure.Framework.Exceptions; - -// 部品 -using Touryo.Infrastructure.Public.Db; -using Touryo.Infrastructure.Public.Util; - -/// -/// TestMTC_mcn の概要の説明です -/// -public class TestMTC_txg : MyBaseLogic -{ - /// - /// 業務処理を実装 - /// - /// 引数クラス - /// 戻り値クラス - protected override void UOC_DoAction(BaseParameterValue parameterValue, ref BaseReturnValue returnValue) - { - // 引数クラスをアップキャスト - TestParameterValue testParameter = (TestParameterValue)parameterValue; - - // 戻り値クラスを生成 - TestReturnValue testReturn = new TestReturnValue(); - - // 戻り値クラスをダウンキャストして戻す - returnValue = (BaseReturnValue)testReturn; - - // --- - - // トランザクション パターンIDの領域 - string[] transactionPatternIDs; - - // トランザクション グループIDからトランザクション パターンIDを取得 - BaseLogic.GetTransactionPatterns( - (string)testParameter.Obj, out transactionPatternIDs); - - // トランザクション パターンIDを設定 - testReturn.Obj = transactionPatternIDs; - - #region Damを初期化 - - // トランザクション グループIDから取得した、 - // トランザクション パターンIDでDam初期化する。 - foreach (string transactionPatternID in transactionPatternIDs) - { - BaseDam tempDam = null; - - if (transactionPatternID.IndexOf("SQL") != -1) - { - // DamSqlSvrを初期化してセット - tempDam = new DamSqlSvr(); - BaseLogic.InitDam(transactionPatternID, tempDam); - this.SetDam(transactionPatternID, tempDam); - } - else if (transactionPatternID.IndexOf("ODP") != -1) - { - // DamOraOdpを初期化してセット - tempDam = new DamOraOdp(); - BaseLogic.InitDam(transactionPatternID, tempDam); - this.SetDam(transactionPatternID, tempDam); - } - else if (transactionPatternID.IndexOf("DB2") != -1) - { - // DamDB2を初期化してセット - tempDam = new DamDB2(); - BaseLogic.InitDam(transactionPatternID, tempDam); - this.SetDam(transactionPatternID, tempDam); - } - else if (transactionPatternID.IndexOf("MCN") != -1) - { - // DamMySQLを初期化してセット - tempDam = new DamMySQL(); - BaseLogic.InitDam(transactionPatternID, tempDam); - this.SetDam(transactionPatternID, tempDam); - } - } - - #endregion - - #region 終了時の状態選択 - - #region Damの状態選択 - - if ((parameterValue.ActionType.Split('%'))[2] == "UT") - { - // トランザクションあり - } - else if ((parameterValue.ActionType.Split('%'))[2] == "NT") - { - // トランザクションなし - // → まえもってロールバックしておく - - // ロールバック - foreach (string transactionPatternID in transactionPatternIDs) - { - this.GetDam(transactionPatternID).RollbackTransaction(); - } - } - else if ((parameterValue.ActionType.Split('%'))[2] == "NC") - { - // コネクションなし - // → まえもってロールバック、コネクションクローズしておく - // - // ※ トランザクションを開始して - // コミットしないで閉じると、ロールバック扱い。 - - // ロールバック - foreach (string transactionPatternID in transactionPatternIDs) - { - this.GetDam(transactionPatternID).RollbackTransaction(); - } - - // コネクションクローズ - foreach (string transactionPatternID in transactionPatternIDs) - { - this.GetDam(transactionPatternID).ConnectionClose(); - } - } - else if ((parameterValue.ActionType.Split('%'))[2] == "NULL") - { - // データアクセス制御クラス = Null - // → まえもってロールバック、コネクションクローズ、Nullクリアしておく - // - // ※ トランザクションを開始して - // コミットしないで閉じると、ロールバック扱い。 - - // ロールバック - foreach (string transactionPatternID in transactionPatternIDs) - { - this.GetDam(transactionPatternID).RollbackTransaction(); - } - - // コネクションクローズ - foreach (string transactionPatternID in transactionPatternIDs) - { - this.GetDam(transactionPatternID).ConnectionClose(); - } - - // Nullクリア - foreach (string transactionPatternID in transactionPatternIDs) - { - this.SetDam(transactionPatternID, null); - } - } - - #endregion - - #region エラーのスロー - - if ((parameterValue.ActionType.Split('%'))[1] == "Business") - { - // 業務例外のスロー - throw new BusinessApplicationException( - "ロールバックのテスト", - "ロールバックのテスト", - "エラー情報"); - } - else if ((parameterValue.ActionType.Split('%'))[1] == "System") - { - // システム例外のスロー - throw new BusinessSystemException( - "ロールバックのテスト", - "ロールバックのテスト"); - } - else if ((parameterValue.ActionType.Split('%'))[1] == "Other") - { - // その他、一般的な例外のスロー - throw new Exception("ロールバックのテスト"); - } - else if ((parameterValue.ActionType.Split('%'))[1] == "Other-Business") - { - // その他、一般的な例外（業務例外へ振り替え）のスロー - throw new Exception("Other-Business"); - } - else if ((parameterValue.ActionType.Split('%'))[1] == "Other-System") - { - // その他、一般的な例外（システム例外へ振り替え）のスロー - throw new Exception("Other-System"); - } - - #endregion - - #endregion - } -} diff --git a/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx b/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx index 7ca714db0..1dcdbc997 100644 --- a/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx +++ b/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx @@ -131,56 +131,6 @@
-
-
-
- ＜トランザクション制御＞
-
- オフ：シングル コネクション モード
- オン：マルチ コネクション モード
-
-
- データアクセス制御クラス
- （データプロバイダ）を選択
- - SQLClient - ODP.NET - DB2.NET - MySQL Cnn/NET -
-
-
- トランザクショングループIDを設定
- - SQL（SQLClient） - ODP1（ODP.NET1） - ODP2（ODP.NET2） - DB2（DB2.NET） - MCN（MySQL Cnn/NET） -
-
-
- トランザクションID：
-
-
- 終了時のステータス
- - トランザクションあり - トランザクションなし - コネクションなし - データアクセス制御クラス = Null -
-
- コミット、ロールバックを設定
- （例外発生時、ロールバック）
- - 正常時 - 業務例外 - システム例外 - その他、一般的な例外 - 業務例外への振替 - システム例外への振替 -


diff --git a/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx.cs b/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx.cs index c0e7930a4..62c405145 100644 --- a/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx.cs +++ b/root_easysetup/programs/C#/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx.cs @@ -369,87 +369,87 @@ protected void btnGetMSG_Click(object sender, EventArgs e) #region トランザクション制御機能 - /// トランザクション制御機能のテスト（InitDam） - protected void btnTxPID_Click(object sender, EventArgs e) - { - // 引数クラスを生成 - // 下位（Ｂ・Ｄ層）は、テスト クラスを流用する - MyParameterValue myParameterValue - = new MyParameterValue( - "画面ID", "ボタンID", - this.ddlDap.SelectedValue + "%" - + this.ddlExRollback.SelectedValue + "%" - + this.ddlExStatus.SelectedValue, - new MyUserInfo("ユーザ名", Request.UserHostAddress)); - - // ※ ActionTypeのフォーマット：Dap%Err%Stat% - - MyBaseLogic testMTC; - - // B層を生成 - if (this.cbxCnnMode.Checked) - { - // マルチ コネクション モード - testMTC = new TestMTC_mcn(); - } - else - { - // シングル コネクション モード - testMTC = new TestMTC(); - } - - // 業務処理を実行 - MyReturnValue myReturnValue = - (MyReturnValue)testMTC.DoBusinessLogic( - (BaseParameterValue)myParameterValue, - DbEnum.IsolationLevelEnum.User); - } - - /// トランザクション制御機能のテスト（GetTransactionPatterns） - protected void btnTxGID_Click(object sender, EventArgs e) - { - // 引数クラスを生成 - // 下位（Ｂ・Ｄ層）は、テスト クラスを流用する - MyType.TestParameterValue testParameterValue - = new MyType.TestParameterValue( - "", "画面ID", "ボタンID", - this.ddlDap.SelectedValue + "%" - + this.ddlExRollback.SelectedValue + "%" - + this.ddlExStatus.SelectedValue, - new MyUserInfo("ユーザ名", Request.UserHostAddress)); - - // ※ ActionTypeのフォーマット：Dap - - // TransactionGroupIDを設定 - testParameterValue.Obj = this.ddlTxGpID.SelectedValue; - - // 業務処理を実行 - TestMTC_txg testMTC = new TestMTC_txg(); - - MyReturnValue myReturnValue = - (MyReturnValue)testMTC.DoBusinessLogic( - (BaseParameterValue)testParameterValue, - DbEnum.IsolationLevelEnum.User); - - this.lblTxID.Text = ""; - - // 例外判定 - if (myReturnValue.ErrorFlag) - { - // エラーメッセージ - this.lblTxID.Text = myReturnValue.ErrorMessage; - } - else - { - string[] temp1 = (string[])((MyType.TestReturnValue)myReturnValue).Obj; - - // TransactionPatternIDをリストする。 - foreach (string temp2 in temp1) - { - this.lblTxID.Text += temp2 + "
"; - } - } - } + ///// トランザクション制御機能のテスト（InitDam） + //protected void btnTxPID_Click(object sender, EventArgs e) + //{ + // // 引数クラスを生成 + // // 下位（Ｂ・Ｄ層）は、テスト クラスを流用する + // MyParameterValue myParameterValue + // = new MyParameterValue( + // "画面ID", "ボタンID", + // this.ddlDap.SelectedValue + "%" + // + this.ddlExRollback.SelectedValue + "%" + // + this.ddlExStatus.SelectedValue, + // new MyUserInfo("ユーザ名", Request.UserHostAddress)); + + // // ※ ActionTypeのフォーマット：Dap%Err%Stat% + + // MyBaseLogic testMTC; + + // // B層を生成 + // if (this.cbxCnnMode.Checked) + // { + // // マルチ コネクション モード + // testMTC = new TestMTC_mcn(); + // } + // else + // { + // // シングル コネクション モード + // testMTC = new TestMTC(); + // } + + // // 業務処理を実行 + // MyReturnValue myReturnValue = + // (MyReturnValue)testMTC.DoBusinessLogic( + // (BaseParameterValue)myParameterValue, + // DbEnum.IsolationLevelEnum.User); + //} + + ///// トランザクション制御機能のテスト（GetTransactionPatterns） + //protected void btnTxGID_Click(object sender, EventArgs e) + //{ + // // 引数クラスを生成 + // // 下位（Ｂ・Ｄ層）は、テスト クラスを流用する + // MyType.TestParameterValue testParameterValue + // = new MyType.TestParameterValue( + // "", "画面ID", "ボタンID", + // this.ddlDap.SelectedValue + "%" + // + this.ddlExRollback.SelectedValue + "%" + // + this.ddlExStatus.SelectedValue, + // new MyUserInfo("ユーザ名", Request.UserHostAddress)); + + // // ※ ActionTypeのフォーマット：Dap + + // // TransactionGroupIDを設定 + // testParameterValue.Obj = this.ddlTxGpID.SelectedValue; + + // // 業務処理を実行 + // TestMTC_txg testMTC = new TestMTC_txg(); + + // MyReturnValue myReturnValue = + // (MyReturnValue)testMTC.DoBusinessLogic( + // (BaseParameterValue)testParameterValue, + // DbEnum.IsolationLevelEnum.User); + + // this.lblTxID.Text = ""; + + // // 例外判定 + // if (myReturnValue.ErrorFlag) + // { + // // エラーメッセージ + // this.lblTxID.Text = myReturnValue.ErrorMessage; + // } + // else + // { + // string[] temp1 = (string[])((MyType.TestReturnValue)myReturnValue).Obj; + + // // TransactionPatternIDをリストする。 + // foreach (string temp2 in temp1) + // { + // this.lblTxID.Text += temp2 + "
"; + // } + // } + //} #endregion diff --git a/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/Business.vbproj b/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/Business.vbproj index ef0bd697e..54202a3d3 100644 --- a/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/Business.vbproj +++ b/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/Business.vbproj @@ -55,18 +55,6 @@ 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 - - ..\..\..\..\C#\Frameworks\Infrastructure\Build\DamDB2.dll - - - ..\..\..\..\C#\Frameworks\Infrastructure\Build\DamMySQL.dll - - - ..\..\..\..\C#\Frameworks\Infrastructure\Build\DamOraOdp.dll - - - ..\..\..\..\C#\Frameworks\Infrastructure\Build\DamPstGrS.dll - ..\..\..\..\C#\Frameworks\Infrastructure\Build\Framework.dll diff --git a/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/Business/MyBaseLogic.vb b/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/Business/MyBaseLogic.vb index 7550e786c..9e558bb62 100644 --- a/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/Business/MyBaseLogic.vb +++ b/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/Business/MyBaseLogic.vb @@ -142,63 +142,69 @@ Namespace Touryo.Infrastructure.Business.Business '#Region "データ プロバイダ選択" - If parameterValue.ActionType.Split("%"c)(0) = "SQL" Then - ' SQL Server / SQL Client用のDamを生成 - dam = New DamSqlSvr() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "OLE" Then - ' OLEDB.NET用のDamを生成 - dam = New DamOLEDB() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODB" Then - ' ODBC.NET用のDamを生成 - dam = New DamODBC() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ORA" Then - ' Oracle / Oracle Client用のDamを生成 - dam = New DamOraClient() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODP" Then - ' Oracle / ODP.NET用のDamを生成 - dam = New DamOraOdp() - - ' 接続文字列をロード（ODP2：Instant Client） - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "DB2" Then - ' DB2.NET用のDamを生成 - dam = New DamDB2() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2") - 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "HIR" Then - ' ' HiRDBデータプロバイダ用のDamを生成 - ' dam = New DamHiRDB() - - ' ' 接続文字列をロード - ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "MCN" Then - ' MySQL Cnn/NET用のDamを生成 - dam = New DamMySQL() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "NPS" Then - ' PostgreSQL / Npgsql用のDamを生成 - dam = New DamPstGrS() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS") - Else - ' ここは通らない - End If + ' SQL Server / SQL Client用のDamを生成 + dam = New DamSqlSvr() + + ' 接続文字列をロード + connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL") + + 'If parameterValue.ActionType.Split("%"c)(0) = "SQL" Then + ' ' SQL Server / SQL Client用のDamを生成 + ' dam = New DamSqlSvr() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "OLE" Then + ' ' OLEDB.NET用のDamを生成 + ' dam = New DamOLEDB() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODB" Then + ' ' ODBC.NET用のDamを生成 + ' dam = New DamODBC() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "ORA" Then + ' ' Oracle / Oracle Client用のDamを生成 + ' dam = New DamOraClient() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODP" Then + ' ' Oracle / ODP.NET用のDamを生成 + ' dam = New DamOraOdp() + + ' ' 接続文字列をロード（ODP2：Instant Client） + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "DB2" Then + ' ' DB2.NET用のDamを生成 + ' dam = New DamDB2() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2") + ' 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "HIR" Then + ' ' ' HiRDBデータプロバイダ用のDamを生成 + ' ' dam = New DamHiRDB() + + ' ' ' 接続文字列をロード + ' ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "MCN" Then + ' ' MySQL Cnn/NET用のDamを生成 + ' dam = New DamMySQL() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "NPS" Then + ' ' PostgreSQL / Npgsql用のDamを生成 + ' dam = New DamPstGrS() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS") + 'Else + ' ' ここは通らない + 'End If '#End Region diff --git a/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/Business/MyFcBaseLogic.vb b/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/Business/MyFcBaseLogic.vb index ed173c071..27e2a216c 100644 --- a/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/Business/MyFcBaseLogic.vb +++ b/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/Business/MyFcBaseLogic.vb @@ -180,63 +180,69 @@ Namespace Touryo.Infrastructure.Business.Business '#Region "データ プロバイダ選択" - If parameterValue.ActionType.Split("%"c)(0) = "SQL" Then - ' SQL Server / SQL Client用のDamを生成 - dam = New DamSqlSvr() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "OLE" Then - ' OLEDB.NET用のDamを生成 - dam = New DamOLEDB() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODB" Then - ' ODBC.NET用のDamを生成 - dam = New DamODBC() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ORA" Then - ' Oracle / Oracle Client用のDamを生成 - dam = New DamOraClient() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODP" Then - ' Oracle / ODP.NET用のDamを生成 - dam = New DamOraOdp() - - ' 接続文字列をロード（ODP2：Instant Client） - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "DB2" Then - ' DB2.NET用のDamを生成 - dam = New DamDB2() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2") - 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "HIR" Then - ' ' HiRDBデータプロバイダ用のDamを生成 - ' dam = New DamHiRDB() - - ' ' 接続文字列をロード - ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "MCN" Then - ' MySQL Cnn/NET用のDamを生成 - dam = New DamMySQL() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "NPS" Then - ' PostgreSQL / Npgsql用のDamを生成 - dam = New DamPstGrS() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS") - Else - ' ここは通らない - End If + ' SQL Server / SQL Client用のDamを生成 + dam = New DamSqlSvr() + + ' 接続文字列をロード + connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL") + + 'If parameterValue.ActionType.Split("%"c)(0) = "SQL" Then + ' ' SQL Server / SQL Client用のDamを生成 + ' dam = New DamSqlSvr() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "OLE" Then + ' ' OLEDB.NET用のDamを生成 + ' dam = New DamOLEDB() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODB" Then + ' ' ODBC.NET用のDamを生成 + ' dam = New DamODBC() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "ORA" Then + ' ' Oracle / Oracle Client用のDamを生成 + ' dam = New DamOraClient() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODP" Then + ' ' Oracle / ODP.NET用のDamを生成 + ' dam = New DamOraOdp() + + ' ' 接続文字列をロード（ODP2：Instant Client） + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "DB2" Then + ' ' DB2.NET用のDamを生成 + ' dam = New DamDB2() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2") + ' 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "HIR" Then + ' ' ' HiRDBデータプロバイダ用のDamを生成 + ' ' dam = New DamHiRDB() + + ' ' ' 接続文字列をロード + ' ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "MCN" Then + ' ' MySQL Cnn/NET用のDamを生成 + ' dam = New DamMySQL() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "NPS" Then + ' ' PostgreSQL / Npgsql用のDamを生成 + ' dam = New DamPstGrS() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS") + 'Else + ' ' ここは通らない + 'End If '#End Region diff --git a/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/RichClient/Business.RichClient.vbproj b/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/RichClient/Business.RichClient.vbproj index b37396152..18ecea471 100644 --- a/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/RichClient/Business.RichClient.vbproj +++ b/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/RichClient/Business.RichClient.vbproj @@ -60,18 +60,6 @@ ..\..\Build\Business.dll - - ..\..\Build\DamDB2.dll - - - ..\..\Build\DamMySQL.dll - - - ..\..\Build\DamOraOdp.dll - - - ..\..\Build\DamPstGrS.dll - ..\..\Build\Framework.dll diff --git a/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/RichClient/Business/MyBaseLogic2CS.vb b/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/RichClient/Business/MyBaseLogic2CS.vb index dbf4e61d8..2c8a34410 100644 --- a/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/RichClient/Business/MyBaseLogic2CS.vb +++ b/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/RichClient/Business/MyBaseLogic2CS.vb @@ -142,63 +142,69 @@ Namespace Touryo.Infrastructure.Business.RichClient.Business '#Region "データ プロバイダ選択" - If parameterValue.ActionType.Split("%"c)(0) = "SQL" Then - ' SQL Server / SQL Client用のDamを生成 - dam = New DamSqlSvr() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "OLE" Then - ' OLEDB.NET用のDamを生成 - dam = New DamOLEDB() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODB" Then - ' ODBC.NET用のDamを生成 - dam = New DamODBC() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ORA" Then - ' Oracle / Oracle Client用のDamを生成 - dam = New DamOraClient() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODP" Then - ' Oracle / ODP.NET用のDamを生成 - dam = New DamOraOdp() - - ' 接続文字列をロード（ODP2：Instant Client） - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "DB2" Then - ' DB2.NET用のDamを生成 - dam = New DamDB2() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2") - 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "HIR" Then - ' ' HiRDBデータプロバイダ用のDamを生成 - ' dam = New DamHiRDB() - - ' ' 接続文字列をロード - ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "MCN" Then - ' MySQL Cnn/NET用のDamを生成 - dam = New DamMySQL() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "NPS" Then - ' PostgreSQL / Npgsql用のDamを生成 - dam = New DamPstGrS() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS") - Else - ' ここは通らない - End If + ' SQL Server / SQL Client用のDamを生成 + dam = New DamSqlSvr() + + ' 接続文字列をロード + connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL") + + 'If parameterValue.ActionType.Split("%"c)(0) = "SQL" Then + ' ' SQL Server / SQL Client用のDamを生成 + ' dam = New DamSqlSvr() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "OLE" Then + ' ' OLEDB.NET用のDamを生成 + ' dam = New DamOLEDB() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODB" Then + ' ' ODBC.NET用のDamを生成 + ' dam = New DamODBC() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "ORA" Then + ' ' Oracle / Oracle Client用のDamを生成 + ' dam = New DamOraClient() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODP" Then + ' ' Oracle / ODP.NET用のDamを生成 + ' dam = New DamOraOdp() + + ' ' 接続文字列をロード（ODP2：Instant Client） + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "DB2" Then + ' ' DB2.NET用のDamを生成 + ' dam = New DamDB2() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2") + ' 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "HIR" Then + ' ' ' HiRDBデータプロバイダ用のDamを生成 + ' ' dam = New DamHiRDB() + + ' ' ' 接続文字列をロード + ' ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "MCN" Then + ' ' MySQL Cnn/NET用のDamを生成 + ' dam = New DamMySQL() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "NPS" Then + ' ' PostgreSQL / Npgsql用のDamを生成 + ' dam = New DamPstGrS() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS") + 'Else + ' ' ここは通らない + 'End If '#End Region diff --git a/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/RichClient/Business/MyFcBaseLogic2CS.vb b/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/RichClient/Business/MyFcBaseLogic2CS.vb index 7dcbe66ff..99f5c287a 100644 --- a/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/RichClient/Business/MyFcBaseLogic2CS.vb +++ b/root_easysetup/programs/VB/Frameworks/Infrastructure/Business/RichClient/Business/MyFcBaseLogic2CS.vb @@ -180,63 +180,69 @@ Namespace Touryo.Infrastructure.Business.RichClient.Business '#Region "データ プロバイダ選択" - If parameterValue.ActionType.Split("%"c)(0) = "SQL" Then - ' SQL Server / SQL Client用のDamを生成 - dam = New DamSqlSvr() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "OLE" Then - ' OLEDB.NET用のDamを生成 - dam = New DamOLEDB() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODB" Then - ' ODBC.NET用のDamを生成 - dam = New DamODBC() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ORA" Then - ' Oracle / Oracle Client用のDamを生成 - dam = New DamOraClient() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODP" Then - ' Oracle / ODP.NET用のDamを生成 - dam = New DamOraOdp() - - ' 接続文字列をロード（ODP2：Instant Client） - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "DB2" Then - ' DB2.NET用のDamを生成 - dam = New DamDB2() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2") - 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "HIR" Then - ' ' HiRDBデータプロバイダ用のDamを生成 - ' dam = New DamHiRDB() - - ' ' 接続文字列をロード - ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "MCN" Then - ' MySQL Cnn/NET用のDamを生成 - dam = New DamMySQL() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "NPS" Then - ' PostgreSQL / Npgsql用のDamを生成 - dam = New DamPstGrS() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS") - Else - ' ここは通らない - End If + ' SQL Server / SQL Client用のDamを生成 + dam = New DamSqlSvr() + + ' 接続文字列をロード + connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL") + + 'If parameterValue.ActionType.Split("%"c)(0) = "SQL" Then + ' ' SQL Server / SQL Client用のDamを生成 + ' dam = New DamSqlSvr() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "OLE" Then + ' ' OLEDB.NET用のDamを生成 + ' dam = New DamOLEDB() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODB" Then + ' ' ODBC.NET用のDamを生成 + ' dam = New DamODBC() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "ORA" Then + ' ' Oracle / Oracle Client用のDamを生成 + ' dam = New DamOraClient() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODP" Then + ' ' Oracle / ODP.NET用のDamを生成 + ' dam = New DamOraOdp() + + ' ' 接続文字列をロード（ODP2：Instant Client） + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP2") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "DB2" Then + ' ' DB2.NET用のDamを生成 + ' dam = New DamDB2() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2") + ' 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "HIR" Then + ' ' ' HiRDBデータプロバイダ用のDamを生成 + ' ' dam = New DamHiRDB() + + ' ' ' 接続文字列をロード + ' ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "MCN" Then + ' ' MySQL Cnn/NET用のDamを生成 + ' dam = New DamMySQL() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN") + 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "NPS" Then + ' ' PostgreSQL / Npgsql用のDamを生成 + ' dam = New DamPstGrS() + + ' ' 接続文字列をロード + ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS") + 'Else + ' ' ここは通らない + 'End If '#End Region diff --git a/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC.vb b/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC.vb deleted file mode 100644 index 05e039cf1..000000000 --- a/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC.vb +++ /dev/null @@ -1,691 +0,0 @@ -'********************************************************************************** -'* フレームワーク・テストクラス（Ｂ層） -'********************************************************************************** - -'********************************************************************************** -'* クラス名 ：TestMTC -'* クラス日本語名 ：Ｂ層のテスト（手動トランザクション制御） -'* -'* 作成日時 ：－ -'* 作成者 ：sas 生技 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ ＸＸＸＸ -'* -'********************************************************************************** - -' System -Imports System - -' データセット利用 -Imports System.Data - -' 業務フレームワーク -Imports Touryo.Infrastructure.Business.Business -Imports Touryo.Infrastructure.Business.Dao -Imports Touryo.Infrastructure.Business.Common - -' フレームワーク -Imports Touryo.Infrastructure.Framework.Business -Imports Touryo.Infrastructure.Framework.Common -Imports Touryo.Infrastructure.Framework.Exceptions - -' 部品 -Imports Touryo.Infrastructure.Public.Db -Imports Touryo.Infrastructure.Public.Util - -''' -''' TestMTC の概要の説明です -''' -Public Class TestMTC - Inherits MyBaseLogic - ''' - ''' 業務処理を実装 - ''' - ''' 引数クラス - ''' 戻り値クラス - Protected Overloads Overrides Sub UOC_DoAction(ByVal parameterValue As BaseParameterValue, ByRef returnValue As BaseReturnValue) - ' 戻り値を生成しておく。 - returnValue = New MyReturnValue() - - ' 自動トランザクションで開始したトランザクションを閉じる。 - Me.GetDam().CommitTransaction() - - ' コネクションを閉じる。 - Me.GetDam().ConnectionClose() - - ' データアクセス制御クラスをクリア。 - Me.SetDam(Nothing) - - ' Dam用ワーク - Dim damWork As BaseDam - - ' 共通Dao - Dim cmnDao As CmnDao - - ' カバレージ上げ用 - Dim idcnn As IDbConnection = Nothing - Dim idtx As IDbTransaction = Nothing - Dim idcmd As IDbCommand = Nothing - Dim idapt As IDataAdapter = Nothing - Dim ds As DataSet = Nothing - - ' SQLの戻り値を受ける - Dim obj As Object - - '#Region "SQL Server" - - damWork = New DamSqlSvr() - - '#Region "接続しない" - - BaseLogic.InitDam("XXXX", damWork) - Me.SetDam(damWork) - - ' なにもしない。 - - ' プロパティにアクセス（デバッガで確認） - idcnn = DirectCast(Me.GetDam(), DamSqlSvr).DamSqlConnection - idtx = DirectCast(Me.GetDam(), DamSqlSvr).DamSqlTransaction - - ' nullの時に呼んだ場合。 - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "SQL_NT" - - BaseLogic.InitDam("SQL_NT", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam().CommitTransaction(); - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "SQL_UC" - - BaseLogic.InitDam("SQL_UC", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "SQL_RC" - - BaseLogic.InitDam("SQL_RC", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - ' プロパティにアクセス（デバッガで確認） - idcnn = DirectCast(Me.GetDam(), DamSqlSvr).DamSqlConnection - idtx = DirectCast(Me.GetDam(), DamSqlSvr).DamSqlTransaction - idcmd = DirectCast(Me.GetDam(), DamSqlSvr).DamSqlCommand - idapt = DirectCast(Me.GetDam(), DamSqlSvr).DamSqlDataAdapter - ds = New DataSet() - idapt.Fill(ds) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - ' ２連続で呼んだ場合。 - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "SQL_RR" - - BaseLogic.InitDam("SQL_RR", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "SQL_SZ" - - BaseLogic.InitDam("SQL_SZ", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "SQL_SS" - - BaseLogic.InitDam("SQL_SS", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "SQL_DF" - - BaseLogic.InitDam("SQL_DF", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#End Region - - '#Region "Oracle" - - damWork = New DamOraOdp() - - '#Region "接続しない" - - BaseLogic.InitDam("XXXX", damWork) - Me.SetDam(damWork) - - ' なにもしない。 - - ' プロパティにアクセス（デバッガで確認） - idcnn = DirectCast(Me.GetDam(), DamOraOdp).DamOracleConnection - idtx = DirectCast(Me.GetDam(), DamOraOdp).DamOracleTransaction - - ' nullの時に呼んだ場合。 - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "ODP2_NT" - - BaseLogic.InitDam("ODP2_NT", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam().CommitTransaction(); - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "ODP2_UC" - - ' ★ サポートされない分離レベル - - '#End Region - - '#Region "ODP2_RC" - - BaseLogic.InitDam("ODP2_RC", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - ' プロパティにアクセス（デバッガで確認） - idcnn = DirectCast(Me.GetDam(), DamOraOdp).DamOracleConnection - idtx = DirectCast(Me.GetDam(), DamOraOdp).DamOracleTransaction - idcmd = DirectCast(Me.GetDam(), DamOraOdp).DamOracleCommand - idapt = DirectCast(Me.GetDam(), DamOraOdp).DamOracleDataAdapter - ds = New DataSet() - idapt.Fill(ds) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - ' ２連続で呼んだ場合。 - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "ODP2_RR" - - ' ★ サポートされない分離レベル - - '#End Region - - '#Region "ODP2_SZ" - - BaseLogic.InitDam("ODP2_SZ", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "ODP2_SS" - - ' ★ サポートされない分離レベル - - '#End Region - - '#Region "ODP2_DF" - - BaseLogic.InitDam("ODP2_DF", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#End Region - - '#Region "DB2" - - damWork = New DamDB2() - - '#Region "接続しない" - - BaseLogic.InitDam("XXXX", damWork) - Me.SetDam(damWork) - - ' なにもしない。 - - ' プロパティにアクセス（デバッガで確認） - idcnn = DirectCast(Me.GetDam(), DamDB2).DamDB2Connection - idtx = DirectCast(Me.GetDam(), DamDB2).DamDB2Transaction - - ' nullの時に呼んだ場合。 - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "DB2_NT" - - BaseLogic.InitDam("DB2_NT", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam().CommitTransaction(); - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "DB2_UC" - - BaseLogic.InitDam("DB2_UC", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "DB2_RC" - - BaseLogic.InitDam("DB2_RC", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - ' プロパティにアクセス（デバッガで確認） - idcnn = DirectCast(Me.GetDam(), DamDB2).DamDB2Connection - idtx = DirectCast(Me.GetDam(), DamDB2).DamDB2Transaction - idcmd = DirectCast(Me.GetDam(), DamDB2).DamDB2Command - idapt = DirectCast(Me.GetDam(), DamDB2).DamDB2DataAdapter - ds = New DataSet() - idapt.Fill(ds) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - ' ２連続で呼んだ場合。 - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "DB2_RR" - - BaseLogic.InitDam("DB2_RR", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "DB2_SZ" - - BaseLogic.InitDam("DB2_SZ", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "DB2_SS" - - ' ★ サポートされない分離レベル - - '#End Region - - '#Region "DB2_DF" - - BaseLogic.InitDam("DB2_DF", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#End Region - - '#Region "MySQL" - - damWork = New DamMySQL() - - '#Region "接続しない" - - BaseLogic.InitDam("XXXX", damWork) - Me.SetDam(damWork) - - ' なにもしない。 - - ' プロパティにアクセス（デバッガで確認） - idcnn = DirectCast(Me.GetDam(), DamMySQL).DamMySqlConnection - idtx = DirectCast(Me.GetDam(), DamMySQL).DamMySqlTransaction - - ' nullの時に呼んだ場合。 - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "MCN_NT" - - BaseLogic.InitDam("MCN_NT", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam().CommitTransaction(); - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "MCN_UC" - - BaseLogic.InitDam("MCN_UC", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "MCN_RC" - - BaseLogic.InitDam("MCN_RC", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - ' プロパティにアクセス（デバッガで確認） - idcnn = DirectCast(Me.GetDam(), DamMySQL).DamMySqlConnection - idtx = DirectCast(Me.GetDam(), DamMySQL).DamMySqlTransaction - idcmd = DirectCast(Me.GetDam(), DamMySQL).DamMySqlCommand - idapt = DirectCast(Me.GetDam(), DamMySQL).DamMySqlDataAdapter - ds = New DataSet() - idapt.Fill(ds) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - ' ２連続で呼んだ場合。 - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "MCN_RR" - - BaseLogic.InitDam("MCN_RR", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "MCN_SZ" - - BaseLogic.InitDam("MCN_SZ", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#Region "MCN_SS" - - ' ★ サポートされない分離レベル - - '#End Region - - '#Region "MCN_DF" - - BaseLogic.InitDam("MCN_DF", damWork) - Me.SetDam(damWork) - - ' 行数 - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam()) - cmnDao.SQLText = "SELECT COUNT(*) FROM SHIPPERS" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - Me.GetDam().CommitTransaction() - Me.GetDam().ConnectionClose() - - '#End Region - - '#End Region - - '#Region "エラー処理（ロールバックのテスト）" - - If (parameterValue.ActionType.Split("%"c))(1) <> "-" Then - '#Region "エラー時のDamの状態選択" - - If (parameterValue.ActionType.Split("%"c))(2) = "UT" Then - ' トランザクションあり - damWork = New DamSqlSvr() - damWork.ConnectionOpen(GetConfigParameter.GetConnectionString("ConnectionString_SQLSvr")) - damWork.BeginTransaction(DbEnum.IsolationLevelEnum.ReadCommitted) - Me.SetDam(damWork) - ElseIf (parameterValue.ActionType.Split("%"c))(2) = "NT" Then - ' トランザクションなし - damWork = New DamSqlSvr() - damWork.ConnectionOpen(GetConfigParameter.GetConnectionString("ConnectionString_SQLSvr")) - Me.SetDam(damWork) - ElseIf (parameterValue.ActionType.Split("%"c))(2) = "NC" Then - ' コネクションなし - damWork = New DamSqlSvr() - Me.SetDam(damWork) - ElseIf (parameterValue.ActionType.Split("%"c))(2) = "NULL" Then - ' データアクセス制御クラス = Null - Me.SetDam(Nothing) - End If - - '#End Region - - '#Region "エラーのスロー" - - If (parameterValue.ActionType.Split("%"c))(1) = "Business" Then - ' 業務例外のスロー - Throw New BusinessApplicationException("ロールバックのテスト", "ロールバックのテスト", "エラー情報") - ElseIf (parameterValue.ActionType.Split("%"c))(1) = "System" Then - ' システム例外のスロー - Throw New BusinessSystemException("ロールバックのテスト", "ロールバックのテスト") - ElseIf (parameterValue.ActionType.Split("%"c))(1) = "Other" Then - ' その他、一般的な例外のスロー - Throw New Exception("ロールバックのテスト") - ElseIf (parameterValue.ActionType.Split("%"c))(1) = "Other-Business" Then - ' その他、一般的な例外（業務例外へ振り替え）のスロー - Throw New Exception("Other-Business") - ElseIf (parameterValue.ActionType.Split("%"c))(1) = "Other-System" Then - ' その他、一般的な例外（システム例外へ振り替え）のスロー - Throw New Exception("Other-System") - - '#End Region - End If - End If - - '#End Region - - End Sub -End Class diff --git a/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_mcn.vb b/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_mcn.vb deleted file mode 100644 index 86b096ad2..000000000 --- a/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_mcn.vb +++ /dev/null @@ -1,865 +0,0 @@ -'********************************************************************************** -'* フレームワーク・テストクラス（Ｂ層） -'********************************************************************************** - -'********************************************************************************** -'* クラス名 ：TestMTC_mcn -'* クラス日本語名 ：Ｂ層のテスト（手動トランザクション制御－複数コネクション版） -'* -'* 作成日時 ：－ -'* 作成者 ：sas 生技 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ ＸＸＸＸ -'* -'********************************************************************************** - -' System -Imports System - -' データセット利用 -Imports System.Data - -' 業務フレームワーク -Imports Touryo.Infrastructure.Business.Business -Imports Touryo.Infrastructure.Business.Dao -Imports Touryo.Infrastructure.Business.Common - -' フレームワーク -Imports Touryo.Infrastructure.Framework.Business -Imports Touryo.Infrastructure.Framework.Common -Imports Touryo.Infrastructure.Framework.Exceptions - -' 部品 -Imports Touryo.Infrastructure.Public.Db -Imports Touryo.Infrastructure.Public.Util - -''' -''' TestMTC_mcn の概要の説明です -''' -Public Class TestMTC_mcn - Inherits MyBaseLogic - ''' - ''' 業務処理を実装 - ''' - ''' 引数クラス - ''' 戻り値クラス - Protected Overloads Overrides Sub UOC_DoAction(ByVal parameterValue As BaseParameterValue, ByRef returnValue As BaseReturnValue) - ' 戻り値を生成しておく。 - returnValue = New MyReturnValue() - - ' 自動トランザクションで開始したトランザクションを閉じる。 - Me.GetDam().CommitTransaction() - - ' コネクションを閉じる。 - Me.GetDam().ConnectionClose() - - ' データアクセス制御クラスをクリア。 - Me.SetDam(Nothing) - - ' Dam用ワーク - Dim damWork As BaseDam - - ' 共通Dao - Dim cmnDao As CmnDao - - ' SQLの戻り値を受ける - Dim obj As Object - - '#Region "SQL Server" - - '#Region "SQL_NT" - - ' Damを生成 - damWork = New DamSqlSvr() - ' Damを初期化 - BaseLogic.InitDam("SQL_NT", damWork) - ' Damを設定 - Me.SetDam("SQL_NT", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("SQL_NT")) - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('SQL_NT', 'SQL_NT')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("SQL_NT").CommitTransaction(); - 'this.GetDam("SQL_NT").ConnectionClose(); - - '#End Region - - '#Region "SQL_UC" - - ' Damを生成 - damWork = New DamSqlSvr() - ' Damを初期化 - BaseLogic.InitDam("SQL_UC", damWork) - ' Damを設定 - Me.SetDam("SQL_UC", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("SQL_UC")) - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('SQL_UC', 'SQL_UC')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("SQL_UC").CommitTransaction(); - 'this.GetDam("SQL_UC").ConnectionClose(); - - '#End Region - - '#Region "SQL_RC" - - ' Damを生成 - damWork = New DamSqlSvr() - ' Damを初期化 - BaseLogic.InitDam("SQL_RC", damWork) - ' Damを設定 - Me.SetDam("SQL_RC", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("SQL_RC")) - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('SQL_RC', 'SQL_RC')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("SQL_RC").CommitTransaction(); - 'this.GetDam("SQL_RC").ConnectionClose(); - - '#End Region - - '#Region "SQL_RR" - - ' Damを生成 - damWork = New DamSqlSvr() - ' Damを初期化 - BaseLogic.InitDam("SQL_RR", damWork) - ' Damを設定 - Me.SetDam("SQL_RR", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("SQL_RR")) - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('SQL_RR', 'SQL_RR')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("SQL_RR").CommitTransaction(); - 'this.GetDam("SQL_RR").ConnectionClose(); - - '#End Region - - '#Region "SQL_SZ" - - ' Damを生成 - damWork = New DamSqlSvr() - ' Damを初期化 - BaseLogic.InitDam("SQL_SZ", damWork) - ' Damを設定 - Me.SetDam("SQL_SZ", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("SQL_SZ")) - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('SQL_SZ', 'SQL_SZ')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("SQL_SZ").CommitTransaction(); - 'this.GetDam("SQL_SZ").ConnectionClose(); - - '#End Region - - '#Region "SQL_SS" - - ' Damを生成 - damWork = New DamSqlSvr() - ' Damを初期化 - BaseLogic.InitDam("SQL_SS", damWork) - ' Damを設定 - Me.SetDam("SQL_SS", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("SQL_SS")) - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('SQL_SS', 'SQL_SS')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("SQL_SS").CommitTransaction(); - 'this.GetDam("SQL_SS").ConnectionClose(); - - '#End Region - - '#Region "SQL_DF" - - ' Damを生成 - damWork = New DamSqlSvr() - ' Damを初期化 - BaseLogic.InitDam("SQL_DF", damWork) - ' Damを設定 - Me.SetDam("SQL_DF", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("SQL_DF")) - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('SQL_DF', 'SQL_DF')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("SQL_DF").CommitTransaction(); - 'this.GetDam("SQL_DF").ConnectionClose(); - - '#End Region - - '#End Region - - '#Region "Oracle" - - '#Region "ODP2_NT" - - ' Damを生成 - damWork = New DamOraOdp() - ' Damを初期化 - BaseLogic.InitDam("ODP2_NT", damWork) - ' Damを設定 - Me.SetDam("ODP2_NT", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("ODP2_NT")) - cmnDao.SQLText = "INSERT INTO Shippers(ShipperID, CompanyName, Phone) VALUES(TS_ShipperID.NEXTVAL, 'ODP2_NT', 'ODP2_NT')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("ODP2_NT").CommitTransaction(); - 'this.GetDam("ODP2_NT").ConnectionClose(); - - '#End Region - - '#Region "ODP2_UC" - - ' ★ サポートされない分離レベル - - '#End Region - - '#Region "ODP2_RC" - - ' Damを生成 - damWork = New DamOraOdp() - ' Damを初期化 - BaseLogic.InitDam("ODP2_RC", damWork) - ' Damを設定 - Me.SetDam("ODP2_RC", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("ODP2_RC")) - cmnDao.SQLText = "INSERT INTO Shippers(ShipperID, CompanyName, Phone) VALUES(TS_ShipperID.NEXTVAL, 'ODP2_RC', 'ODP2_RC')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("ODP2_RC").CommitTransaction(); - 'this.GetDam("ODP2_RC").ConnectionClose(); - - '#End Region - - '#Region "ODP2_RR" - - ' ★ サポートされない分離レベル - - '#End Region - - '#Region "ODP2_SZ" - - ' Damを生成 - damWork = New DamOraOdp() - ' Damを初期化 - BaseLogic.InitDam("ODP2_SZ", damWork) - ' Damを設定 - Me.SetDam("ODP2_SZ", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("ODP2_SZ")) - cmnDao.SQLText = "INSERT INTO Shippers(ShipperID, CompanyName, Phone) VALUES(TS_ShipperID.NEXTVAL, 'ODP2_SZ', 'ODP2_SZ')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("ODP2_SZ").CommitTransaction(); - 'this.GetDam("ODP2_SZ").ConnectionClose(); - - '#End Region - - '#Region "ODP2_SS" - - ' ★ サポートされない分離レベル - - '#End Region - - '#Region "ODP2_DF" - - ' Damを生成 - damWork = New DamOraOdp() - ' Damを初期化 - BaseLogic.InitDam("ODP2_DF", damWork) - ' Damを設定 - Me.SetDam("ODP2_DF", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("ODP2_DF")) - cmnDao.SQLText = "INSERT INTO Shippers(ShipperID, CompanyName, Phone) VALUES(TS_ShipperID.NEXTVAL, 'ODP2_DF', 'ODP2_DF')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("ODP2_DF").CommitTransaction(); - 'this.GetDam("ODP2_DF").ConnectionClose(); - - '#End Region - - '#End Region - - '#Region "DB2" - - '#Region "DB2_NT" - - ' Damを生成 - damWork = New DamDB2() - ' Damを初期化 - BaseLogic.InitDam("DB2_NT", damWork) - ' Damを設定 - Me.SetDam("DB2_NT", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("DB2_NT")) - cmnDao.SQLText = "INSERT INTO Shippers (ShipperID, CompanyName, Phone) VALUES(NEXTVAL for TS_ShipperID, 'DB2_NT', 'DB2_NT')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("DB2_NT").CommitTransaction(); - 'this.GetDam("DB2_NT").ConnectionClose(); - - '#End Region - - '#Region "DB2_UC" - - ' Damを生成 - damWork = New DamDB2() - ' Damを初期化 - BaseLogic.InitDam("DB2_UC", damWork) - ' Damを設定 - Me.SetDam("DB2_UC", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("DB2_UC")) - cmnDao.SQLText = "INSERT INTO Shippers (ShipperID, CompanyName, Phone) VALUES(NEXTVAL for TS_ShipperID, 'DB2_UC', 'DB2_UC')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("DB2_UC").CommitTransaction(); - 'this.GetDam("DB2_UC").ConnectionClose(); - - '#End Region - - '#Region "DB2_RC" - - ' Damを生成 - damWork = New DamDB2() - ' Damを初期化 - BaseLogic.InitDam("DB2_RC", damWork) - ' Damを設定 - Me.SetDam("DB2_RC", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("DB2_UC")) - cmnDao.SQLText = "INSERT INTO Shippers (ShipperID, CompanyName, Phone) VALUES(NEXTVAL for TS_ShipperID, 'DB2_RC', 'DB2_RC')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("DB2_RC").CommitTransaction(); - 'this.GetDam("DB2_RC").ConnectionClose(); - - '#End Region - - '#Region "DB2_RR" - - ' Damを生成 - damWork = New DamDB2() - ' Damを初期化 - BaseLogic.InitDam("DB2_RR", damWork) - ' Damを設定 - Me.SetDam("DB2_RR", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("DB2_RR")) - cmnDao.SQLText = "INSERT INTO Shippers (ShipperID, CompanyName, Phone) VALUES(NEXTVAL for TS_ShipperID, 'DB2_RR', 'DB2_RR')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("DB2_RR").CommitTransaction(); - 'this.GetDam("DB2_RR").ConnectionClose(); - - '#End Region - - '#Region "DB2_SZ" - - ' Damを生成 - damWork = New DamDB2() - ' Damを初期化 - BaseLogic.InitDam("DB2_SZ", damWork) - ' Damを設定 - Me.SetDam("DB2_SZ", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("DB2_SZ")) - cmnDao.SQLText = "INSERT INTO Shippers (ShipperID, CompanyName, Phone) VALUES(NEXTVAL for TS_ShipperID, 'DB2_SZ', 'DB2_SZ')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("DB2_SZ").CommitTransaction(); - 'this.GetDam("DB2_SZ").ConnectionClose(); - - '#End Region - - '#Region "DB2_SS" - - ' ★ サポートされない分離レベル - - '#End Region - - '#Region "DB2_DF" - - ' Damを生成 - damWork = New DamDB2() - ' Damを初期化 - BaseLogic.InitDam("DB2_DF", damWork) - ' Damを設定 - Me.SetDam("DB2_DF", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("DB2_DF")) - cmnDao.SQLText = "INSERT INTO Shippers (ShipperID, CompanyName, Phone) VALUES(NEXTVAL for TS_ShipperID, 'DB2_DF', 'DB2_DF')" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("DB2_DF").CommitTransaction(); - 'this.GetDam("DB2_DF").ConnectionClose(); - - '#End Region - - '#End Region - - '#Region "MySQL" - - '#Region "MCN_NT" - - ' Damを生成 - damWork = New DamMySQL() - ' Damを初期化 - BaseLogic.InitDam("MCN_NT", damWork) - ' Damを設定 - Me.SetDam("MCN_NT", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("MCN_NT")) - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('MCN_NT', 'MCN_NT');" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("MCN_NT").CommitTransaction(); - 'this.GetDam("MCN_NT").ConnectionClose(); - - '#End Region - - '#Region "MCN_UC" - - ' Damを生成 - damWork = New DamMySQL() - ' Damを初期化 - BaseLogic.InitDam("MCN_UC", damWork) - ' Damを設定 - Me.SetDam("MCN_UC", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("MCN_UC")) - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('MCN_UC', 'MCN_UC');" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("MCN_UC").CommitTransaction(); - 'this.GetDam("MCN_UC").ConnectionClose(); - - '#End Region - - '#Region "MCN_RC" - - ' Damを生成 - damWork = New DamMySQL() - ' Damを初期化 - BaseLogic.InitDam("MCN_RC", damWork) - ' Damを設定 - Me.SetDam("MCN_RC", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("MCN_RC")) - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('MCN_RC', 'MCN_RC');" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("MCN_RC").CommitTransaction(); - 'this.GetDam("MCN_RC").ConnectionClose(); - - '#End Region - - '#Region "MCN_RR" - - ' Damを生成 - damWork = New DamMySQL() - ' Damを初期化 - BaseLogic.InitDam("MCN_RR", damWork) - ' Damを設定 - Me.SetDam("MCN_RR", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("MCN_RR")) - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('MCN_RR', 'MCN_RR');" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("MCN_RR").CommitTransaction(); - 'this.GetDam("MCN_RR").ConnectionClose(); - - '#End Region - - '#Region "MCN_SZ" - - ' Damを生成 - damWork = New DamMySQL() - ' Damを初期化 - BaseLogic.InitDam("MCN_SZ", damWork) - ' Damを設定 - Me.SetDam("MCN_SZ", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("MCN_SZ")) - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('MCN_SZ', 'MCN_SZ');" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("MCN_SZ").CommitTransaction(); - 'this.GetDam("MCN_SZ").ConnectionClose(); - - '#End Region - - '#Region "MCN_SS" - - ' ★ サポートされない分離レベル - - '#End Region - - '#Region "MCN_DF" - - ' Damを生成 - damWork = New DamMySQL() - ' Damを初期化 - BaseLogic.InitDam("MCN_DF", damWork) - ' Damを設定 - Me.SetDam("MCN_DF", damWork) - - ' インサート - ' Damを直接使用することもできるが、 - ' 通常は、データアクセスにはDaoを使用する。 - cmnDao = New CmnDao(Me.GetDam("MCN_DF")) - cmnDao.SQLText = "INSERT INTO Shippers(CompanyName, Phone) VALUES('MCN_DF', 'MCN_DF');" - obj = DirectCast(cmnDao.ExecSelectScalar(), Object) - - 'this.GetDam("MCN_DF").CommitTransaction(); - 'this.GetDam("MCN_DF").ConnectionClose(); - - '#End Region - - '#End Region - - '#Region "終了時の状態選択" - - '#Region "Damの状態選択" - - ' トランザクションあり - If (parameterValue.ActionType.Split("%"c))(2) = "UT" Then - ElseIf (parameterValue.ActionType.Split("%"c))(2) = "NT" Then - ' トランザクションなし - ' → まえもってロールバックしておく - - '#Region "ロールバック" - - Me.GetDam("SQL_NT").RollbackTransaction() - Me.GetDam("SQL_UC").RollbackTransaction() - Me.GetDam("SQL_RC").RollbackTransaction() - Me.GetDam("SQL_RR").RollbackTransaction() - Me.GetDam("SQL_SZ").RollbackTransaction() - Me.GetDam("SQL_SS").RollbackTransaction() - Me.GetDam("SQL_DF").RollbackTransaction() - - Me.GetDam("ODP2_NT").RollbackTransaction() - 'this.GetDam("ODP2_UC").RollbackTransaction(); - Me.GetDam("ODP2_RC").RollbackTransaction() - 'this.GetDam("ODP2_RR").RollbackTransaction(); - Me.GetDam("ODP2_SZ").RollbackTransaction() - 'this.GetDam("ODP2_SS").RollbackTransaction(); - Me.GetDam("ODP2_DF").RollbackTransaction() - - Me.GetDam("DB2_NT").RollbackTransaction() - Me.GetDam("DB2_UC").RollbackTransaction() - Me.GetDam("DB2_RC").RollbackTransaction() - Me.GetDam("DB2_RR").RollbackTransaction() - Me.GetDam("DB2_SZ").RollbackTransaction() - 'this.GetDam("DB2_SS").RollbackTransaction(); - Me.GetDam("DB2_DF").RollbackTransaction() - - Me.GetDam("MCN_NT").RollbackTransaction() - Me.GetDam("MCN_UC").RollbackTransaction() - Me.GetDam("MCN_RC").RollbackTransaction() - Me.GetDam("MCN_RR").RollbackTransaction() - Me.GetDam("MCN_SZ").RollbackTransaction() - 'this.GetDam("MCN_SS").RollbackTransaction(); - - '#End Region - Me.GetDam("MCN_DF").RollbackTransaction() - ElseIf (parameterValue.ActionType.Split("%"c))(2) = "NC" Then - ' コネクションなし - ' → まえもってロールバック、コネクションクローズしておく - ' - ' ※ トランザクションを開始して - ' コミットしないで閉じると、ロールバック扱い。 - - '#Region "ロールバック" - - Me.GetDam("SQL_NT").RollbackTransaction() - Me.GetDam("SQL_UC").RollbackTransaction() - Me.GetDam("SQL_RC").RollbackTransaction() - Me.GetDam("SQL_RR").RollbackTransaction() - Me.GetDam("SQL_SZ").RollbackTransaction() - Me.GetDam("SQL_SS").RollbackTransaction() - Me.GetDam("SQL_DF").RollbackTransaction() - - Me.GetDam("ODP2_NT").RollbackTransaction() - 'this.GetDam("ODP2_UC").RollbackTransaction(); - Me.GetDam("ODP2_RC").RollbackTransaction() - 'this.GetDam("ODP2_RR").RollbackTransaction(); - Me.GetDam("ODP2_SZ").RollbackTransaction() - 'this.GetDam("ODP2_SS").RollbackTransaction(); - Me.GetDam("ODP2_DF").RollbackTransaction() - - Me.GetDam("DB2_NT").RollbackTransaction() - Me.GetDam("DB2_UC").RollbackTransaction() - Me.GetDam("DB2_RC").RollbackTransaction() - Me.GetDam("DB2_RR").RollbackTransaction() - Me.GetDam("DB2_SZ").RollbackTransaction() - 'this.GetDam("DB2_SS").RollbackTransaction(); - Me.GetDam("DB2_DF").RollbackTransaction() - - Me.GetDam("MCN_NT").RollbackTransaction() - Me.GetDam("MCN_UC").RollbackTransaction() - Me.GetDam("MCN_RC").RollbackTransaction() - Me.GetDam("MCN_RR").RollbackTransaction() - Me.GetDam("MCN_SZ").RollbackTransaction() - 'this.GetDam("MCN_SS").RollbackTransaction(); - Me.GetDam("MCN_DF").RollbackTransaction() - - '#End Region - - '#Region "コネクションクローズ" - - Me.GetDam("SQL_NT").ConnectionClose() - Me.GetDam("SQL_UC").ConnectionClose() - Me.GetDam("SQL_RC").ConnectionClose() - Me.GetDam("SQL_RR").ConnectionClose() - Me.GetDam("SQL_SZ").ConnectionClose() - Me.GetDam("SQL_SS").ConnectionClose() - Me.GetDam("SQL_DF").ConnectionClose() - - Me.GetDam("ODP2_NT").ConnectionClose() - 'this.GetDam("ODP2_UC").ConnectionClose(); - Me.GetDam("ODP2_RC").ConnectionClose() - 'this.GetDam("ODP2_RR").ConnectionClose(); - Me.GetDam("ODP2_SZ").ConnectionClose() - 'this.GetDam("ODP2_SS").ConnectionClose(); - Me.GetDam("ODP2_DF").ConnectionClose() - - Me.GetDam("DB2_NT").ConnectionClose() - Me.GetDam("DB2_UC").ConnectionClose() - Me.GetDam("DB2_RC").ConnectionClose() - Me.GetDam("DB2_RR").ConnectionClose() - Me.GetDam("DB2_SZ").ConnectionClose() - 'this.GetDam("DB2_SS").ConnectionClose(); - Me.GetDam("DB2_DF").ConnectionClose() - - Me.GetDam("MCN_NT").ConnectionClose() - Me.GetDam("MCN_UC").ConnectionClose() - Me.GetDam("MCN_RC").ConnectionClose() - Me.GetDam("MCN_RR").ConnectionClose() - Me.GetDam("MCN_SZ").ConnectionClose() - 'this.GetDam("MCN_SS").ConnectionClose(); - - '#End Region - Me.GetDam("MCN_DF").ConnectionClose() - ElseIf (parameterValue.ActionType.Split("%"c))(2) = "NULL" Then - ' データアクセス制御クラス = Null - ' → まえもってロールバック、コネクションクローズ、Nullクリアしておく - ' - ' ※ トランザクションを開始して - ' コミットしないで閉じると、ロールバック扱い。 - - '#Region "ロールバック" - - Me.GetDam("SQL_NT").RollbackTransaction() - Me.GetDam("SQL_UC").RollbackTransaction() - Me.GetDam("SQL_RC").RollbackTransaction() - Me.GetDam("SQL_RR").RollbackTransaction() - Me.GetDam("SQL_SZ").RollbackTransaction() - Me.GetDam("SQL_SS").RollbackTransaction() - Me.GetDam("SQL_DF").RollbackTransaction() - - Me.GetDam("ODP2_NT").RollbackTransaction() - 'this.GetDam("ODP2_UC").RollbackTransaction(); - Me.GetDam("ODP2_RC").RollbackTransaction() - 'this.GetDam("ODP2_RR").RollbackTransaction(); - Me.GetDam("ODP2_SZ").RollbackTransaction() - 'this.GetDam("ODP2_SS").RollbackTransaction(); - Me.GetDam("ODP2_DF").RollbackTransaction() - - Me.GetDam("DB2_NT").RollbackTransaction() - Me.GetDam("DB2_UC").RollbackTransaction() - Me.GetDam("DB2_RC").RollbackTransaction() - Me.GetDam("DB2_RR").RollbackTransaction() - Me.GetDam("DB2_SZ").RollbackTransaction() - 'this.GetDam("DB2_SS").RollbackTransaction(); - Me.GetDam("DB2_DF").RollbackTransaction() - - Me.GetDam("MCN_NT").RollbackTransaction() - Me.GetDam("MCN_UC").RollbackTransaction() - Me.GetDam("MCN_RC").RollbackTransaction() - Me.GetDam("MCN_RR").RollbackTransaction() - Me.GetDam("MCN_SZ").RollbackTransaction() - 'this.GetDam("MCN_SS").RollbackTransaction(); - Me.GetDam("MCN_DF").RollbackTransaction() - - '#End Region - - '#Region "コネクションクローズ" - - Me.GetDam("SQL_NT").ConnectionClose() - Me.GetDam("SQL_UC").ConnectionClose() - Me.GetDam("SQL_RC").ConnectionClose() - Me.GetDam("SQL_RR").ConnectionClose() - Me.GetDam("SQL_SZ").ConnectionClose() - Me.GetDam("SQL_SS").ConnectionClose() - Me.GetDam("SQL_DF").ConnectionClose() - - Me.GetDam("ODP2_NT").ConnectionClose() - 'this.GetDam("ODP2_UC").ConnectionClose(); - Me.GetDam("ODP2_RC").ConnectionClose() - 'this.GetDam("ODP2_RR").ConnectionClose(); - Me.GetDam("ODP2_SZ").ConnectionClose() - 'this.GetDam("ODP2_SS").ConnectionClose(); - Me.GetDam("ODP2_DF").ConnectionClose() - - Me.GetDam("DB2_NT").ConnectionClose() - Me.GetDam("DB2_UC").ConnectionClose() - Me.GetDam("DB2_RC").ConnectionClose() - Me.GetDam("DB2_RR").ConnectionClose() - Me.GetDam("DB2_SZ").ConnectionClose() - 'this.GetDam("DB2_SS").ConnectionClose(); - Me.GetDam("DB2_DF").ConnectionClose() - - Me.GetDam("MCN_NT").ConnectionClose() - Me.GetDam("MCN_UC").ConnectionClose() - Me.GetDam("MCN_RC").ConnectionClose() - Me.GetDam("MCN_RR").ConnectionClose() - Me.GetDam("MCN_SZ").ConnectionClose() - 'this.GetDam("MCN_SS").ConnectionClose(); - Me.GetDam("MCN_DF").ConnectionClose() - - '#End Region - - '#Region "Nullクリア" - - Me.SetDam("SQL_NT", Nothing) - Me.SetDam("SQL_UC", Nothing) - Me.SetDam("SQL_RC", Nothing) - Me.SetDam("SQL_RR", Nothing) - Me.SetDam("SQL_SZ", Nothing) - Me.SetDam("SQL_SS", Nothing) - Me.SetDam("SQL_DF", Nothing) - - Me.SetDam("ODP2_NT", Nothing) - 'this.SetDam("ODP2_UC",null); - Me.SetDam("ODP2_RC", Nothing) - 'this.SetDam("ODP2_RR",null); - Me.SetDam("ODP2_SZ", Nothing) - 'this.SetDam("ODP2_SS",null); - Me.SetDam("ODP2_DF", Nothing) - - Me.SetDam("DB2_NT", Nothing) - Me.SetDam("DB2_UC", Nothing) - Me.SetDam("DB2_RC", Nothing) - Me.SetDam("DB2_RR", Nothing) - Me.SetDam("DB2_SZ", Nothing) - 'this.SetDam("DB2_SS",null); - Me.SetDam("DB2_DF", Nothing) - - Me.SetDam("MCN_NT", Nothing) - Me.SetDam("MCN_UC", Nothing) - Me.SetDam("MCN_RC", Nothing) - Me.SetDam("MCN_RR", Nothing) - Me.SetDam("MCN_SZ", Nothing) - 'this.SetDam("MCN_SS",null); - - '#End Region - Me.SetDam("MCN_DF", Nothing) - End If - - '#End Region - - '#Region "エラーのスロー" - - If (parameterValue.ActionType.Split("%"c))(1) = "Business" Then - ' 業務例外のスロー - Throw New BusinessApplicationException("ロールバックのテスト", "ロールバックのテスト", "エラー情報") - ElseIf (parameterValue.ActionType.Split("%"c))(1) = "System" Then - ' システム例外のスロー - Throw New BusinessSystemException("ロールバックのテスト", "ロールバックのテスト") - ElseIf (parameterValue.ActionType.Split("%"c))(1) = "Other" Then - ' その他、一般的な例外のスロー - Throw New Exception("ロールバックのテスト") - ElseIf (parameterValue.ActionType.Split("%"c))(1) = "Other-Business" Then - ' その他、一般的な例外（業務例外へ振り替え）のスロー - Throw New Exception("Other-Business") - ElseIf (parameterValue.ActionType.Split("%"c))(1) = "Other-System" Then - ' その他、一般的な例外（システム例外へ振り替え）のスロー - Throw New Exception("Other-System") - End If - - '#End Region - - '#End Region - - End Sub -End Class diff --git a/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_txg.vb b/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_txg.vb deleted file mode 100644 index 2fe8b70d8..000000000 --- a/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/App_Code/testPublic/Business/TestMTC_txg.vb +++ /dev/null @@ -1,183 +0,0 @@ -'********************************************************************************** -'* フレームワーク・テストクラス（Ｂ層） -'********************************************************************************** - -'********************************************************************************** -'* クラス名 ：TestMTC_txg -'* クラス日本語名 ：Ｂ層のテスト（手動トランザクション制御－複数コネクション版） -'* -'* 作成日時 ：－ -'* 作成者 ：sas 生技 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ ＸＸＸＸ -'* -'********************************************************************************** - -' 型情報 -Imports MyType - -' System -Imports System - -' データセット利用 -Imports System.Data - -' 業務フレームワーク -Imports Touryo.Infrastructure.Business.Business -Imports Touryo.Infrastructure.Business.Dao -Imports Touryo.Infrastructure.Business.Common - -' フレームワーク -Imports Touryo.Infrastructure.Framework.Business -Imports Touryo.Infrastructure.Framework.Common -Imports Touryo.Infrastructure.Framework.Exceptions - -' 部品 -Imports Touryo.Infrastructure.Public.Db -Imports Touryo.Infrastructure.Public.Util - -''' -''' TestMTC_mcn の概要の説明です -''' -Public Class TestMTC_txg - Inherits MyBaseLogic - ''' - ''' 業務処理を実装 - ''' - ''' 引数クラス - ''' 戻り値クラス - Protected Overloads Overrides Sub UOC_DoAction(ByVal parameterValue As BaseParameterValue, ByRef returnValue As BaseReturnValue) - ' 引数クラスをアップキャスト - Dim testParameter As TestParameterValue = DirectCast(parameterValue, TestParameterValue) - - ' 戻り値クラスを生成 - Dim testReturn As New TestReturnValue() - - ' 戻り値クラスをダウンキャストして戻す - returnValue = DirectCast(testReturn, BaseReturnValue) - - ' --- - - ' トランザクション パターンIDの領域 - Dim transactionPatternIDs As String() = Nothing - - ' トランザクション グループIDからトランザクション パターンIDを取得 - BaseLogic.GetTransactionPatterns(DirectCast(testParameter.Obj, String), transactionPatternIDs) - - ' トランザクション パターンIDを設定 - testReturn.Obj = transactionPatternIDs - - '#Region "Damを初期化" - - ' トランザクション グループIDから取得した、 - ' トランザクション パターンIDでDam初期化する。 - For Each transactionPatternID As String In transactionPatternIDs - Dim tempDam As BaseDam = Nothing - - If transactionPatternID.IndexOf("SQL") <> -1 Then - ' DamSqlSvrを初期化してセット - tempDam = New DamSqlSvr() - BaseLogic.InitDam(transactionPatternID, tempDam) - Me.SetDam(transactionPatternID, tempDam) - ElseIf transactionPatternID.IndexOf("ODP") <> -1 Then - ' DamOraOdpを初期化してセット - tempDam = New DamOraOdp() - BaseLogic.InitDam(transactionPatternID, tempDam) - Me.SetDam(transactionPatternID, tempDam) - ElseIf transactionPatternID.IndexOf("DB2") <> -1 Then - ' DamDB2を初期化してセット - tempDam = New DamDB2() - BaseLogic.InitDam(transactionPatternID, tempDam) - Me.SetDam(transactionPatternID, tempDam) - ElseIf transactionPatternID.IndexOf("MCN") <> -1 Then - ' DamMySQLを初期化してセット - tempDam = New DamMySQL() - BaseLogic.InitDam(transactionPatternID, tempDam) - Me.SetDam(transactionPatternID, tempDam) - End If - Next - - '#End Region - - '#Region "終了時の状態選択" - - '#Region "Damの状態選択" - - ' トランザクションあり - If (parameterValue.ActionType.Split("%"c))(2) = "UT" Then - ElseIf (parameterValue.ActionType.Split("%"c))(2) = "NT" Then - ' トランザクションなし - ' → まえもってロールバックしておく - - ' ロールバック - For Each transactionPatternID As String In transactionPatternIDs - Me.GetDam(transactionPatternID).RollbackTransaction() - Next - ElseIf (parameterValue.ActionType.Split("%"c))(2) = "NC" Then - ' コネクションなし - ' → まえもってロールバック、コネクションクローズしておく - ' - ' ※ トランザクションを開始して - ' コミットしないで閉じると、ロールバック扱い。 - - ' ロールバック - For Each transactionPatternID As String In transactionPatternIDs - Me.GetDam(transactionPatternID).RollbackTransaction() - Next - - ' コネクションクローズ - For Each transactionPatternID As String In transactionPatternIDs - Me.GetDam(transactionPatternID).ConnectionClose() - Next - ElseIf (parameterValue.ActionType.Split("%"c))(2) = "NULL" Then - ' データアクセス制御クラス = Null - ' → まえもってロールバック、コネクションクローズ、Nullクリアしておく - ' - ' ※ トランザクションを開始して - ' コミットしないで閉じると、ロールバック扱い。 - - ' ロールバック - For Each transactionPatternID As String In transactionPatternIDs - Me.GetDam(transactionPatternID).RollbackTransaction() - Next - - ' コネクションクローズ - For Each transactionPatternID As String In transactionPatternIDs - Me.GetDam(transactionPatternID).ConnectionClose() - Next - - ' Nullクリア - For Each transactionPatternID As String In transactionPatternIDs - Me.SetDam(transactionPatternID, Nothing) - Next - End If - - '#End Region - - '#Region "エラーのスロー" - - If (parameterValue.ActionType.Split("%"c))(1) = "Business" Then - ' 業務例外のスロー - Throw New BusinessApplicationException("ロールバックのテスト", "ロールバックのテスト", "エラー情報") - ElseIf (parameterValue.ActionType.Split("%"c))(1) = "System" Then - ' システム例外のスロー - Throw New BusinessSystemException("ロールバックのテスト", "ロールバックのテスト") - ElseIf (parameterValue.ActionType.Split("%"c))(1) = "Other" Then - ' その他、一般的な例外のスロー - Throw New Exception("ロールバックのテスト") - ElseIf (parameterValue.ActionType.Split("%"c))(1) = "Other-Business" Then - ' その他、一般的な例外（業務例外へ振り替え）のスロー - Throw New Exception("Other-Business") - ElseIf (parameterValue.ActionType.Split("%"c))(1) = "Other-System" Then - ' その他、一般的な例外（システム例外へ振り替え）のスロー - Throw New Exception("Other-System") - End If - - '#End Region - - '#End Region - End Sub -End Class diff --git a/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx b/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx index bf69d62a7..d27e3f7b6 100644 --- a/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx +++ b/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx @@ -131,56 +131,6 @@
-
-
-
- ＜トランザクション制御＞
-
- オフ：シングル コネクション モード
- オン：マルチ コネクション モード
-
-
- データアクセス制御クラス
- （データプロバイダ）を選択
- - SQLClient - ODP.NET - DB2.NET - MySQL Cnn/NET -
-
-
- トランザクショングループIDを設定
- - SQL（SQLClient） - ODP1（ODP.NET1） - ODP2（ODP.NET2） - DB2（DB2.NET） - MCN（MySQL Cnn/NET） -
-
-
- トランザクションID：
-
-
- 終了時のステータス
- - トランザクションあり - トランザクションなし - コネクションなし - データアクセス制御クラス = Null -
-
- コミット、ロールバックを設定
- （例外発生時、ロールバック）
- - 正常時 - 業務例外 - システム例外 - その他、一般的な例外 - 業務例外への振替 - システム例外への振替 -


diff --git a/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx.vb b/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx.vb index 37a585cab..b4c67fa48 100644 --- a/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx.vb +++ b/root_easysetup/programs/VB/Samples/WebApp_sample/ProjectX_sample/Aspx/testPublic/testScreen.aspx.vb @@ -324,65 +324,6 @@ Public Partial Class Aspx_testPublic_testScreen #End Region - #Region "トランザクション制御機能" - - ''' トランザクション制御機能のテスト（InitDam） - Protected Sub btnTxPID_Click(sender As Object, e As EventArgs) - ' 引数クラスを生成 - ' 下位（Ｂ・Ｄ層）は、テスト クラスを流用する - Dim myParameterValue As New MyParameterValue("画面ID", "ボタンID", Convert.ToString(Me.ddlDap.SelectedValue) & "%" & Convert.ToString(Me.ddlExRollback.SelectedValue) & "%" & Convert.ToString(Me.ddlExStatus.SelectedValue), New MyUserInfo("ユーザ名", Request.UserHostAddress)) - - ' ※ ActionTypeのフォーマット：Dap%Err%Stat% - - Dim testMTC As MyBaseLogic - - ' B層を生成 - If Me.cbxCnnMode.Checked Then - ' マルチ コネクション モード - testMTC = New TestMTC_mcn() - Else - ' シングル コネクション モード - testMTC = New TestMTC() - End If - - ' 業務処理を実行 - Dim myReturnValue As MyReturnValue = DirectCast(testMTC.DoBusinessLogic(DirectCast(myParameterValue, BaseParameterValue), DbEnum.IsolationLevelEnum.User), MyReturnValue) - End Sub - - ''' トランザクション制御機能のテスト（GetTransactionPatterns） - Protected Sub btnTxGID_Click(sender As Object, e As EventArgs) - ' 引数クラスを生成 - ' 下位（Ｂ・Ｄ層）は、テスト クラスを流用する - Dim testParameterValue As New MyType.TestParameterValue("", "画面ID", "ボタンID", Convert.ToString(Me.ddlDap.SelectedValue) & "%" & Convert.ToString(Me.ddlExRollback.SelectedValue) & "%" & Convert.ToString(Me.ddlExStatus.SelectedValue), New MyUserInfo("ユーザ名", Request.UserHostAddress)) - - ' ※ ActionTypeのフォーマット：Dap - - ' TransactionGroupIDを設定 - testParameterValue.Obj = Me.ddlTxGpID.SelectedValue - - ' 業務処理を実行 - Dim testMTC As New TestMTC_txg() - - Dim myReturnValue As MyReturnValue = DirectCast(testMTC.DoBusinessLogic(DirectCast(testParameterValue, BaseParameterValue), DbEnum.IsolationLevelEnum.User), MyReturnValue) - - Me.lblTxID.Text = "" - - ' 例外判定 - If myReturnValue.ErrorFlag Then - ' エラーメッセージ - Me.lblTxID.Text = myReturnValue.ErrorMessage - Else - Dim temp1 As String() = DirectCast(DirectCast(myReturnValue, MyType.TestReturnValue).Obj, String()) - - ' TransactionPatternIDをリストする。 - For Each temp2 As String In temp1 - Me.lblTxID.Text += temp2 & "
" - Next - End If - End Sub - - #End Region - #Region "JIS系" #Region "JIS2004"