戻る

OO4O で Oracle に接続する

概要

OO4O を使用して Oracle に接続します。
OO4O (Oracle Objects for OLE) がインストールされている必要があります。

サンプル

「参照設定」で [OracleInProcServer 2.3 Type Library] に参照します。

OO4O で Oracle に接続する
		' OO4O で Oracle に接続する          ' OO4Oのオブジェクト変数を宣言する     Dim ssOra As Object     Dim dbOra As OraDatabase     Dim dynOra As OraDynaset     ' セッションの作成     Set ssOra = CreateObject("OracleInProcServer.XOraSession")          ' サービス名（サーバ名）と ユーザ名/パスワード を指定する     Set dbOra = ssOra.OpenDatabase("NT", "scott/tiger", 0&)     ' SQLステートメントを指定してダイナセットを取得する     Set dynOra = dbOra.DbCreateDynaset("select * from emp", 0&)          ' ダイナセットの内容（１つのフィールド）を出力する例     Do While Not dynOra.EOF         Debug.Print dynOra.Fields(0).Value         dynOra.MoveNext     Loop

©2000 VBMANIA All rights reserved.