DB2 Version 9.7 for Linux, UNIX, and Windows

Perl でのデータベース接続

DBD::DB2 ドライバーは、DBI API によって定義された標準データベース接続機能のサポートを提供します。

Perl が DBI モジュールをロードできるようにするには、アプリケーションに次の行を含める必要があります。

   use DBI;

DBI モジュールは、DBI->connect ステートメントを使用してデータベース・ハンドルを作成すると、 DBD::DB2 ドライバーを自動的にロードします。以下の構文を使用します。

   my $dbhandle = DBI->connect('dbi:DB2:dsn', $userID, $password);

詳細は次のとおりです。

$dbhandle

connect ステートメントが戻すデータベース・ハンドル。

dsn

(ローカル接続用) DB2® データベース・ディレクトリーにカタログされている DB2 別名

(リモート接続用) リモート・ホストへの接続のためのホスト名、ポート番号、プロトコル、ユーザー ID、およびパスワードを含む、完全な接続ストリング

$userID

データベースへの接続で使用するユーザー ID

$password

データベースへの接続で使用するユーザー ID のパスワード

DBI API について詳しくは、http://search.cpan.org/~timb/DBI/DBI.pmを参照してください。

例

例 1: ローカル・ホスト上のデータベースに接続します (クライアントとサーバーが同じワークステーション上にあります)

use DBI;

$DATABASE = 'dbname';
$USERID = 'username';
$PASSWORD = 'password';

my $dbh = DBI->connect("dbi:DB2:$DATABASE", $USERID, $PASSWORD, {PrintError => 0})
or die "Couldn't connect to database: " . DBI->errstr;

$dbh->disconnect;

例 2: リモート・ホスト上のデータベースに接続します (クライアントとサーバーが別々のワークステーション上にあります)

use DBI;

$DSN="DATABASE=sample; HOSTNAME=host; PORT=60000; PROTOCOL=TCPIP; UID=username; 
PWD=password";

my $dbh = DBI->connect("dbi:DB2:$DSN", $USERID, $PASSWORD, {PrintError => 0})
or die "Couldn't connect to database: " . DBI->errstr;

$dbh->disconnect;