Hi list,
I am still getting the same errors when bind variables are used.
Company is Comp1 with Company_number 100
inserting Aegis_number 100 for company Comp1
DBD::Oracle::st execute failed: ORA-00917: missing comma (DBD ERROR: O
CIStmtExecute) at test14.pl line 29.
DBD::Oracle::st execute failed: ORA-00917: missing comma (DBD ERROR: O
CIStmtExecute) at test14.pl line 29.
Issuing rollback() for database handle being DESTROY'd without explici
t disconnect().
#!C:\perl\ActivePerl\Perl\bin\perl -w
use DBI;
use strict;
use DBI qw(:sql_types);
DBI->trace( 2, 'dbitrace.log' );
my $dbh1 = DBI->connect( "dbi:ODBC:db2db", "test", "test" ) or die "Ca
n't make 1st database connect: $DBI::errstr\n";
my $dbh2 = DBI->connect("dbi:Oracle:oracledb", "test", "test", { AutoC
ommit => 0, RaiseError => 1,} ) or die "Can't make 2nd database connec
t: $DBI::errstr\n";
my $sel1 = $dbh1->prepare("Select company,comp_number from test2");
$sel1->execute();
my @db2data;
while ( @db2data = $sel1->fetchrow_array() ) {
print "Company is $db2data[0] with Company_number $db2data[1]\n";
my $sel2 = $dbh2->prepare("Select comp_number from cover_tab where com
p_number='$db2data[1]'");
$sel2->execute;
if ($sel2->rows == 0) {
print "inserting Company_number $db2data[1] for company $db2data[0]\n"
;
my $ins_stmt = "insert into cover_tab values(cover_tab_seq.nextval,nul
l,null,null,null,null,'Outstanding',null,100,?,3,null,null,42,null,nul
l,2003,null";
my $ins_csr = $dbh2->prepare($ins_stmt);
$ins_csr->execute('$db2data[1]');
}
else { print "$db2data[1] for Company $db2data[0] already exists\n" }
}
$dbh1->disconnect();
$dbh2->disconnect();
Any insights will be appreciated.
Thanks in advance.
---------------------------------
Do you Yahoo!?
Free online calendar with sync to Outlook(TM).
