Posts Tagged ‘oo4o’

  1. Hello, oo4o(VB6) World!

    Posted on 3月 5th, 2013 by cx20

    oo4o

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

    ソースコード(VB6 + 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

    コンパイル方法

    C:¥> vb6 /make hello.vbp

    実行結果

    MESSAGE
    ------------------
    Hello, oo4o World!
  2. Hello, oo4o(JScript) World!

    Posted on 9月 17th, 2012 by cx20

    oo4o

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

    ソースコード(JScript + oo4o + Oracle)

    main();
     
    function main() {
        var ses = new ActiveXObject("OracleInProcServer.XOraSession");
        var db = ses.OpenDatabase( "ORCL", "scott/tiger", 0 );
        var rs = db.CreateDynaset( "SELECT 'Hello, oo4o World!' AS Message FROM DUAL", 4);
     
        while ( !rs.EOF )
        {
            WScript.Echo( rs(0).Name );
            WScript.Echo( "-------------------" );
            WScript.Echo( rs(0).Value );
            rs.MoveNext();
        }
    }

    実行方法

    C:¥> CScript //Nologo Hello.js

    実行結果

    MESSAGE
    ------------------
    Hello, oo4o World!
  3. 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!
  4. 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)

    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!