|
<%
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(" ") Response.Write("UPDATE " & name & " SET 会社CD = '13002' WHERE 演習CD = 'SYS00003' AND 会社CD = '23002'") Response.Write(" ") Response.Write("UPDATE " & name & " SET 会社CD = '13003' WHERE 演習CD = 'SYS00003' AND 会社CD = '23003'") Response.Write(" ") 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(" ") End If End If Next ' If LEFT(name, 1) = "T" Then ' Response.Write("INSERT INTO " & name & " (" & Fields & ") SELECT " & Fields & " FROM WORK_" & name) ' Response.Write(" ") ' End If bTableFalseFlg = 0 Content.MoveNext Loop %> |