Hello, oo4o World!

Posted on 4月 2nd, 2012 by cx20

oo4o

oo4o（Oracle Objects for OLE）は、COM ベースの Oracle Database 接続用 API である。
Windows 環境で VB による開発に用いられることが多い。

ソースコード（VBScript + oo4o + Oracle）

Hello.vbs
raw download
Option Explicit
 
Call Main()
 
Sub Main()
    Dim ses
    Dim db
    Dim rs
    Set ses = CreateObject("OracleInProcServer.XOraSession")
    Set db = ses.OpenDatabase( "ORCL", "scott/tiger", 0 )
    Set rs = db.CreateDynaset( "SELECT 'Hello, oo4o World!' AS Message FROM DUAL", 4)
    While NOT rs.EOF
        WScript.Echo rs(0).Name
        WScript.Echo "------------------"
        WScript.Echo rs(0).Value
        rs.MoveNext
   Wend
End Sub

実行方法（Windows）

C:¥> CScript //Nologo Hello.vbs

実行結果

MESSAGE
------------------
Hello, oo4o World!
このエントリーをはてなブックマークに追加

Tags:

Categories: library, oo4o, Oracle Database, SQL, VBScript

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

WP-SpamFree by Pole Position Marketing