建立與數據庫的連接

- 中國WEB開發者網絡 (http://www.webasp.net)
-- 技術教程 (http://www.webasp.net/article/)
--- 建立與數據庫的連接 (http://www.webasp.net/article/8/7770.htm)

-- 作者：未知
-- 發佈日期： 2003-09-13

我們使用DBI之前首先需要聲明：

#!/usr/bin/perl -w

use DBI;

我們有兩種方法可以建立PERL與數據庫之間的連接：

#!/usr/bin/perl -w

use DBI;

#建立與數據庫的連接，第4個參數標明數據庫類型

$dbh = DBI->connect( 'connection_string'， 'username'， 'password'， 'mSQL' );

if ( !defined $dbh ) {

die "Cannot do \$dbh->connect: $DBI::errstr\n";

}

通過這種方法，返回一個數據庫句柄。這是一種常用的用法，另外一種方法返回「驅動程序句柄」：

#!/usr/bin/perl -w

use DBI;

$drh = DBI->install_driver( 'mSQL' );

if ( !defined $drh ) {

die "Cannot load driver: $!\n";

}

這種方法多用來檢查是否系統中是否存在某種驅動程序。

以下是一些利用DBI處理數據庫的歷程：

1、打開連接（數據庫）已經關閉

#!/usr/bin/perl -w

#

# (c)1996 Alligator Descartes <descarte@hermetica.com>

#

# inout.pl: Connects and disconnects from a specified database

use DBI;

if ( $#ARGV < 0 ) {

die "Usage: inout.pl <Database String> <Database Vendor>\n";

}

# Create new database handle. If we can't connect， die()

$dbh = DBI->connect( ''， $ARGV[0]， ''， $ARGV[1] );

if ( !defined $dbh ) {

die "Cannot connect to mSQL server: $DBI::errstr\n";

}

# Disconnect from the database

$dbh->disconnect;

exit;

webasp.net