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();

}

[Andres Freund]

Hi Christian,

Zwei Sachen:
1. Was willst du jetzt eigentlich wissen?
2. Warum nutzt du nicht das wesentlich akutellere dbi als Datenbenk Modul? Das andere scheint mir schon ein wenig in die Jahre gekommen zu sein.

Grüße Andres Freund