Perl ODBC example in Windows

參考 http://www.roth.net/perl/odbc/docs/object/

use Win32::ODBC;

$DSN = "DSN= MyDSN;UID=user_id;PWD=password;";

$DBH = new Win32::ODBC($DSN);

$DBH->sql("select * from Database.dbo.Table");

while ($DBH->FetchRow()) {

      @result = $DBH->Data();

      print "$result[0], $result[1]\n";

}

$DBH->Close();