<% main() Sub main() %> <% If Request("r") <> "1" THen %> <% If Request("w") = "1" Then %> 以下のオブジェクトを削除しました。

<% Else %> 以下のオブジェクトを削除する事が出来ます。

<% End If %> もしタイムアウトなどの理由により、この処理が正しく出来なかった場合は、
ここをクリックし、
新しく出てくるウィンドウのテキストをクエリアナライザに貼り付け、
実行してください。

それが問題なく終わったら、このウィンドウを閉じてください。
インストール・バージョンアップを続行します。


<% End If %> USE sj4webdb
<% Dim cmds Dim Query, Content, Content1 Query = "SELECT parent_sysobjects.name AS parent, sysobjects.name, sysobjects.xtype, sysusers.name as owner" Query = Query & " FROM sysobjects" Query = Query & " LEFT OUTER JOIN sysusers ON sysobjects.uid = sysusers.uid" Query = Query & " LEFT OUTER JOIN sysobjects parent_sysobjects ON sysobjects.parent_obj = parent_sysobjects.id" Query = Query & " WHERE (sysobjects.name LIKE N'DF_T%' OR sysobjects.name LIKE N'FK_T%' OR sysobjects.name LIKE N'PK_T%' OR sysobjects.name LIKE N'S%' OR sysobjects.name LIKE N'GTR_%')" Query = Query & " AND (sysobjects.name NOT LIKE N'sys%')" Query = Query & " AND (sysobjects.xtype = N'D' OR sysobjects.xtype = N'F' OR sysobjects.xtype = N'PK' OR sysobjects.xtype = N'TR' OR sysobjects.xtype = N'P')" Query = Query & " ORDER BY sysobjects.name" Set db = Server.CreateObject("ADODB.Connection") db.Open SQLConn Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Dim name, parent, cmd, xtype, owner parent = Content.Fields("parent") name = Content.Fields("name") xtype = Content.Fields("xtype") owner = Content.Fields("owner") If xtype = "P " Then cmd = "drop procedure " & owner & "." & name ElseIf xtype = "TR" Then cmd = "drop trigger " & owner & "." & name Else cmd = "ALTER TABLE " & owner & "." & parent & " DROP CONSTRAINT " & name End If If Request("w") = "1" Then Set Content1 = OpenQuery(cmd) End If Response.Write(cmd) Response.Write("
" & vbCrLf) Content.MoveNext Loop %> <% End Sub %>