0040

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

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

 

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

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

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

    ‘SQL文(UPDATE)を編集する
    strSql = "UPDATE emp SET xxx = :h1 WHERE yyy = :h2"





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

 

 

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

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

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

 

< Home ヘ戻る >

キーボード

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

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

Shortcut Keys

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