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)

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!

Tags:

Categories: oo4o, VBA

コメントを残す

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

WP-SpamFree by Pole Position Marketing