トリガ名がテーブル名に由来している場合の、トリガ一括削除の例 '/* '/* トリガーの一括削除 '/* Public Sub doDropTrigger() Dim rs As New ADODB.Recordset Dim adf As ADODB.Field Set rs = Con.OpenSchema(adSchemaTables) Do Until rs.EOF 'ユーザーテ…

OpenSchema メソッド '/* '/* テーブルの存在有無 '/* '/* 引数: テーブル名 '/* 戻値: True 有／ False 無 '/* Private Function fnExistTable(pTbName As String) As Boolean Dim bExist As Boolean Dim rs As New ADODB.Recordset Set rs = Con.OpenSchem…