CX's Hello, World!

main();
 
function main() {
    var dbe = new ActiveXObject("DAO.DBEngine.36");
    var db = dbe.OpenDatabase("Hello.mdb");
    var rs = db.OpenRecordset("SELECT 'Hello, DAO World!' AS Message");
 
    while ( !rs.EOF )
    {
        WScript.Echo( rs(0).Name );
        WScript.Echo( "-------------------" );
        WScript.Echo( rs(0).Value );
        rs.MoveNext();
    }
 
    rs.Close();
    db.Close();
}

main();
 
function main() {
    var dbe = new ActiveXObject("DAO.DBEngine.120");
    var db = dbe.OpenDatabase("Hello.accdb");
    var rs = db.OpenRecordset("SELECT 'Hello, DAO World!' AS Message");
 
    while ( !rs.EOF )
    {
        WScript.Echo( rs(0).Name );
        WScript.Echo( "-------------------" );
        WScript.Echo( rs(0).Value );
        rs.MoveNext();
    }
 
    rs.Close();
    db.Close();
}

main();
 
function main() {
    var dbe = new ActiveXObject("DAO.DBEngine.36");
    var db = dbe.OpenDatabase( "", false, false, 
          "ODBC;Driver={SQL Server};"
        + "SERVER=(local);DATABASE=master;" 
        + "UID=sa;PWD=P@ssW0rd" );
    var rs = db.OpenRecordset("SELECT 'Hello, DAO World!' AS Message");
 
    while ( !rs.EOF )
    {
        WScript.Echo( rs(0).Name );
        WScript.Echo( "-------------------" );
        WScript.Echo( rs(0).Value );
        rs.MoveNext();
    }
 
    rs.Close();
    db.Close();
}

var dbOpenSnapshot = 4;
var dbSQLPassThrough = 64;
 
main();
 
function main() {
    var dbe = new ActiveXObject("DAO.DBEngine.36");
    var db = dbe.OpenDatabase( "", false, false, 
          "ODBC;Driver={Oracle in OraDb11g_home1};"
        + "DBQ=ORCL;" 
        + "UID=scott;PWD=tiger" );
    var rs = db.OpenRecordset("SELECT 'Hello, DAO World!' AS Message");
    // パススルークエリの例（データベース側に依存する SQL を実行する場合）
    //var rs = db.OpenRecordset("SELECT 'Hello, DAO World!' AS Message FROM DUAL", dbOpenSnapshot, dbSQLPassThrough );
 
    while ( !rs.EOF )
    {
        WScript.Echo( rs(0).Name );
        WScript.Echo( "-------------------" );
        WScript.Echo( rs(0).Value );
        rs.MoveNext();
    }
 
    rs.Close();
    db.Close();
}

C:¥> CScript //Nologo Hello.js

Message
-----------------
Hello, DAO World!

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!

Option Explicit
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=.hello.mdb"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")
 
    While Not rs.EOF
        Debug.Print rs(0).Name
        Debug.Print "-------------------"
        Debug.Print rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    cn.Close
End Sub

Option Explicit
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=.hello.accdb"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")
 
    While Not rs.EOF
        Debug.Print rs(0).Name
        Debug.Print "-------------------"
        Debug.Print rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    cn.Close
End Sub

Option Explicit
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=SQLOLEDB;" & _
         "SERVER=(local);DATABASE=master;", _
         "sa", "P@ssW0rd"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")
 
    While Not rs.EOF
        Debug.Print rs(0).Name
        Debug.Print "-------------------"
        Debug.Print rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    cn.Close
End Sub

Option Explicit
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=MSDAORA;Data Source=ORCL", "scott", "tiger"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message FROM DUAL")
 
    While Not rs.EOF
        Debug.Print rs(0).Name
        Debug.Print "-------------------"
        Debug.Print rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    cn.Close
End Sub

