基本功能
建立连线
选项
下达SQL
进阶功能
SELECT述
高等技巧
交易机制
注意事项
其他资讯
本文是以PerlDBIExamples为蓝本,配合DBMaker好学易用的特性,以及几个浅显易懂的例子,希望能够一步步地带领使用者学习PerlDBImodules存取DBMaker资料库的方法。而原作者撰写主要原动力是希望藉由这篇文章的问世,以降低DBImailinglist中一再重出现的FAQ。
读完本文之後,我们就能学到利用DBI建立一个完备的资料库程式。以下就先由DBI的基本功能开始,然後再逐步研究改善效能与可靠度技巧。
基本功能
DBI-DatabaseindependentinterfaceforPerl.PerlDBI是Perl程式语言存取资料库时的标准应用程式介面(API)。DBI中定义了一组函数、变数和一致性的资料库介面,可满足与特定资料库无关的特性。
值得一提的,DBI只是一个程式介面,利用一组十分轻巧的层面,将你的应用程式与一个以上的资料库驱动程式紧密地结合在一起,DBI的架构主要只是提供标准的介面,目的是为了方便使用者下达一些简单的指令,就可以轻易地让那些驱动程式发挥作用
首先该做的事就是建构以及安装DBI,详细的步骤可参考DBIINSTALL文件中有说明.然後再来就是建构出所需的资料库驱动程式,或是参考DBD.在每个DBD套件中都应该会有建构程序。与其他Perl模组相较之下,安装DBI/DBD步骤算是相当容易
localhost:~/DBI-1.08$perlMakefile.PL&&make
&&maketest&&makeinstall
在DBI与DBD安装完成之後,您可以执行下列指令阅读更多的资讯:
localhost:~$perldocDBI
建立连线
每一种资料库都有不同的连线方式,若是想知道特殊用法,请务必阅读DBD所提供的说明文件。下面的例子是连线到DBMaker的基本方法.
usestrict;
useDBI;
my$dbh=DBI->connect(''dbi:DBMaker:dbsample'',
''jerry'',
''jerrypassword'',
);
上述的connect函数用到了三个参数:资料来源名称(datasourcename,DSN),使用者名称和密码。其中DSN的格式为dbi:DriverName:instance.不过我们要如何知道连线成不成功呢?首先可以查看connect的传回值,true代表成功,false就是代表失败。其次,当有错误发生时,DBI会把错误讯息存放在packagevariable$DBI::errstr之中。
usestrict;
useDBI;
my$dbh=DBI->connect(''dbi:DBMaker:dbsample'',
''jerry'',
''jerrypassword'',
)
||die"Databaseconnectionnotmade:$DBI::errstr";
$dbh->disconnect();
结束资料库连线请使用disconnect()函数,正确地使用可避免错误讯息"Databasehandledestroyedwithoutexplicitdisconnect"的发生.
选项
在连线资料库时connect()这个方法可以接受hash型态的选项,常用的选项包括了:AutoCommit,设为true表示资料库交易自动确认;RaiseError,告诉DBI在错误发生时触发例外croak$DBI::errstr而不只是仅传回错误代码;PrintError,让DBI以警告方式warn$DBI::errstr传回错误讯息.
在下一段程式中,是希望进行采交易处理的用法,设定成AutoCommitoff,RaiseErroron,而让PrintError使用内定值on.
usestrict;
useDBI;
my$dbh=DBI->connect(''dbi:DBMaker:dbsample'',
''jerry'',
''jerrypassword'',
{
RaiseError=>1,
AutoCommit=>0
}
)
||die"Databaseconnectionnotmade:$DBI::errstr";
$dbh->disconnect();
有一点要特别注意,如果资料库本身不支援交易处理的功能时,设定AutoCommitoff会接收到错误发生的传回值.
下达SQL
现在开始可以对我们的资料库做一些有意义的事了.下达至资料库的SQL述分成两类.一是查询指令,预期会有数笔资料传回,例如SELECT,这一类的指令我们会使用prepare方法.另一类的指令,如CREATE和DELETE,我们会使用do方法.我们先看看後者如何使用.
这一段程式示在资料库中建立一个员工资料表格的方法.
usestrict;
useDBI;
my$dbh=DBI->connect(''dbi:DBMaker:dbsample'',
''jerry'',
''jerrypassword'',
{
Ra
