$SQL = "INSERT INTO EMPLOYEE (
EMPLOYEE_NUMBER, FIRST_NAME, LAST_NAME, INFORMATION_DATE)
VALUES (?, ?, ?, SYSDATE)"
+;
$sth = $dbh->prepare($SQL);
$sth->execute( $employee_number, $first_name, $last_name );
####
$SQL = "INSERT INTO EMPLOYEE (
EMPLOYEE_NUMBER, FIRST_NAME, LAST_NAME, INFORMATION_DATE)
VALUES (?, ?, ?, SYSDATE)"
+;
$sth = $dbh->prepare($SQL) or die $DBI::errstr;
$sth->execute( $employee_number, $first_name, $last_name ) or die $DBI::errstr;
##
##
if ( !$sth->execute( $employee_number, $first_name, $last_name ) ) {
print "Could not insert into database: ", $DBI::errstr, "\n";
return;
}