|
<%
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
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")
If (Left(name, 2) = "TG" AND Left(name, 3) <> "TGB") Or Left(name, 2) = "TS" Or Left(name, 2) = "TT" Then
' Response.Write("DELETE FROM " & name & " FROM TDA会社M FULL OUTER JOIN " & name & " ON TDA会社M.システムCD = " & name & ".システムCD AND TDA会社M.演習CD = " & name & ".演習CD AND TDA会社M.会社CD = " & name & ".会社CD WHERE TDA会社M.システムCD IS NULL")
' Response.Write(" " & vbCrLf) ' If InStr(name, "明細") = 0 Then ' Response.Write("ALTER TABLE [dbo].[" & name & "] ADD " & " " & vbCrLf) ' Response.Write(" CONSTRAINT [FK_" & name & "_TDA会社M] FOREIGN KEY " & " " & vbCrLf) ' Response.Write(" (" & " " & vbCrLf) ' Response.Write(" [システムCD]," & " " & vbCrLf) ' Response.Write(" [演習CD]," & " " & vbCrLf) ' Response.Write(" [会社CD]" & " " & vbCrLf) ' Response.Write(" ) REFERENCES [dbo].[TDA会社M] (" & " " & vbCrLf) ' Response.Write(" [システムCD]," & " " & vbCrLf) ' Response.Write(" [演習CD]," & " " & vbCrLf) ' Response.Write(" [会社CD]" & " " & vbCrLf) ' Response.Write(" ) ON DELETE CASCADE ON UPDATE CASCADE " & " " & vbCrLf) ' Response.Write("GO" & " " & vbCrLf) ' End If End If bTableFalseFlg = 0 If name = "TSB銀行取引申込書類F" Then Query = "SELECT * FROM " & name & " WHERE 1 = 0 " Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open Query,db,3,1 For ii = 0 To Rs.Fields.Count - 1 Response.Write("@") Response.Write(Rs.Fields(ii).Name & " ") Dim Kata Dim bFlg bFlg = 1 Select Case Rs.Fields(ii).Type case 0 Kata = "adEmpty" case 16 Kata = "adTinyInt" case 2 Kata = "smallint" case 3 Kata = "int" bFlg = 0 case 20 Kata = "adBigInt" case 17 Kata = "adUnsignedTinyInt" case 18 Kata = "adUnsignedSmallInt" case 19 Kata = "adUnsignedInt" case 21 Kata = "adUnsignedBigInt" case 4 Kata = "adSingle" case 5 Kata = "adDouble" case 6 Kata = "money" bFlg = 0 case 14 Kata = "adDecimal" case 131 Kata = "adNumeric" case 11 Kata = "adBoolean" case 10 Kata = "adError" case 132 Kata = "adUserDefined" case 12 Kata = "adVariant" case 9 Kata = "adIDispatch" case 13 Kata = "adIUnknown" case 72 Kata = "adGUID" case 7 Kata = "adDate" case 133 Kata = "adDBDate" case 134 Kata = "adDBTime" case 135 Kata = "datetime" case 8 Kata = "adBSTR" case 129 Kata = "adChar" case 200 Kata = "varchar" case 201 Kata = "adLongVarChar" case 130 Kata = "adWChar" case 202 Kata = "adVarWChar" case 203 Kata = "adLongVarWChar" case 128 Kata = "adBinary" case 204 Kata = "adVarBinary" case 205 Kata = "adLongVarBinary" case 136 Kata = "adChapter" case 64 Kata = "adFileTime" case 137 Kata = "adDBFileTime" case 138 Kata = "adPropVariant" case 139 Kata = "adVarNumeric" End Select ' Response.Write(Kata) ' If bFlg = 1 Then ' Response.Write("(") ' Response.Write(Rs.Fields(ii).DefinedSize & "") ' Response.Write(")") ' End If Response.Write(" " & vbCrLf) Next End If Content.MoveNext Loop %> |