| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | フリーソフト |

ASP VB Script oo4o + SQL 応用編1 oo4o 接続 - OpenDatabase

Active Server Pages(ASP) - VB Script で、oo4o による Oracle アクセスに
ついて説明します。
oo4o は、Oracle RDBMS でみ使用可能です。

■Oracle oo4o

  機能として、
    Oracle 接続          (connect)
    レコードセット処理   (select)
    トランザクション処理 (commit、rollback)
    アクションクエリ実行 (insert、update、delete)
  を使います。

  尚、oo4o の .close メソッド系は内部的になにもしていないので、
  Set オブジォクト = Nothing で処理します。

■oo4o 接続(Oracle 接続、オラクル接続)

  Public Const ORADB_DEFAULT   = &H0
  dim dbname
  dim cnuser

'** oo4o 接続
  dbname = ""
           '|_ Oracle サービス名(別名)"
  cnuser = "SAK/SAK"
           '|   |_ パスワード
           '|_ ユーザ名
  if isempty(session("OraSession")) then
    Set session("OraSession") = Server.CreateObject("OracleInProcServer.XOraSession")
  end
  if isempty(session("OraDatabase")) then
    Set session("OraDatabase") = session("OraSession").OpenDatabase(dbname, cnuser, ORADB_DEFAULT)
  end

'** RDB 処理
  'ここに操作コードが入る

■補足

  ・oo4o 接続は、session 変数で行う。
    アクセスの度に接続していてはレスポンスが悪い。

  ・session("OraSession") については、application("OraSession") の方が
    更に効率は良い。(global.asa に記述すると言う方法もある。)
    application("OraSession") の場合、Oracle サービスがダウンしたときに
    ASP 全体も再起動しないといけない。
    session("OraSession") では、ブラウザを上げ直すだけで良い。
    application 変数を使用する場合は、session("OraSession") を
    application("OraSession") と読み替えて下さい。

■接続プール

  ・OraSession.CreateDatabasePool のようにコネクションプールを使用して
    接続することもできる。

■session("OraSession") メソッド

  session("OraSession").OpenDatabase              (データベース接続)
  session("OraSession").BeginTrans                (トランザクション開始)
  session("OraSession").CommitTrans               (トランザクションコミット)
  session("OraSession").Rollback                  (トランザクションロールバック)
  session("OraSession").ResetTrans                (トランザクション無条件ロールバック)
  session("OraSession").LastServerErrReset        (ラストエラーリセット)
  Set session("OraSession") = Nothing             (セッションクローズ)

■session("OraSession") プロパティ

  session("OraSession").OIPVersionNumber          (Oracle バージョン)
  session("OraSession").LastServerErr             (ラストエラーコード)
  session("OraSession").LastServerErrText         (ラストエラーメッセージ)

■session("OraDatabase") メソッド

  session("OraDatabase").ExecuteSQL               (SQL 実行)
  session("OraDatabase").CreateSQL                (OraSqlStmt の作成)
  session("OraDatabase").CreateDynaset            (ダイナセット作成)
  session("OraDatabase").CreateCustomDynaset      (カスタムダイナセット作成)
  session("OraDatabase").CreatePlsqlDynaset       (PL/SQL ダイナセット作成)
  session("OraDatabase").CreatePlsqlCustomDynaset (カスタム PL/SQL ダイナセット作成)
  session("OraDatabase").LastServerErrReset       (ラストエラーリセット)
  Set session("OraDatabase") = Nothing            (コネクトクローズ)

■session("OraDatabase") プロパティ

  session("OraDatabase").Connect                  (コネクトユーザ名)
  session("OraDatabase").DatabaseName             (サービス名)
  session("OraDatabase").RDBMSVersion             (Oracle バージョン)
  session("OraDatabase").LastServerErr            (ラストエラーコード)
  session("OraDatabase").LastServerErrPos         (ラストエラーホジション)
  session("OraDatabase").LastServerErrText        (ラストエラーメッセージ)
  session("OraDatabase").Options                  (オプションフラグ値)

■OpenDatabase 定数

  Public Const ORADB_DEFAULT   = &H0
  Public Const ORADB_ORAMODE   = &H1
  Public Const ORADB_NOWAIT    = &H2
  Public Const ORADB_DBDEFAULT = &H4
  Public Const ORADB_DEFERRED  = &H8

■古い書き方?

  DbOpenDatabase、DbExecuteSQL、DbCreateSQL、DbCreateDynaset、
  DbBeginTrans、DbCommitTrans、DbRollback 等の Db はなくても良い。

■現実的なコード例

