CX's Hello, World!

import win32com.client
 
cn = win32com.client.Dispatch('ADODB.Connection')
cn.Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.hello.mdb" )
rs = cn.Execute( "SELECT 'Hello, ADO World!' AS Message" )[0]
while not rs.EOF:
    print rs.Fields(0).Name
    print "-------------------"
    print rs.Fields(0).Value
    rs.MoveNext()
 
rs.Close()
cn.Close()

import win32com.client
 
cn = win32com.client.Dispatch('ADODB.Connection')
cn.Open( "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=.hello.accdb" )
rs = cn.Execute( "SELECT 'Hello, ADO World!' AS Message" )[0]
while not rs.EOF:
    print rs.Fields(0).Name
    print "-------------------"
    print rs.Fields(0).Value
    rs.MoveNext()
 
rs.Close()
cn.Close()

import win32com.client
 
cn = win32com.client.Dispatch('ADODB.Connection')
cn.Open( "Provider=SQLOLEDB;SERVER=(local);DATABASE=master", "sa", "P@ssW0rd" )
rs = cn.Execute( "SELECT 'Hello, ADO World!' AS Message" )[0]
while not rs.EOF:
    print rs.Fields(0).Name
    print "-------------------"
    print rs.Fields(0).Value
    rs.MoveNext()
 
rs.Close()
cn.Close()

import win32com.client
 
cn = win32com.client.Dispatch('ADODB.Connection')
cn.Open( "Provider=MSDAORA;Data Source=ORCL", "scott", "tiger" )
rs = cn.Execute( "SELECT 'Hello, ADO World!' AS Message FROM DUAL" )[0]
while not rs.EOF:
    print rs.Fields(0).Name
    print "-------------------"
    print rs.Fields(0).Value
    rs.MoveNext()
 
rs.Close()
cn.Close()

C:¥> python hello.py

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

import MySQLdb
 
cn = MySQLdb.connect(db="test", host="127.0.0.1", port=3306, user="root", passwd="P@ssW0rd")
cur = cn.cursor()
cur.execute("SELECT 'Hello, DB API World!' AS Message")
rows = cur.fetchall()
 
for row in rows:
    print "Message"
    print "-------------------"
    print row[0]
 
cur.close()
cn.close()

C:¥> python hello.py

Message
-----------------
Hello, DB API World!

require 'rubygems'
require "dbi"
dbh = DBI.connect("DBI:ODBC:Driver={SQL Server};Server=(local);DATABASE=master", "sa", "P@ssW0rd")
sth = dbh.prepare("SELECT 'Hello, DBI World' AS Message")
sth.execute()
while row = sth.fetch do
    print "Message", "n";
    print "-------------------n";
    print row[0]
end
sth.finish
dbh.disconnect

C:¥> gem install dbi
C:¥> gem install dbd-odbc

