<% main() Sub main() %> <% = AppTitle %> <% Dim Query, Content, Rs Query = "SELECT name FROM sysobjects WHERE (xtype = 'U') AND (status >= 0) ORDER BY name" ' Query = "SELECT name FROM sysobjects WHERE (status >= 0) ORDER BY name" Set db = Server.CreateObject("ADODB.Connection") db.Open SQLConn Dim ii, hh Set Content = OpenQuery(Query) Dim HtmlAll, HtmlRow, bFalse, HtmlFalse, WriteRow Dim ScriptFalse1, ScriptFalse2, ScriptFalse3, ScriptFalse4 Dim bTableFalseFlg bTableFalseFlg = 0 Dim TargetTables TargetTables = Array("TC9区分M", "TC9名刺デザインM", "TC9文書種類M", "TDA勘定科目M", "TDA報告書書式M") Response.write("
" & vbCrLf) Response.Write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""INSERT INTO TC1システムM (システムCD, ユーザー名, デフォルトフラグ) SELECT 'SFC', 'データインポート用', '0' WHERE (NOT EXISTS (SELECT * FROM TC1システムM WHERE システムCD = 'SFC'))""") Response.write("
" & vbCrLf) Response.write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""INSERT INTO TC1システムM (システムCD, ユーザー名, デフォルトフラグ) VALUES ('INPORT14', 'データインポート用', '0')""") Response.write("
" & vbCrLf) Response.Write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""INSERT INTO TC2演習M (システムCD, 演習CD, 演習名称) SELECT 'SFC', 'SYSORIGN', 'データインポート用' WHERE (NOT EXISTS (SELECT * FROM TC2演習M WHERE システムCD = 'SFC' AND 演習CD = 'SYSORIGN'))""") Response.write("
" & vbCrLf) Response.write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""INSERT INTO TC2演習M (システムCD, 演習CD, 演習名称) VALUES ('INPORT14', 'SYSORIGN', 'バージョンアップ用')""") Response.write("
" & vbCrLf) For hh = 0 To Ubound(TargetTables) Query = "SELECT * FROM " & TargetTables(hh) & " WHERE 1 = 0 " Dim FieldLists, FieldLists2 FieldLists = "" FieldLists2 = "" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open Query,db,3,1 For ii = 0 To Rs.Fields.Count - 1 If FieldLists <> "" Then FieldLists = FieldLists & "," End If FieldLists = FieldLists & Rs.Fields(ii).Name If FieldLists2 <> "" Then FieldLists2 = FieldLists2 & "," End If If Rs.Fields(ii).Name = "システムCD" Then FieldLists2 = FieldLists2 & "TC1システムM." & Rs.Fields(ii).Name Else FieldLists2 = FieldLists2 & TargetTables(hh) & "." & Rs.Fields(ii).Name End if Next Response.Write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""DELETE FROM " & TargetTables(hh)) If TargetTables(hh) = "TDA勘定科目M" Or TargetTables(hh) = "TDA報告書書式M" Then Response.Write(" WHERE 演習CD = 'SYSORIGN'") End If Response.Write("""") Response.write("
" & vbCrLf) Response.write("
" & vbCrLf) Response.Write("bcp sj4webdb.dbo." & TargetTables(hh) & " in " & TargetTables(hh) & ".csv /e " & TargetTables(hh) & "_in_err.txt /c /t ::: /r ;;;\n /S %1 /U sj3user /P sj3") Response.write("
" & vbCrLf) Response.write("
" & vbCrLf) If TargetTables(hh) = "TDA勘定科目M" Or TargetTables(hh) = "TDA報告書書式M" Then Response.write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""UPDATE " & TargetTables(hh) & " SET システムCD = 'INPORT14' WHERE システムCD = 'SFC' AND 演習CD = 'SYSORIGN'""") Else Response.write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""UPDATE " & TargetTables(hh) & " SET システムCD = 'INPORT14'""") End If Response.write("
" & vbCrLf) Response.write("
" & vbCrLf) Response.write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""INSERT INTO " & TargetTables(hh) & "(" & FieldLists & ")" ) Response.write(" SELECT " & FieldLists2 & "" ) Response.write(" FROM " & TargetTables(hh) & " CROSS JOIN TC1システムM ") Response.write(" WHERE (TC1システムM.デフォルトフラグ = 1)") Response.write(" AND (" & TargetTables(hh) & ".システムCD = 'INPORT14')""") Response.write("
" & vbCrLf) Response.write("
" & vbCrLf) If TargetTables(hh) = "TDA勘定科目M" Or TargetTables(hh) = "TDA報告書書式M" Then Response.Write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""DELETE FROM " & TargetTables(hh) & " WHERE システムCD = 'INPORT14' AND 演習CD = 'SYSORIGN'""") Else Response.Write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""DELETE FROM " & TargetTables(hh) & " WHERE システムCD = 'INPORT14'""") End If Response.write("
" & vbCrLf) Response.write("
" & vbCrLf) Response.write("
" & vbCrLf) Next Response.Write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""DELETE FROM TC2演習M WHERE システムCD = 'INPORT14'""") Response.write("
" & vbCrLf) Response.write("
" & vbCrLf) Response.Write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""DELETE FROM TC1システムM WHERE システムCD = 'INPORT14'""") Response.write("
" & vbCrLf) Response.write("
" & vbCrLf) Response.Write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""DELETE FROM TC2演習M WHERE システムCD = 'SFC' AND EXISTS(SELECT * FROM TC1システムM WHERE システムCD = 'SFC' AND デフォルトフラグ = 0)""") Response.write("
" & vbCrLf) Response.write("
" & vbCrLf) Response.Write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""DELETE FROM TC1システムM WHERE システムCD = 'SFC' AND デフォルトフラグ = 0""") Response.write("
" & vbCrLf) Response.write("
" & vbCrLf) Response.write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m1 -Q ""exec SPM記帳チェック挿入集計更新全部""" & vbCrLf) Response.write("
" & vbCrLf) Response.write("
" & vbCrLf) Response.write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -i 報告書書式管理の保管.sql" & vbCrLf) %> <% End Sub %>