I appreciate your input. This gives me some confidence that I'm not off base. As I mentioned, this is working fine in unix and DBI. The problem occurred when converting to Windows and ODBC. I'm not sure where to go from here. There is an answer, just not sure where it is at the moment.
On 4/18/05, Bowie Bailey <[EMAIL PROTECTED]> wrote: > From: Dave W Cottrell [mailto:[EMAIL PROTECTED] > > On 4/18/05, Bowie Bailey <[EMAIL PROTECTED]> wrote: > > > From: Dave W Cottrell [mailto:[EMAIL PROTECTED] > > > > On 4/18/05, Bowie Bailey <[EMAIL PROTECTED]> wrote: > > > > > From: Dave W Cottrell [mailto:[EMAIL PROTECTED] > > > > > > > > > > > > The code: > > > > > > $sql = qq{insert into ppp_admin.$table_name ('$columns') values > > > > > > ('$result') }; > > > > > > $sth_prod = $dbh_prod->prepare($sql) || die $dbh_prod->errstr; > > > > > > $sth_prod->execute(); > > > > > > $sth_prod->finish() || die $dbh_prod->errstr;. > > > > > > > > > > > > The $columns and $result are coma delimited strings. The error > > > > > > occurs on the 'execute'. > > > > > > > > > > > > DBD::ODBC::st execute failed: [Oracle][ODBC][Ora]ORA-00928: > > > > > > missing SELECT keyword > > > > > > > > > > > > I might note that this script works fine using DBI and on a unix > > > > > > platform and the folloiwng connect. > > > > > > $dbh_prod = DBI->connect( > > > > > > "dbi:Oracle:host=$db_p_server;sid=$db_p_sid;port=$db_p_port", > > > > > > $db_p_user, $db_p_password) || die "Connect Error"; > > > > > > > > > > > > When I changed to ODBC and Windows, the problem surfaced. > > > > > > $dbh_prod = DBI->connect( 'DBI:ODBC:DSN, $username, $password) > > > > > > or die "Can't connect to $Prod_data_source: $DBI::errstr"; > > > > > > > > > > I don't see anything wrong with it. Maybe windows doesn't like > > > > > using prepare/execute with an insert. Try this instead: > > > > > > > > > > $sql = qq{insert into ppp_admin.$table_name ('$columns') values > > > > > ('$result') }; > > > > > $dbh_prod->do($sql) || die $dbh_prod->errstr; > > > > > > > > Replacing this : > > > > $dbh_prod->prepare($sql) || die $dbh_prod->errstr; > > > > > > > > with : > > > > $dbh_prod->do($sql) || die $dbh_prod->errstr; > > > > > > > > crashes the script. > > > > > > What did the crash say? > > > > > > Did you just replace that one line? The code piece I gave you should > > > have completely replaced the one you provided. There is no execute and > > > no finish. > > > > > > Instead of: > > > $sth = $dbh->prepare($sql); > > > $sth->execute; > > > $sth->finish > > > > > > You have: > > > $dbh->do($sql); > > > > Yes, did this: > > $dbh->do($sql); > > > > instead of this: > > $sth = $dbh->prepare($sql); > > $sth->execute; > > $sth->finish > > > > The script produced the following error then died: > > DBD::ODBC::db do failed: [Oracle][ODBC][Ora]ORA-00928: > > missing SELECT keyword (SQL-HY0000)(DBD: Execute immediate > > failed err=-1) > > at .... > > > > Using the 'execute' the loop would continue to process until complete. > > Using 'do' produces the above error then quits. > > I have no idea unless there is something odd in one of those variables. > This is exactly the way I do all of my inserts. The only difference is that > I prefer to build my sql in arrays rather than strings. > > @sql = ( "insert into ppp_admin.$table_name", > "( '$columns' )", > "values", > "( '$results' )", > ); > $dbh->do("@sql"); > > I see no reason why this wouldn't work. > > That being said, I've never tried it on Windows, or with odbc, so things may > be a bit different there. > > You've reached the limit of my expertise. Maybe someone else has some > ideas. > > Bowie > _______________________________________________ > ActivePerl mailing list > [email protected] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > _______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
