- 论坛徽章:
- 1
|
SQL语句如下:
select data0010.cust_code,data0010.customer_name,data0050.customer_part_number,
data0059.customer_part_desc,data0050.cp_rev,data0278.parameter_desc,data0494.parameter_value,DATA0050.RKEY AS RKEY50
from data0010,data0038,data0034,data0278,data0025,data0050,data0059,data0506 left outer join
data0494 on (data0494.source_ptr=data0506.rkey)
where data0506.parameter_ptr=data0278.rkey
and data0506.ttype=3
and data0494.route_step_ptr=data0038.rkey
and data0034.rkey=data0038.dept_ptr
and data0038.source_ptr=data0025.rkey
and data0025.ancestor_ptr=data0050.rkey
and Data0059.CUST_Part_PTR=Data0050.RKEY
and data0059.customer_ptr=data0010.rkey
and (data0050.CUSTOMER_PART_NUMBER+data0050.cp_rev) = 'xxx'
and data0278.PARAMETER_NAME='xxxx'
order by cust_code
如上语句怎么代入到perl的代码中呢?用
my $sql = qq(select data0010.cust_code,data0010.customer_name,data0050.customer_part_number,
data0059.customer_part_desc,data0050.cp_rev,data0278.parameter_desc,data0494.parameter_value,DATA0050.RKEY AS RKEY50
from data0010,data0038,data0034,data0278,data0025,data0050,data0059,data0506 left outer join
data0494 on (data0494.source_ptr=data0506.rkey)
where data0506.parameter_ptr=data0278.rkey
and data0506.ttype=3
and data0494.route_step_ptr=data0038.rkey
and data0034.rkey=data0038.dept_ptr
and data0038.source_ptr=data0025.rkey
and data0025.ancestor_ptr=data0050.rkey
and Data0059.CUST_Part_PTR=Data0050.RKEY
and data0059.customer_ptr=data0010.rkey
and (data0050.CUSTOMER_PART_NUMBER+data0050.cp_rev) = 'xxx'
and data0278.PARAMETER_NAME='xxxx'
order by cust_code
);
my $dbconn = $DBH->prepare($sql);这样得不到想要的结果。 |
|