Option Explicit
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=MSDASQL;Driver={SQL Server};" & _
        "SERVER=(local);DATABASE=master;", _
        "sa", "P@ssW0rd"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")
 
    While Not rs.EOF
        Debug.Print rs(0).Name
        Debug.Print "-------------------"
        Debug.Print rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    cn.Close
End Sub

Option Explicit
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=MSDASQL;Driver={Microsoft ODBC for Oracle};Server=ORCL", _
        "scott", "tiger"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message FROM DUAL")
 
    While Not rs.EOF
        Debug.Print rs(0).Name
        Debug.Print "-------------------"
        Debug.Print rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    cn.Close
End Sub

Option Explicit
 
Sub Main()
    Dim cn
    Dim rs
 
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "PROVIDER=MSDASQL;Driver={MySQL ODBC 5.1 Driver};Server=localhost", _
        "root", "P@ssW0rd"
    Set rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")
 
    While Not rs.EOF
        Debug.Print rs(0).Name
        Debug.Print "-------------------"
        Debug.Print rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    cn.Close
End Sub

Message
-----------------
Hello, ADO World!

Option Explicit
 
Sub Main()
    Dim dbe
    Dim db
    Dim rs
 
    Set dbe = CreateObject("DAO.DBEngine.36")
    Set db = dbe.OpenDatabase("Hello.mdb")
    Set rs = db.OpenRecordset("SELECT 'Hello, DAO World!' AS Message")
 
    While Not rs.EOF
        Debug.Print rs(0).Name
        Debug.Print "-----------------"
        Debug.Print rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    db.Close
End Sub

Option Explicit
 
Sub Main()
    Dim dbe
    Dim db
    Dim rs
 
    Set dbe = CreateObject("DAO.DBEngine.120")
    Set db = dbe.OpenDatabase("Hello.accdb")
    Set rs = db.OpenRecordset("SELECT 'Hello, DAO World!' AS Message")
 
    While Not rs.EOF
        Debug.Print rs(0).Name
        Debug.Print "-----------------"
        Debug.Print rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    db.Close
End Sub

Option Explicit
 
Sub Main()
    Dim dbe
    Dim db
    Dim rs
 
    Set dbe = CreateObject("DAO.DBEngine.36")
    Set db = dbe.OpenDatabase("", False, False, _
        "ODBC;Driver={SQL Server};" & _
        "SERVER=(local);DATABASE=master;" & _
        "UID=sa;PWD=P@ssW0rd;")
    Set rs = db.OpenRecordset("SELECT 'Hello, DAO World!' AS Message")
 
    While Not rs.EOF
        Debug.Print rs(0).Name
        Debug.Print "-----------------"
        Debug.Print rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    db.Close
End Sub

Option Explicit
 
Const dbOpenSnapshot = 4
Const dbSQLPassThrough = 64
 
Sub Main()
    Dim dbe
    Dim db
    Dim rs
 
    Set dbe = CreateObject("DAO.DBEngine.36")
    Set db = dbe.OpenDatabase("", False, False, _
        "ODBC;Driver={Oracle in OraDb11g_home1};" & _
        "DBQ=ORCL;" & _
        "UID=scott;PWD=tiger;")
    Set rs = db.OpenRecordset("SELECT 'Hello, DAO World!' AS Message")
    ' パススルークエリの例（データベース側に依存する SQL を実行する場合）
    'Set rs = db.OpenRecordset("SELECT 'Hello, DAO World!' AS Message FROM DUAL", dbOpenSnapshot, dbSQLPassThrough)
 
    While Not rs.EOF
        Debug.Print rs(0).Name
        Debug.Print "-----------------"
        Debug.Print rs(0).Value
        rs.MoveNext
    Wend
 
    rs.Close
    db.Close
End Sub

Message
-----------------
Hello, DAO World!