<%@ Language=VBScript %>
<%
'=======================================================================
'  準備
'=======================================================================
  Public Const ORADB_DEFAULT   = &H0
  dim dbname
  dim cnuser

'** エラートラップ開始
  on error resume next

'** サービス、ユーザ設定
  dbname = ""
  cnuser = "SAK/SAK"
  '// Oracle サービス名(別名)、ユーザ・パスワード指定

'** oo4o 接続
  if isempty(session("OraSession")) then
    Set session("OraSession") = Server.CreateObject("OracleInProcServer.XOraSession")
    if err <> 0 then
      response.write("<P>データベースに接続出来ません。<BR>" _
        & "CreateObject - Oracle oo4o エラー</P>")
    end if
  end if
  if isempty(session("OraDatabase")) then
    Set session("OraDatabase") = session("OraSession").OpenDatabase(dbname, cnuser, ORADB_DEFAULT)
    if err <> 0 then
      response.write("<P>データベースに接続出来ません。<BR>" _
        & err & ": " & error & "</P>")
    end if
  end if

'** エラートラップ終了
  on error goto 0

'=======================================================================
'  処理
'=======================================================================
  response.write("<P>-- 終了 --</P>")
%>

■更に現実的なコードアドバイス

  ・サービス名、ユーザ名をコード中に定義するより、初期化ファイルなどを
    使用してプログラムと独立させる方が可搬性に富んでいる。
    この場合、パスワードなどがもろ見えになってしまっては困る。
    暗号化関数を作成して、隠蔽処理など必ず実施する。

■ASP VB Script oo4o + SQL 応用編資料

• 2001.08.18 ASP VB Script oo4o + SQL 応用編1 oo4o 接続 - OpenDatabase
• 2001.12.05 ASP VB Script oo4o + SQL 応用編2 oo4o 接続 - CreateDatabasePool
• 2001.08.18 ASP VB Script oo4o + SQL 応用編3 oo4o エラー - エラーチェック
• 2001.08.18 ASP VB Script oo4o + SQL 応用編4 oo4o 更新 - ExecuteSQL
• 2001.08.18 ASP VB Script oo4o + SQL 応用編5 oo4o 更新 - Parameters
• 2001.08.18 ASP VB Script oo4o + SQL 応用編6 oo4o 更新 - CreateSql
• 2001.08.18 ASP VB Script oo4o + SQL 応用編7 oo4o 更新 - バッチ更新
• 2001.08.18 ASP VB Script oo4o + SQL 応用編8 oo4o レコード参照 - CreateDynaset
• 2001.08.18 ASP VB Script oo4o + SQL 応用編9 oo4o ストアドファンクション - PL/SQL
• 2001.08.18 ASP VB Script oo4o + SQL 応用編10 oo4o ストアド - CreatePLSQLDynaset

■ASP VB Script ADO + SQL 応用編資料

• 2001.04.23 ASP VB Script ADO + SQL 応用編 (その一) ADO 接続 - Open
  • SQL-RDB ODBC システム DSN 定義見本
• 2001.04.23 ASP VB Script ADO + SQL 応用編 (その二) ADO 更新 - Execute
• 2001.04.23 ASP VB Script ADO + SQL 応用編 (その三) ADO レコード参照 - CommandText
  • 【重要】RDB 項目 Null 時の対処
• 2001.08.15 ASP VB Script ADO + SQL 応用編 (その四) ADO ストアドファンクション

■ASP VB Script 基礎実地編資料

• 2001.06.25 ASP VB Script 基礎実地編1 - ハロー ASP、ヒアドキュメント、変数埋め込み
• 2001.06.25 ASP VB Script 基礎実地編2 - データベース参照、接続、クエリ、リストアップ
• 2001.06.25 ASP VB Script 基礎実地編3 - データベース参照、テーブル、フラットテーブル
• 2001.06.25 ASP VB Script 基礎実地編4 - データベース参照、項目名取得、項目タイプ判定
• 2001.06.25 ASP VB Script 基礎実地編5 - データベース問い合わせ、リクエストパラメタ
• 2001.06.25 ASP VB Script 基礎実地編6 - データベース問い合わせ、リクエストフォーム
• 2001.06.25 ASP VB Script 基礎実地編7 - データベース問い合わせ、フォームによる照会
• 2001.06.25 ASP VB Script 基礎実地編8 - データベース問い合わせ、スクロールへのヒント
• 2001.06.25 ASP VB Script 基礎実地編9 - JAVA サーバーサイドスクリプト、その他

■ASP VB Script 基礎編資料

