0040

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

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

 

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

    ‘パラメータ定義をする。OraConst.TXT内に定数あり
    With OraDatabase.Parameters
        .Add "h1", "", ORAPARM_INPUT   ‘引数1はパラメータ名
        .Add "h2", "", ORAPARM_INPUT   ‘引数2は初期値(未指定可)
    End With                           ‘引数3は入出力を指示する

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

    ‘SQL文を編集する。    
    strSql = "INSERT INTO emp (xx,yy) VALUES (:h1,: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文(INSERT)を実行する
            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