Native SQL: insert data into oracle database, no return message.

Question

hi,
the statement : insert into <TableName> values (Source)
how can I know if the data have already insert to the database table?
now I have a program have this problem: the data has already exist, but there's no error message return when insert the same data again.
data: dbs like dbcon-con_name value 'HRGK',
                   dbtype type dbcon_dbms.
data: sqlerr_ref type ref to cx_sql_exception,
         exc_ref    type ref to cx_sy_native_sql_error,
         error_text type string.
data: cnt type i,
        i(2) type c.
set locale language 'E'.
EXEC SQL.
  CONNECT TO :DBS
ENDEXEC.
EXEC SQL.
  SET CONNECTION :DBS
ENDEXEC.
EXEC SQL.
  SELECT COUNT(*) from org_unit into :cnt
ENDEXEC.
write: / cnt.
*do.
i = 'A'.               
try.
    EXEC SQL.
      BEGIN
       insert into ORG_UNIT ( ORGAN_ID, UNIT_NO, UNIT_NAME, PARENT_ID)
                     values ( 'A', '123412', 'SDFSG', 'DDS');                     " ORGAN_ID is primary key
" If the data 'A' has already exist in database ORG_UNIT, it will show error message
" But if I use :I instead 'A', it will not show error message.
        IF SQL%FOUND THEN
           COMMIT;
        END IF;
      END;
    endexec.
    EXEC SQL.
      SELECT COUNT(*) from ORG_UNIT into :cnt
    ENDEXEC.
    write: / cnt.
catch cx_sy_native_sql_error into exc_ref.
    error_text = exc_ref->get_text( ).
    write: / error_text.
  catch cx_sql_exception into sqlerr_ref.
    perform handle_sql_exception using sqlerr_ref.
endtry.
EXEC SQL.
  disconnect :DBS
ENDEXEC.
*enddo.
*&      Form  handle_sql_exception
form handle_sql_exception
  using p_sqlerr_ref type ref to cx_sql_exception.
  format color col_negative.
  if p_sqlerr_ref->db_error = 'X'.
    write: / 'SQL error occured:', p_sqlerr_ref->sql_code,
           / p_sqlerr_ref->sql_message.                     "#EC NOTEXT
  else.
    write:
      / 'Error from DBI (details in dev-trace):',
        p_sqlerr_ref->internal_error.                       "#EC NOTEXT
  endif.
endform.                    "handle_sql_exception
please help to see the words:
*" If the data 'A' has already exist in database ORG_UNIT, it will show error message*
*" But if I use :I instead 'A', it will not show error message.*
in the program.
Thanks a lot!

Answer 1

resumption and jer,
Sorry I cannot format the code for easy reading!
The page is submitting to itself. See action = \"$uri\". I used the same logic to enter SELECT querries into the database. It pulls and displays data back on the webpage. The code I used for this is below. Compare it with the one above for inserting data into the table.
<?php
// connect to oracle
$username = "xxxxx";
     $paswd = "yyyyy";
     $dbstring = "(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)".
          "(HOST=patriot.gmu.edu)(PORT=1521))".
          "(CONNECT_DATA=(SID=COSC)))";
     $db_conn = ocilogon($username, $paswd, $dbstring);
// username and password will be unset if they weren't passed,
// or if they were wrong
if( !isset($query)) {
// just print form asking for account details
echo "<form action=\"$uri\" method=post>\n";
echo "<p>Enter Query: ";
echo "<input type=text size=100 maxlength=200 name=query value=\"$query\">\n";
echo "<br><input type=submit name=submit value=Submit>\n";
echo "</form>\n";
exit;
// remove unwanted slashes from the query
$query = stripslashes($query);
// run the query
$stmt = OCIParse($db_conn, $query);
OCIExecute($stmt, OCI_DEFAULT);
// Open the HTML table.
print '<table border="1" cellspacing="0" cellpadding="3">';
// Read fetched headers.
print '<tr>';
for ($i = 1;$i <= ocinumcols($stmt);$i++)
print '<td class="e">'.ocicolumnname($stmt,$i).'</td>';
print '</tr>';
// Read fetched data.
while (ocifetch($stmt))
// Print open and close HTML row tags and columns data.
print '<tr>';
for ($i = 1;$i <= ocinumcols($stmt);$i++)
print '<td class="v">'.ociresult($stmt,$i).'</td>';
print '</tr>';
// Close the HTML table.
print '</table>';
OCIFreeStatement($stmt);
OCILogoff($db_conn);
?>