2011年8月3日 星期三

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();

沒有留言:

張貼留言