Datenbankabfrage

[Christian S.]

Ich will hier abfragen, ob der Benutzername schon in der Datenbank vorhanden ist, wenn schon, soll ein Text ausgegeben werden, das der name schon vorhanden ist!

&opendb;

$st = new IBPerl::Statement(
  Transaction=>$trupdt,
     SQL=>"SELECT * FROM BENUTZER WHERE BENUTZER='$ben{'test'}';"
  );

print "$ben{'test'}";
  if($Daten{'fabenutzer'} eq $daten{'test'})
  {
   print "Der Username $daten{'test'} ist bereits in Verwendung! Der neue Benutzer konnte <b>nicht</b> angelegt werden!";
   print " <form name=lastback method=post action=>\n";
   print " <INPUT type=submit value=<--zurück action=submit></td>\n";
   print " <input type=hidden name=kontrolle value=backkontrolle action=submit>";
   print " </form>";

}
  else
  {

#### Formular in die Datenbank speichern

$stmt = new IBPerl::Statement(Transaction => $tr,

SQL => "insert into BENUTZER (KUNDENNR, BENUTZER, PWD, ZUNAME, VORNAME, FIRMA, ANREDE, TITEL, STRASSE, PLZ, ORT, LAND, TELEFON, FAX, EMAIL)
      values ((select max(KUNDENNR) + 1 from BENUTZER), '$Daten{dbbenutzer}', '$Daten{dbpass}', '$Daten{dbzuname}', '$Daten{dbvorname}', '$Daten{dbfirma}', '$Daten{dbanrede}', '$Daten{dbtitel}', '$Daten{dbstrasse}', '$Daten{dbplz}', '$Daten{dbort}', '$Daten{dbland}', '$Daten{dbtelefon}', '$Daten{dbfax}', '$Daten{dbemail}');"
     );

$stmt->execute();

}