- 连接实例
- 显示sql结果实例
模块名称
DBI
一、连接实例
my $sql = qw{ sql }; my $dbh = DBI->connect("DBI:数据库类型:database=数据库名称;host=localhost","root","passwd", {'RaiseError' => 1}); my $sth=$dbh->prepare("$sql"); $sth->execute(); $sth->finish; $dbh->disconnect();
my $sql = qw{ sql };
声明要执行的sql语句
my $dbh = DBI->connect("DBI:数据库类型:database=数据库名称;host=localhost","root","passwd", {'RaiseError' => 1});
连接数据库,数据库类型为mysql、Oracle、db2.root,passwd对应登录账号密码
my $sth=$dbh->prepare("$sql");
准备执行之前声明的sql语句
$sth->execute();
执行sql语句
$sth->finish;
执行完毕
$dbh->disconnect();
断开数据库
二、显示sql结果实例
my $sql = shift; my $dbh = DBI->connect("DBI:数据库类型:database=数据库名称;host=localhost","root","passwd", {'RaiseError' => 1}); my $sth=$dbh->prepare("$sql"); $sth->execute(); while (my @now = $sth->fetchrow_array()) { print @now; } $sth->finish; $dbh->disconnect();
增加一$sth->fetchrow_array()即可
更多操作请移步至