<!-- #include virtual="/sj4web/include.asp" -->
<%
main()
Sub main()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta name="robots" content="all">
<title><% = AppTitle %></title>
</head>
<body>
<%
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("<br>" & 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("<br>" & vbCrLf)
Response.write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""INSERT INTO TC1システムM (システムCD, ユーザー名, デフォルトフラグ) VALUES ('INPORT14', 'データインポート用', '0')""")
Response.write("<br>" & 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("<br>" & 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("<br>" & 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("<br>" & vbCrLf)
Response.write("<br>" & 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("<br>" & vbCrLf)
Response.write("<br>" & 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("<br>" & vbCrLf)
Response.write("<br>" & 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("<br>" & vbCrLf)
Response.write("<br>" & 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("<br>" & vbCrLf)
Response.write("<br>" & vbCrLf)
Response.write("<br>" & vbCrLf)
Next
Response.Write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""DELETE FROM TC2演習M WHERE システムCD = 'INPORT14'""")
Response.write("<br>" & vbCrLf)
Response.write("<br>" & vbCrLf)
Response.Write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -Q ""DELETE FROM TC1システムM WHERE システムCD = 'INPORT14'""")
Response.write("<br>" & vbCrLf)
Response.write("<br>" & 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("<br>" & vbCrLf)
Response.write("<br>" & 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("<br>" & vbCrLf)
Response.write("<br>" & vbCrLf)
Response.write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m1 -Q ""exec SPM記帳チェック挿入集計更新全部""" & vbCrLf)
Response.write("<br>" & vbCrLf)
Response.write("<br>" & vbCrLf)
Response.write("osql -S %1 -U sj3user -P sj4 -d sj4webdb -m0 -i 報告書書式管理の保管.sql" & vbCrLf)
%>
</body>
</html>
<%
End Sub
%>