Archive for 9月 14th, 2012

  1. Hello, oo4o(VBA) World!

    Posted on 9月 14th, 2012 by cx20

    oo4o

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

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

    Hello.bas
    raw download
    Option Explicit
 
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
        Debug.Print rs(0).Name
        Debug.Print "------------------"
        Debug.Print rs(0).Value
        rs.MoveNext
   Wend
End Sub

    実行結果

    MESSAGE
------------------
Hello, oo4o World!