小编She*_*ddy的帖子

我有一个带有WHERE子句的SQL查询,该子句通常包含一个值,包括以数据库形式存储在CHAR(10)中的破折号.当我明确地调用它时,如下所示:

$sth = $dbh->prepare("SELECT STATUS_CODE FROM MyTable WHERE ACC_TYPE = 'A-50C'");

它工作正常,返回我的第一行; 但是,如果我执行以下操作:

my $code = 'A-50C';
$sth = $dbh->prepare("SELECT STATUS_CODE FROM MyTable WHERE ACC_TYPE = ?");
$sth->execute($code);

或者我这样做:

my $code = 'A-50C';
$sth = $dbh->prepare("SELECT STATUS_CODE FROM MyTable WHERE ACC_TYPE = ?");
$sth->bind_param(1, $code);
$sth->execute();

查询完成,但我没有得到任何结果.我怀疑它与错误解释的破折号有关,但我无法将其链接到Perl问题,因为我使用print打印了我的$ code变量,"My Content: $code\n";所以我可以确认它没有被奇怪地转换.我也尝试为b​​ind_param包含第三个值,如果我指定类似ORA_VARCHAR2,SQL_VARCHAR(尝试了所有可能性),我仍然没有得到任何结果.如果我将它更改为长格式,即{TYPE => SQL_VARCHAR},它会给我一个错误

DBI :: st = HASH <0x232a210> - > bind_param(...):属性参数'SQL_VARCHAR'不是哈希引用

最后,我尝试了不同方式的单引号和双引号以及后退标记以逃避值,但没有任何东西让我获得1行,只有0.任何想法？在文档或搜索中没有找到任何内容.这是oracle供参考.

带错误检查的代码:

my $dbh = DBI->connect($dsn, $user, $pw, {PrintError => 0, RaiseError => 0})
  or die "$DBI::errstr\n"; …

我是新手在perl脚本中使用DBI进行SQL查询.我遇到的问题与具有正斜杠的字段中的数据有关.我想使用变量作为我的where子句的输入,但它正在做DBI打算使用正斜杠来做的事情:停止查询.我试过很多不同的工作,从绑定,引用等,但没有一个工作,甚至可能吗？这方面的数据是一致的.带有my $ sql变量的行就是问题所在.

#!/usr/bin/perl

# Modules
use DBI;
use DBD::Oracle;
use strict;
use warnings;

# Connection Info
$platform = "Oracle";
$database = "mydb";
$user = "user";
$pw = "pass";

# Data Source
$ds = "dbi:Oracle:$database";

my $dbh = DBI->connect($ds, $user, $pw);

# my $dbh = DBI->connect();       
my $XCOD = $dbh->quote('cba');
my $a = $dbh->quote('abc');
my $b = $dbh->quote('123');
# tried this as well  my $pid = $dbh->quote('$a/$b');
my $sql = "SELECT P_ID FROM MyTable WHERE P_ID=$a/$b AND XCOD=$XCOD";
my $sth …