‘オラクルの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