先安裝需用到的 module
#ppm-shell
#install DBI
#install DBD-ODBC
PERL:
-
#!/usr/bin/perl -w
-
use strict; # 使用變數前一定要定義
-
use DBI; # 使用DBI模組, 連結資料庫
-
use DBD::ODBC;
-
-
my $server='localhost\SQLEXPRESS';
-
my $database="your_db";
-
my $user="sa";
-
my $password="123456";
-
my $DSN = "driver={SQL Server};Server=$server;database=$database;uid=$user;pwd=$password;";
-
my $dbh = DBI->connect("dbi:ODBC:$DSN", { RaiseError => 1, AutoCommit => 1 }) || die "Can't connect: $DBI::errstr\n";
-
-
# 執行 sql 敘述
-
my $sql_statement = "select * from user_data";
-
my $sth = $dbh->prepare($sql_statement) || die "Can't prepare the SQL statement: $DBI::errstr\n";
-
-
# 顯示欄位名稱
-
print "$sth->{NAME}->[0]\n";
-
print "$sth->{NAME}->[1]\n";
-
print "$sth->{NAME}->[2]\n";
-
print "$sth->{NAME}->[3]\n";
-
-
# 讀取紀錄
-
#while (my @row = $sth->fetchrow_array)
-
#{
-
# print "@row\n";
-
#}
-
-
while(my $ref = $sth->fetchrow_hashref())
-
{
-
{
-
print "$field: $ref->{ $field }\n";
-
}
-
}
-
-
# 刪除資料物件,關閉連線
-
$sth->finish;
-
$dbh->disconnect;
Tags: Perl