며칠 동안 온라인에서 검색 한 결과 답변을 찾을 수 없습니다.Perl DBI는 Oracle 부속 조회를 지원합니까?
Perl DBI는 Oracle 하위 쿼리 인수 (즉 WITH 절)를 지원합니까?
DBD::Oracle::st fetchrow_array failed: ERROR no statement executing (perhaps you need to call execute first)
간단한 펄 DBI 응용 프로그램 : : 나는 단순히 SQL을 변경하는 경우
#!/bin/perl
use DBI;
my $sql = <<END_SQL;
WITH w AS
(
SELECT wafer_seq
FROM wafer
WHERE load_time > sysdate - 1
)
SELECT v.*
FROM vwafer v, w
WHERE v.wafer_seq = w.wafer_seq
ORDER BY v.wafer_seq
END_SQL
my $dbh = DBI->connect('DBI:Oracle:<schema_id>', '<username>', '<password>');
my $sth = $dbh->prepare($sql) || die "ERROR PREP";
$sth->execute() || die "ERROR EXEC";
while (my @row = $sth->fetchrow_array())
{
print "@row\n";
}
$sth->finish();
$dbh->disconnect();
exit 0;
이 동일한 응용 프로그램이 작동 예를 들어
는 간단한 펄 DBI 응용 프로그램은 더 아래의 오류와 함께 실패 ~ :SELECT v.*
FROM vwafer v,
(
SELECT wafer_seq
FROM wafer
WHERE load_time > sysdate - 1
) w
WHERE v.wafer_seq = w.wafer_seq
ORDER BY v.wafer_seq
마지막으로 위에 언급 한 두 SQL 암탉은 데이터베이스 시각화 응용 프로그램 (예 : DBVisualizer).
PostgreSQL은이'common table expressions'을 호출합니다. 그리고 나는 여러분이 그것을 설명하고'prepare','execute' 그리고'fetch *'하는 방식으로 사용합니다. – dgw