• 2001.04.23 ASP VB Script 基礎編 (その一) 言語構造、注釈、変数、演算子
• 2001.04.23 ASP VB Script 基礎編 (その二) 制御構造(判定、ループ)
• 2001.04.23 ASP VB Script 基礎編 (その三) ファイルシステムオブジェクト
• 2001.04.23 ASP VB Script 基礎編 (その四) 基本事項、ユーザ関数
• 2001.04.23 ASP VB Script 基礎編 (その五) 文字列関数、数値関数、その他

■SQL 基礎編資料

• 2000.10.14 SQL 基礎編 (その一) テーブル操作 create table、alter table、drop table
  • SQL 基礎編 - 【補足】複合キー alter table、primary key
• 2000.10.14 SQL 基礎編 (その二) ビュー操作 create view、select、drop view
• 2000.10.14 SQL 基礎編 (その三) データ操作 insert、update、delete、commit、rollback
• 2000.10.14 SQL 基礎編 (その四) データ照会 select、where、group by、order by
• 2000.11.18 SQL 基礎編 (その五) キーワード char、varchar2、number、long、raw
• 2000.11.18 SQL 基礎編 (その六) テーブル創成 create table、select、union、rename
• 2000.11.18 SQL 基礎編 (その七) レコード操作 insert、update、where、having、distinct
• 2000.11.18 SQL 基礎編 (その八) ユーザ関数 create or replace function
• 2000.11.18 SQL 基礎編 (その九) PL/SQL declare、begin、DBMS_SQL、dbms_output
• 2001.11.20 SQL 基礎編 (その十) SQL*Plus コマンド - describe、variable、execute、spool

■SQL 基礎実地編資料

• 2001.11.20 SQL 基礎実地編 (その一) テーブル作成、項目タイプ、キー作成、順序作成
  • SQL クラスタ - クラスタ索引、ハッシュクラスタ、データベースリンク
• 2001.06.20 SQL 基礎実地編 (その二) テーブル削除、クリア、定義変更、名前変更、権限
• 2001.06.20 SQL 基礎実地編 (その三) ビュー作成、結合ビュー作成、ビュー削除
• 2001.06.20 SQL 基礎実地編 (その四) 問い合わせ、レコード参照、クエリ
  • SQL 表結合(join) - 単純結合、等価結合、非等価結合、外部結合、再帰結合
  • SQL 問い合わせ - スカラー副問い合わせ、cursor、row_number、over、with
  • SQL 問い合わせ - 分析ファンクション、over、partition by、range、dense_rank
  • SQL 問い合わせ - rollup、cube、grouping sets、having、using、cross、natural
• 2001.06.20 SQL 基礎実地編 (その五) 問い合わせ、抽出、ソート(並べ換え)
• 2001.06.20 SQL 基礎実地編 (その六) 問い合わせ、集計、重複レコード、集合、複合
• 2001.07.12 SQL 基礎実地編 (その七) 問い合わせ、関数、四捨五入、文字操作他
  • SQL 数値関数 - 余り、四捨五入、切り捨て、切り上げ、数値フォーマット他
  • SQL 文字関数 - 連結、空白削除、置換、切出、検索、長さ、数値変換他
  • SQL 日付関数 - システム日付、日付の差、日付の加算、次の曜日、月末日
  • SQL 日付計算、曜日計算、月末日計算、時間計算、期間計算、日付抽出
  • SQL 特殊関数 - 等価判断、最大判断、最小判断、ヌル変換
• 2001.06.20 SQL 基礎実地編 (その八) 問い合わせ、スキーマリスト、テーブル構造他
• 2001.06.20 SQL 基礎実地編 (その九) テーブルコピー、レコード追加、修正、削除
  • SQL マージ - MERGE、using、matched、not matched (Oracle9i 以降)
• 2001.06.20 SQL 基礎実地編 (その十) ストアドファンクション、PL/SQL、動的 SQL
  • SQL パッケージ - ストアドパッケージ、データベーストリガー

■SQL チューニング編資料

• 2001.08.01 SQL チューニング編1 - チューニングの方向、プログラムチューニング
• 2001.08.01 SQL チューニング編2 - SQL 実行計画解析、EXPLAIN、表走査、索引走査
• 2001.08.01 SQL チューニング編3 - SQL 実行計画解析、EXPLAIN、ヒントオプション
• 2001.08.01 SQL チューニング編4 - SQL 実行計画解析、ANALYZE、コストベース

■Oracle PL/SQL 編資料

