Archive for 9月 20th, 2012

  1. Hello, ODBC(Perl) World!

    Posted on 9月 20th, 2012 by cx20

    ODBC

    ODBC（Open Database Connectivity）は、マイクロソフト社が提唱した DBMS 接続用の API 仕様である。
    DBMS の差異は ODBC ドライバによって吸収される為、ODBC の手順にしたがってプログラムを作成すれば、基本的な差異を意識せず、プログラムすることができる。

    ODBCドライバ ファイル
    Microsoft Access Driver (*.mdb) ODBCJT32.DLL
    Microsoft Text Driver (*.txt; *.csv) ODBCJT32.DLL
    Microsoft Excel Driver (*.xls) ODBCJT32.DLL
    Microsoft dBase Driver (*.dbf) ODBCJT32.DLL
    Microsoft ODBC for Oracle MSORCL32.DLL
    Microsoft Paradox Driver (*.db ) ODBCJT32.DLL
    SQL Server SQLSRV32.DLL
    Microsoft Access Driver (*.mdb, *.accdb) ACEODBC.DLL
    SQL Server Native Client 10.0 SQLNCLI10.DLL

    ソースコード（Perl + ODBC + SQL Server）

    hello.pl
    raw download
    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();

    ソースコード（Perl + ODBC + MySQL）

    hello.pl
    raw download
    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();

    実行方法（Windows）

    C:¥> perl hello.pl

    実行結果

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