| Oracle FAQ | Your Portal to the Oracle Knowledge Grid | |
Home -> Community -> Usenet -> c.d.o.misc -> Re: how to add a date when inserting data?
In perl the $varname within single quotes is not resolved.
You are using bind variables in most .. why not in the date column also?
my $sqll="insert into twroot.EE_SPARES_SHOP ( STATUS, SITE, CUSTOMER_CONTACT, CUSTOMER_E_MAIL,
TTC_REPRESENTITIVE,
SYSTEM_TYPE, SYSTEM_NAME, TEST_HEAD,
SYSTEM_SERIAL_NUMBER,
PART_NUMBER, PART_TYPE, PART_DESCRIPTION,
BOARD_SERIAL_NUMBER,
QTY, FAILURE, TUI_REV, CAL_DIAGS_REV,
DIAG_THAT_FAILED,
RESULTS_FILE, RMA_NUMBER, WEB, DATE_RECEIVED
)
values( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,
?, ?, ?, ?, to_date( ?, 'MM/DD/YY' )";
$sth = $dbh->prepare( $sqll );
die $dbh->errstr if $dbh->err;
$rv = $sth->execute( $Status, $Site, $Customer_Contact,
$Customer_e_mail, $TTC_Representitive, $System_Type,
$System_Name, $test_head,
$Board_Serial_Number, $Qty, $Failure,
$TUI_Rev,
$Results_File, $RMA_NUMBER, $YES,$date_received
) ||
Anurag
"Jim Kennedy" <kennedy-downwithspammersfamily_at_attbi.com> wrote in message news:8JKaa.21855$eG2.3859_at_sccrnsc03...
> 1. Use 4 digit years. (that isn't the problem) > try it in sqlplus and see if it works. > Jim > "Jerry Preston" <g-preston1_at_ti.com> wrote in message > news:b4f1td$7fl$1_at_tilde.itg.ti.com... > > Hi! > > > > I keep getting an error, missing comma on the insert statement. I amlost
> > and do not understand what is wrong with the following code: > > > > my $sqll="insert into twroot.EE_SPARES_SHOP ( STATUS, SITE, > > CUSTOMER_CONTACT, CUSTOMER_E_MAIL, > > TTC_REPRESENTITIVE, > > SYSTEM_TYPE, SYSTEM_NAME, TEST_HEAD, > >
> > PART_NUMBER, PART_TYPE, PART_DESCRIPTION, > > BOARD_SERIAL_NUMBER, > > QTY, FAILURE, TUI_REV, CAL_DIAGS_REV, > > DIAG_THAT_FAILED, > > RESULTS_FILE, RMA_NUMBER, WEB, DATE_RECEIVED > > ) > > values( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,?,
> > ?, ?, ?, ?, to_date( '$date_received', 'MM/DD/YY' )"; > > $sth = $dbh->prepare( $sqll ); > > die $dbh->errstr if $dbh->err; > > $rv = $sth->execute( $Status, $Site, $Customer_Contact, > > $Customer_e_mail, $TTC_Representitive, $System_Type, > > $System_Name, $test_head, > $System_Serial_Number, > > $Part_Number, $Part_Type, $Part_Description, > > $Board_Serial_Number, $Qty, $Failure, > $TUI_Rev, > > $Cal_Diags_Rev, $Diag_that_Failed, > > $Results_File, $RMA_NUMBER, $YES > > ) || > > > > Thanks for your help, > > > > Jerry > > > > > >Received on Sun Mar 09 2003 - 17:14:45 CST
![]() |
![]() |