• 2001.08.24 Oracle PL/SQL 編1 - 注釈、識別子、引用句、変数、演算子、比較演算子
• 2001.08.24 Oracle PL/SQL 編2 - 制御構造、条件式、判断、多重判定、ループ、例外処理
• 2001.08.26 Oracle PL/SQL 編3 - コレクション、table、varray、宣言、コレクションメソッド
• 2001.08.26 Oracle PL/SQL 編4 - SQL 文、動的 SQL、select、insert、update、delete
• 2001.08.26 Oracle PL/SQL 編5 - カーソル、カーソル for ループ、例外識別子、例外処理
• 2002.07.12 Oracle PL/SQL 編6 - ストアドパッケージ package 、データベーストリガー
• 2002.07.03 Oracle PL/SQL 編7 - 標準ファイル I/O utl_file.fopen、utl_file.put_line
  • Oracle PL/SQL utl_file.fopen、get_line、put、new_line、put_line、putf、fflush
• 2002.07.01 Oracle PL/SQL 編8 - SMTP メール送信 utl_smtp、utl_raw.cast_to_raw
• 2002.07.01 Oracle PL/SQL 編9 - 動的 SQL、EXECUTE IMMEDIATE、using、into、returning
• 2002.07.01 Oracle PL/SQL 編10 - 暗号化、dbms_obfuscation_toolkit、desencrypt
• 2002.07.01 Oracle PL/SQL 編11 - 乱数、dbms_random、initialize、seed、random
• 2002.07.01 Oracle PL/SQL 編12 - BASE64 エンコード、utl_encode、base64_encode
• 2002.07.01 Oracle PL/SQL 編13 - テーブル構造表示、項目検索表示、user_tab_columns
• 2002.07.01 Oracle PL/SQL 編14 - 全テーブル構造リストファイル出力、utl_file.put_line
• 2002.07.03 Oracle PL/SQL 編15 - ユーザオブジェクト一覧 CSV 出力、HTML 出力
• 2002.07.04 Oracle PL/SQL 編16 - デバッグメッセージ表示、dbms_output.put_line
• 2002.07.04 Oracle PL/SQL 編17 - テーブル構造取得ストアド、CreatePLSQLDynaset、ASP
• 2002.07.12 Oracle PL/SQL 編18 - パッケージサブプログラムオーバーロード、package
• 2002.07.15 Oracle PL/SQL 編19 - ウェブアクセス、UTL_HTTP、UTL_URL、UTL_INADDR
• 2002.08.12 Oracle PL/SQL 編20 - レコード件数一覧表示、cursor、execute immediate

■PostgreSQL 編、JAVA Servlet、JSP 編資料

• 2002.10.21 PostgreSQL 編1 - UNIX コマンド、Cygwin 2.05b、Cygwin B20(bash 2.02)
• 2002.10.21 PostgreSQL 編2 - Cygwin B20、.bashrc、IPC パッチ、PostgreSQL インストール
  • PostgreSQL 7.2.3(postgresql-7.2.3.tar.gz)、JDBC pgjdbc2.jar インストール