[void][Reflection.Assembly]::LoadWithPartialName("Oracle.DataAccess")
$conStr = "Data Source=ORCL;User ID=scott;Password=tiger"
$sqlStr = "SELECT 'Hello, ADO.NET World!' AS Message FROM DUAL"
$con = New-Object Oracle.DataAccess.Client.OracleConnection($conStr)
$cmd = New-Object Oracle.DataAccess.Client.OracleCommand($sqlStr, $con)
$con.Open()
$reader = $cmd.ExecuteReader()
while ( $reader.read() )
{
    $reader.getName(0)
    "---------------------"
    $reader[0]
}
$con.Close()

C:¥> PowerShell -file Hello.ps1

MESSAGE
---------------------
Hello, ODP.NET World!

$conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=hello.mdb;"
$sqlStr = "SELECT 'Hello, ADO.NET World!' AS Message"
$con = New-Object System.Data.OleDb.OleDbConnection($conStr)
$cmd = New-Object System.Data.OleDb.OleDbCommand($sqlStr, $con)
$con.Open()
$reader = $cmd.ExecuteReader()
while ( $reader.read() )
{
    $reader.getName(0)
    "---------------------"
    $reader[0]
}
$con.Close()

$conStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=hello.accdb;"
$sqlStr = "SELECT 'Hello, ADO.NET World!' AS Message"
$con = New-Object System.Data.OleDb.OleDbConnection($conStr)
$cmd = New-Object System.Data.OleDb.OleDbCommand($sqlStr, $con)
$con.Open()
$reader = $cmd.ExecuteReader()
while ( $reader.read() )
{
    $reader.getName(0)
    "---------------------"
    $reader[0]
}
$con.Close()

$conStr = "SERVER=(local);DATABASE=master;UID=sa;PWD=P@ssW0rd"
$sqlStr = "SELECT 'Hello, ADO.NET World!' AS Message"
$con = New-Object System.Data.SqlClient.SqlConnection($conStr)
$cmd = New-Object System.Data.SqlClient.SqlCommand($sqlStr, $con)
$con.Open()
$reader = $cmd.ExecuteReader()
while ( $reader.read() )
{
    $reader.getName(0)
    "---------------------"
    $reader[0]
}
$con.Close()

[void][Reflection.Assembly]::LoadWithPartialName("System.Data.OracleClient")
$conStr = "Data Source=ORCL;User ID=scott;Password=tiger"
$sqlStr = "SELECT 'Hello, ADO.NET World!' AS Message FROM DUAL"
$con = New-Object System.Data.OracleClient.OracleConnection($conStr)
$cmd = New-Object System.Data.OracleClient.OracleCommand($sqlStr, $con)
$con.Open()
$reader = $cmd.ExecuteReader()
while ( $reader.read() )
{
    $reader.getName(0)
    "---------------------"
    $reader[0]
}
$con.Close()

[void][Reflection.Assembly]::LoadWithPartialName("System.Data.Odbc")
$conStr = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;UID=root;PWD=P@ssW0rd"
$sqlStr = "SELECT 'Hello, ADO.NET World!' AS Message"
$con = New-Object System.Data.Odbc.OdbcConnection($conStr)
$cmd = New-Object System.Data.Odbc.OdbcCommand($sqlStr, $con)
$con.Open()
$reader = $cmd.ExecuteReader()
while ( $reader.read() )
{
    $reader.getName(0)
    "---------------------"
    $reader[0]
}
$con.Close()

C:¥> powershell -file Hello.ps1

Message
---------------------
Hello, ADO.NET World!

open System;
open Oracle.DataAccess.Client;
 
let conStr = "Data Source=ORCL;User ID=scott;Password=tiger;"
let con = new OracleConnection(conStr)
let sqlStr = "SELECT 'Hello, ODP.NET World' AS Message FROM DUAL"
let cmd = new OracleCommand(sqlStr, con)
con.Open()
let reader = cmd.ExecuteReader()
while reader.Read() do
    printfn "%s" (reader.GetName(0))
    printfn "---------------------" 
    printfn "%s" (reader.GetString(0))
reader.Close()
con.Close()

C:¥> fsc -r:Oracle.DataAccess.dll Hello.fs