C:/ruby-1.8/lib/ruby/gems/1.8/gems/dbi-0.4.5/lib/dbi.rb:300:in `load_driver': Unable to load driver 'ODBC' (underlying error: uninitialized constant DBI::DBD::ODBC) (DBI::InterfaceError)
        from C:/ruby-1.8/lib/ruby/1.8/monitor.rb:242:in `synchronize'
        from C:/ruby-1.8/lib/ruby/gems/1.8/gems/dbi-0.4.5/lib/dbi.rb:242:in `load_driver'
        from C:/ruby-1.8/lib/ruby/gems/1.8/gems/dbi-0.4.5/lib/dbi.rb:160:in `_get_full_driver'
        from C:/ruby-1.8/lib/ruby/gems/1.8/gems/dbi-0.4.5/lib/dbi.rb:145:in `connect'
        from hello.rb:3

C:¥> ruby hello.rb

Message
-----------------
Hello, DBI World!

require 'win32ole'
 
cn = WIN32OLE.new("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\Hello.mdb"
rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")
 
while !rs.EOF
    print rs.Fields[0].name + "n"
    print "-------------------n"
    print rs.Fields[0].value + "n"
    rs.MoveNext
end
 
rs.Close
cn.Close

require 'win32ole'
 
cn = WIN32OLE.new("ADODB.Connection")
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=.\Hello.accdb"
rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")
 
while !rs.EOF
    print rs.Fields[0].name + "n"
    print "-------------------n"
    print rs.Fields[0].value + "n"
    rs.MoveNext
end
 
rs.Close
cn.Close

require 'win32ole'
 
cn = WIN32OLE.new("ADODB.Connection")
cn.Open "Provider=SQLOLEDB;SERVER=(local);DATABASE=master", "sa", "P@ssW0rd"
rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")
 
while !rs.EOF
    print rs.Fields[0].name + "n"
    print "-------------------n"
    print rs.Fields[0].value + "n"
    rs.MoveNext
end
 
rs.Close
cn.Close

require 'win32ole'
 
cn = WIN32OLE.new("ADODB.Connection")
cn.Open "Provider=MSDAORA;Data Source=ORCL", "scott", "tiger"
rs = cn.Execute("SELECT 'Hello, ADO World!' AS Message")
 
while !rs.EOF
    print rs.Fields[0].name + "n"
    print "-------------------n"
    print rs.Fields[0].value + "n"
    rs.MoveNext
end
 
rs.Close
cn.Close

C:¥> ruby hello.rb

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

require "dbi"
dbh = DBI.connect("dbi:Mysql:test:localhost", "root", "P@ssW0rd")
sth = dbh.prepare("SELECT 'Hello, DBI World' AS Message")
sth.execute()
while row = sth.fetch do
    print "Message", "n";
    print "-------------------n";
    print row[0]
end
sth.finish
dbh.disconnect

C:¥> gem install dbi
C:¥> gem install dbd-mysql

C:¥> ruby hello.rb

Message
-----------------
Hello, DBI World!

use strict;
use Win32::ODBC;
 
my $db = Win32::ODBC->new('Driver={SQL Server};Server=(local);UID=sa;PWD=P@ssW0rd');
$db->Sql("SELECT 'Hello, ODBC World' AS Message");
 
while ($db->FetchRow) {
    my %row = $db->DataHash;
    print "Message", "n";
    print "-------------------n";
    print $row{Message}, "n";
}
$db->Close();

use strict;
use Win32::ODBC;
 
my $db = Win32::ODBC->new('Driver={MySQL ODBC 5.1 Driver};Server=localhost;UID=root;PWD=P@ssW0rd');
$db->Sql("SELECT 'Hello, ODBC World' AS Message");
 
while ($db->FetchRow) {
    my %row = $db->DataHash;
    print "Message", "n";
    print "-------------------n";
    print $row{Message}, "n";
}
$db->Close();

C:¥> perl hello.pl

Message
------------------
Hello, ODBC World!

use strict;
use Win32::OLE;
 
my $cn = Win32::OLE->new("ADODB.Connection");
$cn->Open( "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=.\hello.mdb" );
my $rs = $cn->Execute( "SELECT 'Hello, ADO World!' AS Message" );
 
while ( !$rs->EOF ) {
    print $rs->Fields(0)->{Name}, "n";
    print "-------------------n";
    print $rs->Fields(0)->{Value}, "n";
   $rs->MoveNext();
}
 
$rs->Close();
$cn->Close();

use strict;
use Win32::OLE;
 
my $cn = Win32::OLE->new("ADODB.Connection");
$cn->Open( "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=.\hello.accdb" );
my $rs = $cn->Execute( "SELECT 'Hello, ADO World!' AS Message" );
 
while ( !$rs->EOF ) {
    print $rs->Fields(0)->{Name}, "n";
    print "-------------------n";
    print $rs->Fields(0)->{Value}, "n";
   $rs->MoveNext();
}
 
$rs->Close();
$cn->Close();

use strict;
use Win32::OLE;
 
my $cn = Win32::OLE->new("ADODB.Connection");
$cn->Open( "PROVIDER=SQLOLEDB;SERVER=(local);DATABASE=master", "sa", "P@ssW0rd" );
my $rs = $cn->Execute( "SELECT 'Hello, ADO World!' AS Message" );
 
while ( !$rs->EOF ) {
    print $rs->Fields(0)->{Name}, "n";
    print "-------------------n";
    print $rs->Fields(0)->{Value}, "n";
   $rs->MoveNext();
}
 
$rs->Close();
$cn->Close();

use strict;
use Win32::OLE;
 
my $cn = Win32::OLE->new("ADODB.Connection");
$cn->Open( "PROVIDER=MSDAORA;Data Source=ORCL", "scott", "tiger" );
my $rs = $cn->Execute( "SELECT 'Hello, ADO World!' AS Message FROM DUAL" );
 
while ( !$rs->EOF ) {
    print $rs->Fields(0)->{Name}, "n";
    print "-------------------n";
    print $rs->Fields(0)->{Value}, "n";
   $rs->MoveNext();
}
 
$rs->Close();
$cn->Close();

C:¥> perl hello.pl

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

use strict;
use DBI;
 
my $dbh = DBI->connect('dbi:ODBC:Driver={SQL Server};Server=(local)', 'sa', 'P@ssW0rd');
my $sth = $dbh->prepare("SELECT 'Hello, DBI World' AS Message");
$sth->execute();
 
while (my $row = $sth->fetchrow_array) {
    print "Message", "n";
    print "-------------------n";
    print $row, "n";
}
$sth->finish();
$dbh->disconnect();

use strict;
use DBI;
 
my $dbh = DBI->connect('dbi:mysql:test', 'root', 'P@ssW0rd');
my $sth = $dbh->prepare("SELECT 'Hello, DBI World' AS Message");
$sth->execute();
 
while (my $row = $sth->fetchrow_array) {
    print "Message", "n";
    print "-------------------n";
    print $row, "n";
}
$sth->finish();
$dbh->disconnect();

C:¥> perl hello.pl

Message
-----------------
Hello, DBI World!

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!