2.6 在其他语言中调用PL/SQL
Oracle PL/SQL程序设计（第5版）
总有一天，你会在从C、Java、Perl、PHP或其他语言中调用PL/SQL。虽然这是一个很合理的需求，如果你曾经做过跨语言的开发工作，你一定熟知要把各种语言专有的数据类型糅合在一起─尤其是那些复合数据类型，比如数组、记录或者对象类型─的复杂性，更不用说不同的参数语法或者厂商对所谓“标准”应用编程接口（API）的扩展，比如微软的ODBC（Open Database Connectivity）。
我会用几个简短的例子演示一下如何从外部调用PL/SQL程序。假设我写一个PL/SQL函数，这个函数接收一个字符串类型的ISBN参数，然后返回对应的图书名称：
/ File on web: booktitle.fun /
FUNCTION booktitle (isbn_in IN VARCHAR2)
RETURN VARCHAR2
IS
l_title books.title%TYPE;
CURSOR icur IS SELECT title FROM books WHERE isbn = isbn_in;
BEGIN
OPEN icur;
FETCH icur INTO l_title;
CLOSE icur;
RETURN l_title;
END;
如果是在SQL/Plus中，我可以用好几种方法来调用它，最短代码的方式可能是这样的：
SQL> EXEC DBMS_OUTPUT.PUT_LINE(booktitle('0-596-00180-0'))
Learning Oracle PL/SQL
PL/SQL procedure successfully completed.
接下来看该如何在下面这些环境中调用这个函数：
C语言、使用Oracle的Pro*C；
Java语言，使用JDBC；
Perl，使用Perl DBI和DBD::Oracle；
PHP；
PL/SQL Server Pages。
这些例子纯粹是演示性的——比如，用户名和密码都是硬编码的，程序也仅仅是显示输出。而且，我也不会解释每一行代码。这些例子只是要让你了解，不同的语言环境中会遇到的问题模式。
2.6.1 C:使用Oracle的预编译器（Pro*C）
Oracle至少提供了两种不同的C语言接口：一个叫做OCI（Oracle Call Interface），这主要是科学家的领域，另一个就是ProC。OCI提供了上百个函数，就算只是一个SQL查询请求，也需要编写像打开、解析、绑定、定义、执行、提取结果等这些低层次的代码。即便是最简单的OCI程序也需要近200行长的代码，我还是演示一个ProC的例子吧。Pro*C是一个预编译的技术，你可以编写一个同时包括C、SQL、PL/SQL的混合源代码文件。通过在Oracle的proc程序中运行下面代码，输出的是C代码。
/ File on web: callbooktitle.pc /
#include <stdio.h>
#include <string.h>
EXEC SQL BEGIN DECLARE SECTION;
VARCHAR uid[20];
VARCHAR pwd[20];
VARCHAR isbn[15];
VARCHAR btitle[400];
EXEC SQL END DECLARE SECTION;
EXEC SQL INCLUDE SQLCA.H;
int sqlerror();
int main()
{
/ VARCHARs actually become a struct of a char array and a length /
strcpy((char *)uid.arr,"scott");
uid.len = (short) strlen((char *)uid.arr);
strcpy((char *)pwd.arr,"tiger");
pwd.len = (short) strlen((char *)pwd.arr);
/ this is a cross between an exception and a goto /
EXEC SQL WHENEVER SQLERROR DO sqlerror();
/ connect and then execute the function /
EXEC SQL CONNECT :uid IDENTIFIED BY :pwd;
EXEC SQL EXECUTE
BEGIN
:btitle := booktitle('0-596-00180-0');
END;
END-EXEC;
/ show me the money /
printf("%s\n", btitle.arr);
/ Disconnect from ORACLE. /
EXEC SQL COMMIT WORK RELEASE;
exit(0);
}
sqlerror()
{
EXEC SQL WHENEVER SQLERROR CONTINUE;
printf("\n% .70s \n", sqlca.sqlerrm.sqlerrmc);
EXEC SQL ROLLBACK WORK RELEASE;
exit(1);
}
正像你看到的那样，ProC并不是一个追求纯粹的语言家所支持的，你也不想和这种方式生成的C代码搅合在一起。然而，很多企业发现ProC（或者像Pro*Cobol等Oracle支持的语言）是位于像Visual Basic（太笨重和缓慢的一个语言）和OCI（太难了）中间的一个比较合适的选择。
从Oracle自己的文档中，可以找到关于Pro*C的最好信息。
2.6.2 Java：使用JDBC
就像对C语言一样，Oracle对于Java开发也提供了几种连接到数据库的方法。其中嵌入的SQL方法叫做SQLJ，和Oracle的其他预编译技术类似，是调试器友好的。另一种更流行的和专门针对Java的技术叫做JDBC，名字其实不能代表任何东西，不过经常被解释成“Java Database Connectivity”。
/ File on web: Book.java /
import java.sql.*;
public class Book
{
public static void main(String[] args) throws SQLException
{
//初始化驱动，然后尝试创建一个连接
DriverManager.registerDriver (new oracle.jdbc.driver.OracleDriver ());
Connection conn =
DriverManager.getConnection("jdbc:oracle:thin:@localhost:1521:o92",
"scott", "tiger");
// prepareCall中使用了ANSI92的“call”语法
CallableStatement cstmt = conn.prepareCall("{? = call booktitle(?)}");
// 设置绑定变量和参数
cstmt.registerOutParameter(1, Types.VARCHAR);
cstmt.setString(2, "0-596-00180-0");
// 现在执行语句，得到结果，关闭连接，打印结果
cstmt.executeUpdate();
String bookTitle = cstmt.getString(1);
conn.close();
System.out.println(bookTitle);
}
}
这个例子使用的是瘦驱动（Thin Driver），这种驱动除了有些通讯性能上有些开销外，还是有很好的兼容性和易于安装的（在Java的库中已经包括了所有网络协议）。另一种方法是使用OCI驱动，不过别担心，还没有那些编程需要用到它，除了它的名字。
2.6.3 Perl：使用Perl DBI和DBD::Oracle
Perl可以说是所有开源语言之母，也是许多系统管理社区最偏爱的。现在的版本是5.10，基本上它可以完成任何任务，可以在任何地方运行。并且它有一个漂亮的自动配置工具CPAN（Comprehensive Perl Archive Network），它是社区提供的模块的安装纽带，比如DBI（DataBase Interface）和对应的Oracle驱动DBD::Oracle。
/ File on web: callbooktitle.pl /
#!/usr/bin/perl
use strict;
use DBI qw(:sql_types);
# either make the connection or die
my $dbh = DBI->connect(
'dbi:Oracle:o92',
'scott',
'tiger',
{
RaiseError => 1,
AutoCommit => 0
}
) || die "Database connection not made: $DBI::errstr";
my $retval;
# make parse call to Oracle, get statement handle
eval {
my $func = $dbh->prepare(q{
BEGIN
:retval := booktitle(isbn_in => :bind1);
END;
});
# bind the parameters and execute
$func->bind_param(":bind1", "0-596-00180-0");
$func->bind_param_inout(":retval", \$retval, SQL_VARCHAR);
$func->execute;
};
if( $@ ) {
warn "Execution of stored procedure failed: $DBI::errstr\n";
$dbh->rollback;
} else {
print "Stored procedure returned: $retval\n";
}
# don't forget to disconnect
$dbh->disconnect;
Perl属于那种为了追求简单，不惜牺牲阅读性的语言。Perl不是一个特别快速和小巧的语言，不过还是有些编译版本至少能够解决速度的问题。
更多关于Perl和Oracle的信息，可以参考Alligator Descartes的Programming the Perl DBI（O’Reilly出品）。还有许多关于Perl语言优秀的书籍，包括在线信息http://www.perl.com（一个属于O’Reilly的站点）、http://www.perl.org和http://www.cpan.org。
2.6.4 PHP：使用Oracle扩展
如果你属于使用免费的并且广为流行的Web服务器Apache一族，你可能也会乐意使用同样免费并且广为流行的编程语言PHP。PHP除了可以用于构建动态网页，也可以用于构建GUI应用，或者命令行方式的程序。正如你所期待的，Oracle是可以和PHP一起工作的数据库之一。实际上Oracle公司是Zend的合作伙伴，以提供一个带有PHP的Oracle数据库发行版1。
下面的例子使用了PHP中被称作OCI8的函数家族，不要让这个名字中的8把你愚弄了，其实它可以和从Oracle 7到Oracle 11g的各个版本一起工作。
/ File on web: callbooktitle.php /
<?PHP
// Initiate the connection to the o92 database
$conn = OCILogon ("scott", "tiger", "o92");
// Make parse call to Oracle, get statement identity
$stmt = OCIParse($conn,
"begin :res := booktitle('0-596-00180-0'); end;");
// Show any errors
if (!$stmt) {
$err = OCIError();
echo "Oops, you broke it: ".$err["message"];
exit;
}
// Bind 200 characters of the variable $result to placeholder :res
OCIBindByName($stmt, "res", &$result, 200);
// Execute
OCIExecute($stmt);
// Stuff the value into the variable
OCIResult($stmt,$result);
// Display on stdout
echo "$result\n";
// Relax
OCILogoff($conn);
?>
要在命令行运行这个命令，应该这样：
$ php callbooktitle.php
Learning Oracle PL/SQL
需要说明的是，缺省情况下这些OCI函数在PHP中是没有的，不过让系统管理员重构一个带有Oracle扩展的PHP并不困难。
更多关于PHP的信息，请看http://www.php.net或者随便一本Oracle出版的关于这个主题的图书。关于PHP针对Oracle的技巧，请访问Oracle Technology Network网站（http://otn.oracle.cm）。
2.6.5 PL/SQL Server Pages
尽管PL/SQL Server Pages（PSP）环境是Oracle专有的，我觉得还是应该提一下，因为这是一个快速的运行Web页面的方法。PSP是另一种预编译技术，它让你可以在HTML页面中嵌入PL/SQL代码。
/ File on web: favorite_plsql_book.psp /
<%@ page language="PL/SQL" %>
<%@ plsql procedure="favorite_plsql_book" %>
<HTML>
<HEAD>
<TITLE>My favorite book about PL/SQL</TITLE>
</HEAD>
<BODY>
<%= booktitle( '0-596-00180-0') %>
</BODY>
</HTML>
<%= %>块意味着“把这一部分当作PL/SQL代码处理，然后把结果返回给页面”。如果正确的安装到Web服务器上并连接到Oracle数据库，这个页面的效果如图2-3所示。
就快速地整合数据驱动的Web站点而言，PL/SQL Server Pages提供了一个好方法，这一点也是我喜欢它的原因。
要了解更多有关PL/SQL Server Pages的信息，参看Learning Oracle PL/SQL（O’Reilly出版），也是由本书作者所著。
2.6.6 其他
你已经看到如何在SQL*Plus以及其他的一些常见环境、编程语言中使用PL/SQL了。你还可以在许多其他地方和方式使用PL/SQL。
嵌入到COBOL或者FORTRAN，并用Oracle的预编译处理。
在Visual Basic中通过某种ODBC调用。
从Ada编程语言中通过一种叫做SQL*Module的技术调用。
作为Oracle数据库的事件触发器自动执行，比如当表被更新时自动执行。
在数据库内部，利用DBMS_SCHEDULER包定期重复执行。
TimesTen数据库：Oracle公司收购的一个内存数据库产品。其内容也可以通过PL/SQL代码操作，就像在关系数据库一样。
幸运或不幸的是，我无法在本书覆盖所有的主题。