使用perl DBI创建视图时无法传入参数

Question

我想使用Perl DBI自动创建基于数据库的视图。相关的代码是类似以下，

my $dbh  = DBI->connect("dbi:Oracle:$database", $user_passwd); 
my $Directive = q{ CREATE OR REPLACE VIEW SOME_VIEW AS SELECT * FROM ID_TABLE WHERE ID=?}; 
my $ID = 12345; 

my $sth = $dbh->prepare($Directive); 
my $rv = $sth->execute($ID); 

然后我发现$rv总是undef后，我运行的代码。我在代码中犯了什么错误？当我把参数直接放入$Directive时，一切都很好。

BTW，当我使用一些其他的$指令，如 “SELECT * FROM ID_TABLE WHERE ID =？”，参数$ ID，可以在没有任何问题过去了。

Answer 1

SQL不允许在条件的占位符为你的榜样来创建的视图。除此之外，没有一种符号允许您在引用视图时指定占位符的值。通常，DDL语句不需要输入参数。

你将不得不做一些与众不同的事情，可能是前述的观点。

这不是Perl和DBI本身的限制，甚至也不是真的你使用特定的DBMS;这是整个SQL设计的一个问题。

---

很多应对这种特殊情况下最简单的方法是：

my $dbh = DBI->connect("dbi:Oracle:$database", $user_passwd); 
my $ID = 12345; 
my $sql = qq{ CREATE OR REPLACE VIEW SOME_VIEW AS SELECT * FROM ID_TABLE WHERE ID = $ID }; 

my $sth = $dbh->prepare($sql); 
my $rv = $sth->execute(); 

简单地嵌入您准备和执行SQL语句的参数值。