0040

高速な削除(DELETE) パフォーマンスを意識した簡単なコーディング方法

削除件数が複数存在する時に威力を発揮する。

 

    ‘オラクルのOraSQLStmtオブジェクト変数。1つのSQL文を表します
    Dim OraSqlStmt        As OraSqlStmt

    ‘パラメータ定義をする  OraConst.TXT内に定数あり
    With OraDatabase.Parameters
        .Add "h1", "", ORAPARM_INPUT
    End With

    ‘パラメータのデータ型を指定する  OraConst.TXT内に定数あり
    With OraDatabase
        .Parameters("h1").serverType = ORATYPE_NUMBER
    End With

    ‘SQL文(DELETE)を編集する
    strSql = "DELETE FROM emp WHERE xxx = :h1"





    With OraDatabase
        ‘SQLオブジェクトを作成する
        Set OraSqlStmt = .CreateSql(strSql, &H0&)
        ‘100から200までループする
        For lngCnt = 100 To 200
        ‘パラメータに値を代入する
            .Parameters("h1").Value = str削除キー配列(lngCnt)
            ‘SQL文(DELETE)を実行する
            OraSqlStmt.Refresh
        Next lngCnt
        ‘パラメータを開放する
        .Parameters.Remove "h1"
    End With

    ‘※他のPCから同時に削除される可能性がある時は①の前に
    ‘ 「On Error Resume Next」を実行しておく必要がる。

 

OO4Oコーディング標準(VB)

初期登録日: 2003年11月12日

最終更新日: 2008年01月26日

< Home ヘ戻る >

キーボード

ブラウザ画面の文字サイズを変更するショートカットキー

  1. [ CTRL ] + [ + ]  :  文字を大きく
  2. [ CTRL ] + [ – ]  :  文字を小さく

Shortcut Keys

  1. [ CTRL ] + [ + ]  :  Up the font size
  2. [ CTRL ] + [ – ]  :  Down the font size