• 2002.10.21 PostgreSQL 編3 - ipc-daemon 起動、PostgreSQL 起動、psql 起動、ipgsql
• 2002.10.21 PostgreSQL 編4 - テーブル作成、制約、項目タイプ、キー作成、順序作成
• 2002.11.01 PostgreSQL 編5 - テーブルクリア、テーブル定義変更、整合性制約定義、権限
• 2002.11.01 PostgreSQL 編6 - ビュー作成、結合ビュー作成、ビュー削除、create view
• 2002.11.01 PostgreSQL 編7 - 問い合わせ、レコード参照、クエリ、select、like、count
• 2002.11.01 PostgreSQL 編8 - 表結合(join)、単純結合、等価結合、外部結合、再帰結合
• 2002.11.05 PostgreSQL 編9 - スカラー副問い合わせ、件数指定、OFFSET、LIMIT、HAVING
• 2002.11.05 PostgreSQL 編10 - 問い合わせ、抽出、ソート、where、like、order by、desc
• 2002.11.05 PostgreSQL 編11 - 問い合わせ、集計、平均、最大、最小、重複、集合、複合
• 2002.11.05 PostgreSQL 編12 - 数値関数、余り、四捨五入、切り捨て、切り上げ、数値書式
• 2002.11.05 PostgreSQL 編13 - 文字関数、連結、空白削除、置換、切出、検索、長さ、数値
• 2002.11.05 PostgreSQL 編14 - 日付関数、システム日付、切捨、日付差、日付加算、書式
• 2002.11.05 PostgreSQL 編15 - 特殊関数、多重判定、ヌル判定、ヌル比較、case、nullif
• 2002.11.05 PostgreSQL 編16 - 日付計算、曜日、月末日、時間計算、期間計算、日付抽出
• 2002.11.05 PostgreSQL 編17 - 問い合わせ、テーブルリスト、ユーザリスト、テーブル構造
• 2002.11.05 PostgreSQL 編18 - テーブルコピー、レコード追加、修正、削除、表切り捨て
• 2002.11.05 PostgreSQL 編19 - ストアドファンクション、function、PL/pgSQL、トリガー
• 2002.11.05 PostgreSQL 編20 - VB ストアド呼び出し、トリガー、トランザクションロールバック
• 2002.11.06 PostgreSQL 編21 - PL/pgSQL、構文書式、制御構造、メッセージ、動的 SQL
• 2002.11.06 PostgreSQL 編22 - PL/pgSQL、カーソル for ループ、カーソル制御、FETCH
• 2003.05.01 PostgreSQL 編23 - PL/pgSQL、テーブルレコード件数一覧表示
• 2003.05.01 PostgreSQL 編24 - PL/pgSQL、テーブル構造一覧表示、標準、動的SQL、LIKE
• 2002.10.22 PostgreSQL + VB ADO 編1 - ODBC ドライバ、レコード更新、レコード参照
• 2002.10.22 PostgreSQL + ASP ADO 編1 - ODBC ドライバ、レコード更新、レコード参照
• 2002.10.22 PostgreSQL + Web 編1 - Apache、CGI Perl、PHP、MySQL インストール、設定
• 2002.10.22 PostgreSQL + PHP 編1 - 接続 pg_connect、レコード参照 pg_fetch_array
• 2002.10.24 PostgreSQL + Web 編2 - JAVA Servlet、JSP、J2SDK、Tomcat、JDBC 環境
• 2002.10.24 PostgreSQL + Servlet、JSP 編1 - war 作成、JDBC 配置、Servlet, JSP テスト
• 2002.10.24 PostgreSQL + Servlet、JSP 編2 - Servlet JDBC アクセス、getConnection
• 2002.10.24 PostgreSQL + Servlet、JSP 編3 - JSP JDBC アクセス、executeQuery
• 2002.10.25 Oracle9i + Servlet、JSP 編1 - Servlet JDBC アクセス、getConnection
• 2002.10.25 Oracle9i + Servlet、JSP 編2 - JSP JDBC アクセス、executeQuery
• 2002.11.01 PostgreSQL + Web 編3 - Apache、Tomcat 連携、mod_jk.dll、mod_jk.conf
• 2002.11.01 PostgreSQL + Web 編4 - Cygwin 2.05b、Cygipc 1.11.1 インストール、移行

■MySQL 編資料

• 2003.06.01 MySQL 編1 - インストール、ODBC ドライバ、日本語設定、トランザクション設定
• 2003.06.01 MySQL 編2 - ODBC + VB ADO、テーブル作成、レコード更新、レコード参照
• 2003.06.01 MySQL 編3 - ODBC + ASP ADO、テーブル作成、レコード更新、レコード参照
• 2003.06.01 MySQL 編4 - PHP、レコード更新、レコード参照、トランザクション
• 2003.06.01 MySQL 編5 - JDBC + JAVA Servlet、JSP、レコード更新、レコード参照
• 2003.06.01 MySQL 編6 - テーブル作成、制約、項目タイプ、キー作成、順序作成
• 2003.06.01 MySQL 編7 - テーブルクリア、テーブル定義変更、整合性制約定義、権限
• 2003.06.01 MySQL 編8 - 問い合わせ、レコード参照、クエリ、select、like、count、concat
• 2003.06.01 MySQL 編9 - 表結合(join)、単純結合、等価結合、外部結合、再帰結合
• 2003.06.01 MySQL 編10 - スカラー副問い合わせ、件数指定、LIMIT、HAVING、USING
• 2003.06.01 MySQL 編11 - 問い合わせ、抽出、ソート、where、like、order by、desc
• 2003.06.01 MySQL 編12 - 問い合わせ、集計、平均、最大、最小、重複、集合、複合
• 2003.06.01 MySQL 編13 - 数値関数、余り、四捨五入、切り捨て、切り上げ、数値書式
• 2003.06.01 MySQL 編14 - 文字関数、連結、空白削除、置換、切出、検索、長さ、数値
• 2003.06.01 MySQL 編15 - 特殊関数、多重判定、ヌル判定、ヌル比較、case、nullif
• 2003.06.01 MySQL 編16 - 日付関数、システム日付、切捨、日付差、日付加算、書式
• 2003.06.01 MySQL 編17 - テーブルコピー、レコード追加、修正、削除、表切り捨て

| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | フリーソフト |