MESSAGE
---------------------
Hello, ODP.NET World!

open System;
open System.Data.OleDb;
 
let conStr = "Provider=Microsoft.Jet.OLEDB.4.0;
              Data Source=.hello.mdb;"
let con = new OleDbConnection(conStr)
let sqlStr = "SELECT 'Hello, ADO.NET World' AS Message"
let cmd = new OleDbCommand(sqlStr, con)
con.Open()
let reader = cmd.ExecuteReader()
while reader.Read() do
    printfn "%s" (reader.GetName(0))
    printfn "---------------------" 
    printfn "%s" (reader.GetString(0))
reader.Close()
con.Close()

open System;
open System.Data.OleDb;
 
let conStr = "Provider=Microsoft.ACE.OLEDB.12.0;
              Data Source=.hello.accdb;"
let con = new OleDbConnection(conStr)
let sqlStr = "SELECT 'Hello, ADO.NET World' AS Message"
let cmd = new OleDbCommand(sqlStr, con)
con.Open()
let reader = cmd.ExecuteReader()
while reader.Read() do
    printfn "%s" (reader.GetName(0))
    printfn "---------------------" 
    printfn "%s" (reader.GetString(0))
reader.Close()
con.Close()

open System;
open System.Data.SqlClient;
 
let conStr = "SERVER=(local);
               DATABASE=master;
               UID=sa;PWD=P@ssW0rd;"
let con = new SqlConnection(conStr)
let sqlStr = "SELECT 'Hello, ADO.NET World' AS Message"
let cmd = new SqlCommand(sqlStr, con)
con.Open()
let reader = cmd.ExecuteReader()
while reader.Read() do
    printfn "%s" (reader.GetName(0))
    printfn "---------------------" 
    printfn "%s" (reader.GetString(0))
reader.Close()
con.Close()

open System;
open System.Data.OracleClient;
 
let conStr = "Data Source=ORCL;User ID=scott;Password=tiger;"
let con = new OracleConnection(conStr)
let sqlStr = "SELECT 'Hello, ADO.NET World' AS Message FROM DUAL"
let cmd = new OracleCommand(sqlStr, con)
con.Open()
let reader = cmd.ExecuteReader()
while reader.Read() do
    printfn "%s" (reader.GetName(0))
    printfn "---------------------" 
    printfn "%s" (reader.GetString(0))
reader.Close()
con.Close()

open System;
open System.Data.Odbc;
 
let conStr = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;UID=root;PWD=P@ssW0rd"
let con = new OdbcConnection(conStr)
let sqlStr = "SELECT 'Hello, ADO.NET World' AS Message"
let cmd = new OdbcCommand(sqlStr, con)
con.Open()
let reader = cmd.ExecuteReader()
while reader.Read() do
    printfn "%s" (reader.GetName(0))
    printfn "---------------------" 
    printfn "%s" (reader.GetString(0))
reader.Close()
con.Close()

C:¥> fsc Hello.fs --platform:x86

C:¥> fsc Hello.fs

Message
---------------------
Hello, ADO.NET World!

import System;
import System.Data;
import System.Drawing;
import Oracle.DataAccess.Client;
 
main();
 
function main() {
    var conStr = "Data Source=ORCL;User ID=scott;Password=tiger;";
    var sqlStr = "SELECT 'Hello, ODP.NET World!' AS Message FROM DUAL";
 
    var con = new OracleConnection(conStr);
    var cmd = new OracleCommand(sqlStr, con);
    con.Open();
    var reader = cmd.ExecuteReader();
    while( reader.Read() )
    {
        Console.WriteLine( reader.GetName(0) );
        Console.WriteLine( "---------------------" );
        Console.WriteLine( reader[0] );
    }
    reader.Close();
    con.Close();
}

C:¥> jsc /r:<ORA_HOME>odp.netbin2.xOracle.DataAccess.dll Hello.js

MESSAGE
---------------------
Hello, ODP.NET World!