|
<%
Dim Query, Content, Content2
Query = "SELECT name FROM sysobjects WHERE (xtype = 'U') AND (status >= 0) AND name >= 'TGA' ORDER BY name DESC"
' Query = "SELECT name FROM sysobjects WHERE (status >= 0) ORDER BY name DESC"
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")
Response.Write("DELETE FROM " & name & " WHERE システムCD = @システムCD AND 演習CD = @演習CD")
Response.Write(" " & vbCrLf) If InStr(name, "TGA入出庫") > 0 Or InStr(name, "TGB銀行口座") > 0 Or InStr(name, "TGK現金") > 0 Or InStr(name, "TSK伝票") > 0 Then Response.Write(" AND 会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 <> '')") End If Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("") bTableFalseFlg = 0 Content.MoveNext Loop %> /* TC6演習履歴M */ DELETE FROM TC6演習履歴M where (システムCD = @システムCD AND 演習CD = @演習CD ) /* マスターは元データ以外を クリア */ /* TDA会社M */ DELETE FROM TDA会社M where ( システムCD = @システムCD AND 演習CD = @演習CD ) and ( 学生番号 <> '' ) /* TDA勘定科目M */ DELETE FROM TDA勘定科目M where (システムCD = @システムCD AND 演習CD = @演習CD ) and ( 作成区分 <> 1 ) /* TDA商品M */ DELETE FROM TDA商品M where (システムCD = @システムCD AND 演習CD = @演習CD ) and ( 作成区分 <> 1 OR 所有会社CD <> '' ) /* TDA報告書書式M */ DELETE FROM TDA報告書書式M where (システムCD = @システムCD AND 演習CD = @演習CD ) and ( 作成区分 <> 1 ) |