Perl连接SQL2005

      这篇文章主要介绍怎么通过perl 的DBI 模块来操作sql 数据库。本文假设你已经了解了SQL的基本用法和perl 语言。

 一      perl下如何连接sql。

DBI下有很多方法都可以连接到sql， 本例介绍的方法只是其中的一种，它使用的是ODBC。读者可以尝试使用mysql等。实例如下：

se DBI;
use DBD::ODBC;

$username = 'sa';
$password = '';
$database = 'Build';
$hostname = 'SHACNG82702Q0';

my $dnsSql = qq/DRIVER={SQL Server}; Server=$hostname; database=$database; uid=$username; pwd=$password;/;
my $dbh = DBI->connect("DBI:ODBC:$dnsSql") or die "Can't connect to $dnsSql:$DBI::errstr";

 

二      接下来看如何创建一个表以及表的相关insert， update， delete等操作。

      1  建立一个表：

$SQL= "create table [user](ID integer primary key identity(1, 1), username text not null, password text not null, email text not null)";

$CreateTable = $dbh->do($SQL);

 

      2   insert update和delete

$SQL= "insert into [user] (username, password, email) values('lexxwern', 'password', 'email@host')";
$InsertRecord = $dbh->do($SQL);

$SQL= "update [user] set email = 'lexxwern@yahoo.com' where username = 'lexxwern'";
$UpdateRecord = $dbh->do($SQL);

$SQL= "delete from [user] where ID=1";
$DeleteRecord = $dbh->do($SQL);

 

      3  读取数据：

$SQL= "select * from [user]";

$Select = $dbh->prepare($SQL);
$Select->execute();

while($Row=$Select->fetchrow_hashref)
{
  print "$Row->{username} $Row->{email}";
}

 

--- END