<!-- #include file="../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>
<table border="1" width="100%">
<tr>
<td width="100%" align="right" style="font-size:10pt">
<%
Dim Query, Content, Content2
Query = "SELECT name FROM sysobjects WHERE (xtype = 'U') AND (status >= 0) AND name NOT LIKE 'YTMP_%' 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
Set Content = OpenQuery(Query)
Dim HtmlAll, HtmlRow, bFalse, HtmlFalse, WriteRow
Dim ScriptFalse1, ScriptFalse2, ScriptFalse3, ScriptFalse4
Dim bTableFalseFlg
bTableFalseFlg = 0
Do While Not(Content.BOF Or Content.EOF)
Dim name
name = Content.Fields("name")
Query = "SELECT * FROM " & name & " WHERE 1 = 0"
Set Content2 = OpenQuery(Query)
Dim FieldName, FieldType, Precision, NumericScale, DefinedSize, Attributes
Dim Fields
Fields = ""
For ii = 0 To Content2.Fields.Count - 1
FieldName = Content2.Fields(ii).Name
If FieldName = "会社CD" Then
FieldType = Content2.Fields(ii).Type
Precision = Content2.Fields(ii).Precision
NumericScale = Content2.Fields(ii).NumericScale
DefinedSize = Content2.Fields(ii).DefinedSize
Attributes = Content2.Fields(ii).Attributes
If ii <> 0 Then
Fields = Fields & ","
End If
Fields = Fields & FieldName
Response.Write("UPDATE " & name & " SET 会社CD = '13001' WHERE 演習CD = 'SYS00003' AND 会社CD = '23001'")
Response.Write("<br>")
Response.Write("UPDATE " & name & " SET 会社CD = '13002' WHERE 演習CD = 'SYS00003' AND 会社CD = '23002'")
Response.Write("<br>")
Response.Write("UPDATE " & name & " SET 会社CD = '13003' WHERE 演習CD = 'SYS00003' AND 会社CD = '23003'")
Response.Write("<br>")
If 1 = 0 Then
Response.Write(name)
Response.Write(" ")
Response.Write(FieldName)
Response.Write(" ")
Response.Write(FieldType)
Response.Write(" ")
Response.Write(Precision)
Response.Write(" ")
Response.Write(NumericScale)
Response.Write(" ")
Response.Write(DefinedSize)
Response.Write(" ")
Response.Write(Attributes)
Response.Write("<br>")
End If
End If
Next
' If LEFT(name, 1) = "T" Then
' Response.Write("INSERT INTO " & name & " (" & Fields & ") SELECT " & Fields & " FROM WORK_" & name)
' Response.Write("<br>")
' End If
bTableFalseFlg = 0
Content.MoveNext
Loop
%>
</td>
</tr>
</table>
</body>
</html>
<%
End Sub
%>