Ändern von Datenbankeinträgen - baseportal Forum - Web-Anwendungen einfach, schnell, leistungsfähig!
baseportal
English - Deutsch "Es gibt keine dummen Fragen - jeder hat einmal angefangen"

 baseportal-ForumDie aktuellsten 10, 30, 50, 100 Einträge anzeigen.  

 
 Ausgewählter Eintrag: Zur Liste 
    Beitrag von Peter Heck (12 Beiträge) am Montag, 14.Juni.2004, 10:51. WWW: www.peter-heck.de
    Ändern von Datenbankeinträgen

      Hallo zusammen,

      ich habe den Passwortschutz für einzelne Einträge von Christoph aus der Bibliothek verwendet und entsprechend modifiziert.
      Generell funktioniert es, nur mit der Darstellung bin ich noch nicht so zufrieden:

      zum Testen:
      http://81.169.151.125/cgi-bin/baseportal.pl?htx=/Modellflugvereine/Aendern

      Wenn man einen Datensatz zum Ändern auswählt, so wird am Ende der Seite die Tabelle mit den Datensätzen nicht mehr angezeigt, ebenso wie bei der Resultatsausgabe (Änderung erfolgreich bzw. Passwort falsch).

      Hier der Code:

      <html><head>
      <title>baseportal Datenbank</title>
      </head><body bgcolor=ffffff>
      <br><ul>
      

      <perl db=/Modellflugvereine/Modellflugplatz>

      put if %_put;
      

      if($Id ne "")
      {
        get "Id==$Id";
      
        if($xVereinsname)   {     if($Passwort eq $xPasswort)     {      out "<b>Eintrag geändert...</b>";     mod "Id==$Id", ["Vereinsname",$xVereinsname,"PLZ",$xPLZ,"Stadt",$xStadt,"Bundesland",$xBundesland,"Ansprechpartner",$xAnsprechpartner,"E_Mail_Adresse",$xE_Mail_Adresse,"Telefon",$xTelefon,"Gruendungsjahr",$xGruendungsjahr,"Mitgliederzahl",$xMitgliederzahl,"Abfluggewicht",$xAbfluggewicht,"Lautstaerke",$xLautstaerke,"Auflagen",$xAuflagen,"Hoehe",$xHoehe,"Laenge",$xLaenge,"Breite",$xBreite,"Beschaffenheit",$xBeschaffenheit,"Bahnlaenge",$xBahnlaenge,"Bahnbreite",$xBahnbreite,"Lage",$xLage,"Hauptwindrichtung",$xHauptwindrichtung,"Parkplaetze",$xParkplaetze,"Homepage_des_Vereins",$xHomepage,"Wegbeschreibung",$xWegbeschreibung,"Informationen",$xInformationen,"Bild",$xBild];       out "<b>Eintrag geändert...</b>";     } else     {       out "<b>Passwort falsch!</b>";     }   } else
        {
      $Bundesland0 = $Bundesland eq "Baden-Württemberg" ? " select" : "";
      $Bundesland1= $Bundesland eq "Bayern" ? " selected" : "";
      $Bundesland2= $Bundesland eq "Berlin" ? " selected" : "";
      $Bundesland3= $Bundesland eq "Brandenburg" ? " selected" : "";
      $Bundesland4= $Bundesland eq "Bremen" ? " selected" : "";
      $Bundesland5= $Bundesland eq "Hamburg" ? " selected" : "";
      $Bundesland6= $Bundesland eq "Hessen" ? " selected" : "";
      $Bundesland7= $Bundesland eq "Mecklenburg-Vorpommern" ? " selected" : "";
      $Bundesland8= $Bundesland eq "Niedersachsen" ? " selected" : "";
      $Bundesland9= $Bundesland eq "Nordrhein-Westfalen" ? " selected" : "";
      $Bundesland10= $Bundesland eq "Rheinland-Pfalz" ? " selected" : "";
      $Bundesland11= $Bundesland eq "Saarland" ? " selected" : "";
      $Bundesland12= $Bundesland eq "Sachsen" ? " selected" : "";
      $Bundesland13= $Bundesland eq "Sachsen-Anhalt" ? " selected" : "";
      $Bundesland14= $Bundesland eq "Schleswig-Holstein" ? " selected" : "";
      $Bundesland15= $Bundesland eq "Thüringen" ? " selected" : "";
      $Abflug0 = $Abfluggewicht eq "bis 5 kg" ? " checked" : "";
      $Abflug1 = $Abfluggewicht eq "bis 20 kg" ? " checked" : "";
      $Abflug2 = $Abfluggewicht eq "bis 25 kg" ? " checked" : "";
      $csBild=$Bild?" checked":"";
      $csBild2=$Bild?"":" checked"; 
       
          out <<EOF;
      <h3>Eintrag ändern (Passwort erforderlich)</h3>
      

      <table>
      <form action="/cgi-bin/baseportal.pl?htx=$htx&Id=$Id" method="post" enctype="multipart/form-data">
      <input type=hidden name="htx=" value="$htx">
      <input type=hidden name="Id=" value="$Id">
      <tr><td>Name:</td><td><input type="text" size="60" name="xVereinsname=" value="$Vereinsname"></td></tr>
      <tr><td>PLZ:</td><td><input type="text" size="5" name="xPLZ=" value="$PLZ"></td></tr>
      <tr><td>Stadt:</td><td><input type="text" name="xStadt=" value="$Stadt"></td></tr>
      <tr><td>Bundesland:</td><td><select name="xBundesland=" value="$Bundesland">
      <option $Bundesland0>Baden-Württemberg</option> 
      <option $Bundesland1>Bayern</option>
      <option $Bundesland2>Berlin</option>
      <option $Bundesland3>Brandenburg</option>
      <option $Bundesland4>Bremen</option>
      <option $Bundesland5>Hamburg</option>
      <option $Bundesland6>Hessen</option>
      <option $Bundesland7>Mecklenburg-Vorpommern</option>
      <option $Bundesland8>Niedersachsen</option>
      <option $Bundesland9>Nordrhein-Westfalen</option>
      <option $Bundesland10>Rheinland-Pfalz</option>
      <option $Bundesland11>Saarland</option>
      <option $Bundesland12>Sachsen</option>
      <option $Bundesland13>Sachsen-Anhalt</option>
      <option $Bundesland14>Schleswig-Holstein</option>
      <option $Bundesland15>Thüringen</option>
      </select>
      </td></tr>
      <tr><td>Ansprechpartner:</td><td><input type="text" name="xAnsprechpartner=" value="$Ansprechpartner"></td></tr>
      <tr><td>E-Mail Adresse:</td><td><input type="text" name="xE_Mail_Adresse=" value="$E_Mail_Adresse"></td></tr>
      <tr><td>Telefon:</td><td><input type="text" name="xTelefon=" value="$Telefon"></td></tr>
      <tr><td>Gründungsjahr:</td><td><input type="text" name="xGruendungsjahr=" value="$Gruendungsjahr"></td></tr>
      <tr><td>Mitgliederzahl:</td><td><input type="text" name="xMitgliederzahl=" value="$Mitgliederzahl"></td></tr>
      <tr><td>Maximales Abfluggewicht:</td><td>
      <input type="radio" name="xAbfluggewicht:="value="bis 5 kg"$Abflug0> bis 5 kg 
      <input type="radio" name="xAbfluggewicht:="value="bis 20 kg"$Abflug1> bis 20 kg 
      <input type="radio" name="xAbfluggewicht:="value="bis 25 kg"$Abflug2> bis 25 kg
      </td></tr>
      <tr><td>Maximale Lautstärke in db(A):</td><td><input type="text" name="xLautstaerke=" value="$Lautstaerke"></td></tr>
      <tr><td>Auflagen:</td><td><textarea name="xAuflagen=" cols=25 rows=2 wrap=virtual>$Auflagen</textarea></td></tr>
      <tr><td>Höhe über NN:</td><td><input type="text" name="xHoehe=" value="$Hoehe"></td></tr>
      <tr><td>Länge des Platzes:</td><td><input type="text" name="xLaenge=" value="$Laenge"></td></tr>
      <tr><td>Breite des Platzes:</td><td><input type="text" name="xBreite=" value="$Breite"></td></tr>
      <tr><td>Beschaffenheit des Platzes:</td><td><textarea name="xBeschaffenheit=" cols=25 rows=3 wrap=virtual>$Beschaffenheit</textarea></td></tr>
      <tr><td>Länge der längsten Bahn:</td><td><input type="text" name="xBahnlaenge=" value="$Bahnlaenge"></td></tr>
      <tr><td>Breite der längsten Bahn:</td><td><input type="text" name="xBahnbreite=" value="$Bahnbreite"></td></tr>
      <tr><td>Lage des Platzes:</td><td><textarea name="xLage=" cols=25 rows=2 wrap=virtual>$Lage</textarea></td></tr>
      <tr><td>Hauptwindrichtung:</td><td><textarea name="xHauptwindrichtung=" cols=25 rows=2 wrap=virtual>$Hauptwindrichtung</textarea></td></tr>
      <tr><td>Anzahl der Parkplätze (ca.):</td><td><input type="text" name="xParkplaetze=" value="$Parkplaetze"></td></tr>
      <tr><td>Homepage des Vereins:</td><td><input type="text" size="90" name="xHomepage=" value="$Homepage_des_Vereins"></td></tr>
      <tr><td>Wegbeschreibung:</td><td><textarea name="xWegbeschreibung=" cols=50 rows=20 wrap=virtual>$Wegbeschreibung</textarea></td></tr>
      <tr><td>Weitere Informationen:</td><td><textarea name="xInformationen=" cols=50 rows=20 wrap=virtual>$Informationen</textarea></td></tr>
      <tr><td>Bild:</td><td>
      <input type=radio name="_filec_Bild=" value=0 $csBild>Datei behalten:<b> $Bild </b>    
      <input type=radio name="_filec_Bild=" value=1 $csBild2> Keine Datei 
      <input type=radio name="_filec_Bild=" value=2> Neue Datei:<br>
      <input name="xBild=" type="file" size=30 onfocus="a=this.form.elements; for(i=0; i<a.length; i++) if(a[i].name==this.name) break; a[i-1].checked=1;"></td></tr>
      <tr><td>Passwort:</td><td><input type="password" name="xPasswort="></td></tr>
      <tr><td></td><td><input type=submit value="Abschicken"> </td></tr>
      </form></table>
      EOF
      
        }   out "<p><a href=\"$_link\">Zur Übersicht</a>";

      } else
      {
        out "<h3>Zum Bearbeiten bitte Verein auswählen</h3>";
        init; 
      }
      

      get;

      out "<h3>Liste aller Einträge</h3>";
      

      out "<table cellpadding=4 cellspacing=1 border=0><tr><td bgcolor=00669><font face=Verdana><font color=FFA34F><font size=1><b>Name</b></font></td><td bgcolor=006699><font face=Verdana><font color=FFA34F><font size=1><b>PLZ</b></font></td><td bgcolor=006699>   </td><td bgcolor=006699><font face=Verdana><font color=FFA34F><font size=1><b>Stadt</b></font></td><td bgcolor=006699><font face=Verdana><font color=FFA34F><font size=1><b>Bundesland</b></font></td></tr>";
      while(get_next)
      {
        out "<tr bgcolor=DEE3E7><td><a href=\"$_link&Id=$_id\">$Vereinsname</a></td><td>$PLZ</td><td></td><td>$Stadt</td><td>$Bundesland</td></tr>";
      }
      out "</table>";
      </perl>
      

      </body></html>


      Danke für eure Hinweise!

      Ciao
          Peter
      


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Peter Heck (12 Beiträge) am Montag, 14.Juni.2004, 10:51. WWW: www.peter-heck.de
    Ändern von Datenbankeinträgen

      Hallo zusammen,

      ich habe den Passwortschutz für einzelne Einträge von Christoph aus der Bibliothek verwendet und entsprechend modifiziert.
      Generell funktioniert es, nur mit der Darstellung bin ich noch nicht so zufrieden:

      zum Testen:
      http://81.169.151.125/cgi-bin/baseportal.pl?htx=/Modellflugvereine/Aendern

      Wenn man einen Datensatz zum Ändern auswählt, so wird am Ende der Seite die Tabelle mit den Datensätzen nicht mehr angezeigt, ebenso wie bei der Resultatsausgabe (Änderung erfolgreich bzw. Passwort falsch).

      Hier der Code:

      <html><head>
      <title>baseportal Datenbank</title>
      </head><body bgcolor=ffffff>
      <br><ul>
      

      <perl db=/Modellflugvereine/Modellflugplatz>

      put if %_put;
      

      if($Id ne "")
      {
        get "Id==$Id";
      
        if($xVereinsname)   {     if($Passwort eq $xPasswort)     {      out "<b>Eintrag geändert...</b>";     mod "Id==$Id", ["Vereinsname",$xVereinsname,"PLZ",$xPLZ,"Stadt",$xStadt,"Bundesland",$xBundesland,"Ansprechpartner",$xAnsprechpartner,"E_Mail_Adresse",$xE_Mail_Adresse,"Telefon",$xTelefon,"Gruendungsjahr",$xGruendungsjahr,"Mitgliederzahl",$xMitgliederzahl,"Abfluggewicht",$xAbfluggewicht,"Lautstaerke",$xLautstaerke,"Auflagen",$xAuflagen,"Hoehe",$xHoehe,"Laenge",$xLaenge,"Breite",$xBreite,"Beschaffenheit",$xBeschaffenheit,"Bahnlaenge",$xBahnlaenge,"Bahnbreite",$xBahnbreite,"Lage",$xLage,"Hauptwindrichtung",$xHauptwindrichtung,"Parkplaetze",$xParkplaetze,"Homepage_des_Vereins",$xHomepage,"Wegbeschreibung",$xWegbeschreibung,"Informationen",$xInformationen,"Bild",$xBild];       out "<b>Eintrag geändert...</b>";     } else     {       out "<b>Passwort falsch!</b>";     }   } else
        {
      $Bundesland0 = $Bundesland eq "Baden-Württemberg" ? " select" : "";
      $Bundesland1= $Bundesland eq "Bayern" ? " selected" : "";
      $Bundesland2= $Bundesland eq "Berlin" ? " selected" : "";
      $Bundesland3= $Bundesland eq "Brandenburg" ? " selected" : "";
      $Bundesland4= $Bundesland eq "Bremen" ? " selected" : "";
      $Bundesland5= $Bundesland eq "Hamburg" ? " selected" : "";
      $Bundesland6= $Bundesland eq "Hessen" ? " selected" : "";
      $Bundesland7= $Bundesland eq "Mecklenburg-Vorpommern" ? " selected" : "";
      $Bundesland8= $Bundesland eq "Niedersachsen" ? " selected" : "";
      $Bundesland9= $Bundesland eq "Nordrhein-Westfalen" ? " selected" : "";
      $Bundesland10= $Bundesland eq "Rheinland-Pfalz" ? " selected" : "";
      $Bundesland11= $Bundesland eq "Saarland" ? " selected" : "";
      $Bundesland12= $Bundesland eq "Sachsen" ? " selected" : "";
      $Bundesland13= $Bundesland eq "Sachsen-Anhalt" ? " selected" : "";
      $Bundesland14= $Bundesland eq "Schleswig-Holstein" ? " selected" : "";
      $Bundesland15= $Bundesland eq "Thüringen" ? " selected" : "";
      $Abflug0 = $Abfluggewicht eq "bis 5 kg" ? " checked" : "";
      $Abflug1 = $Abfluggewicht eq "bis 20 kg" ? " checked" : "";
      $Abflug2 = $Abfluggewicht eq "bis 25 kg" ? " checked" : "";
      $csBild=$Bild?" checked":"";
      $csBild2=$Bild?"":" checked"; 
       
          out <<EOF;
      <h3>Eintrag ändern (Passwort erforderlich)</h3>
      

      <table>
      <form action="/cgi-bin/baseportal.pl?htx=$htx&Id=$Id" method="post" enctype="multipart/form-data">
      <input type=hidden name="htx=" value="$htx">
      <input type=hidden name="Id=" value="$Id">
      <tr><td>Name:</td><td><input type="text" size="60" name="xVereinsname=" value="$Vereinsname"></td></tr>
      <tr><td>PLZ:</td><td><input type="text" size="5" name="xPLZ=" value="$PLZ"></td></tr>
      <tr><td>Stadt:</td><td><input type="text" name="xStadt=" value="$Stadt"></td></tr>
      <tr><td>Bundesland:</td><td><select name="xBundesland=" value="$Bundesland">
      <option $Bundesland0>Baden-Württemberg</option> 
      <option $Bundesland1>Bayern</option>
      <option $Bundesland2>Berlin</option>
      <option $Bundesland3>Brandenburg</option>
      <option $Bundesland4>Bremen</option>
      <option $Bundesland5>Hamburg</option>
      <option $Bundesland6>Hessen</option>
      <option $Bundesland7>Mecklenburg-Vorpommern</option>
      <option $Bundesland8>Niedersachsen</option>
      <option $Bundesland9>Nordrhein-Westfalen</option>
      <option $Bundesland10>Rheinland-Pfalz</option>
      <option $Bundesland11>Saarland</option>
      <option $Bundesland12>Sachsen</option>
      <option $Bundesland13>Sachsen-Anhalt</option>
      <option $Bundesland14>Schleswig-Holstein</option>
      <option $Bundesland15>Thüringen</option>
      </select>
      </td></tr>
      <tr><td>Ansprechpartner:</td><td><input type="text" name="xAnsprechpartner=" value="$Ansprechpartner"></td></tr>
      <tr><td>E-Mail Adresse:</td><td><input type="text" name="xE_Mail_Adresse=" value="$E_Mail_Adresse"></td></tr>
      <tr><td>Telefon:</td><td><input type="text" name="xTelefon=" value="$Telefon"></td></tr>
      <tr><td>Gründungsjahr:</td><td><input type="text" name="xGruendungsjahr=" value="$Gruendungsjahr"></td></tr>
      <tr><td>Mitgliederzahl:</td><td><input type="text" name="xMitgliederzahl=" value="$Mitgliederzahl"></td></tr>
      <tr><td>Maximales Abfluggewicht:</td><td>
      <input type="radio" name="xAbfluggewicht:="value="bis 5 kg"$Abflug0> bis 5 kg 
      <input type="radio" name="xAbfluggewicht:="value="bis 20 kg"$Abflug1> bis 20 kg 
      <input type="radio" name="xAbfluggewicht:="value="bis 25 kg"$Abflug2> bis 25 kg
      </td></tr>
      <tr><td>Maximale Lautstärke in db(A):</td><td><input type="text" name="xLautstaerke=" value="$Lautstaerke"></td></tr>
      <tr><td>Auflagen:</td><td><textarea name="xAuflagen=" cols=25 rows=2 wrap=virtual>$Auflagen</textarea></td></tr>
      <tr><td>Höhe über NN:</td><td><input type="text" name="xHoehe=" value="$Hoehe"></td></tr>
      <tr><td>Länge des Platzes:</td><td><input type="text" name="xLaenge=" value="$Laenge"></td></tr>
      <tr><td>Breite des Platzes:</td><td><input type="text" name="xBreite=" value="$Breite"></td></tr>
      <tr><td>Beschaffenheit des Platzes:</td><td><textarea name="xBeschaffenheit=" cols=25 rows=3 wrap=virtual>$Beschaffenheit</textarea></td></tr>
      <tr><td>Länge der längsten Bahn:</td><td><input type="text" name="xBahnlaenge=" value="$Bahnlaenge"></td></tr>
      <tr><td>Breite der längsten Bahn:</td><td><input type="text" name="xBahnbreite=" value="$Bahnbreite"></td></tr>
      <tr><td>Lage des Platzes:</td><td><textarea name="xLage=" cols=25 rows=2 wrap=virtual>$Lage</textarea></td></tr>
      <tr><td>Hauptwindrichtung:</td><td><textarea name="xHauptwindrichtung=" cols=25 rows=2 wrap=virtual>$Hauptwindrichtung</textarea></td></tr>
      <tr><td>Anzahl der Parkplätze (ca.):</td><td><input type="text" name="xParkplaetze=" value="$Parkplaetze"></td></tr>
      <tr><td>Homepage des Vereins:</td><td><input type="text" size="90" name="xHomepage=" value="$Homepage_des_Vereins"></td></tr>
      <tr><td>Wegbeschreibung:</td><td><textarea name="xWegbeschreibung=" cols=50 rows=20 wrap=virtual>$Wegbeschreibung</textarea></td></tr>
      <tr><td>Weitere Informationen:</td><td><textarea name="xInformationen=" cols=50 rows=20 wrap=virtual>$Informationen</textarea></td></tr>
      <tr><td>Bild:</td><td>
      <input type=radio name="_filec_Bild=" value=0 $csBild>Datei behalten:<b> $Bild </b>    
      <input type=radio name="_filec_Bild=" value=1 $csBild2> Keine Datei 
      <input type=radio name="_filec_Bild=" value=2> Neue Datei:<br>
      <input name="xBild=" type="file" size=30 onfocus="a=this.form.elements; for(i=0; i<a.length; i++) if(a[i].name==this.name) break; a[i-1].checked=1;"></td></tr>
      <tr><td>Passwort:</td><td><input type="password" name="xPasswort="></td></tr>
      <tr><td></td><td><input type=submit value="Abschicken"> </td></tr>
      </form></table>
      EOF
      
        }   out "<p><a href=\"$_link\">Zur Übersicht</a>";

      } else
      {
        out "<h3>Zum Bearbeiten bitte Verein auswählen</h3>";
        init; 
      }
      

      get;

      out "<h3>Liste aller Einträge</h3>";
      

      out "<table cellpadding=4 cellspacing=1 border=0><tr><td bgcolor=00669><font face=Verdana><font color=FFA34F><font size=1><b>Name</b></font></td><td bgcolor=006699><font face=Verdana><font color=FFA34F><font size=1><b>PLZ</b></font></td><td bgcolor=006699>   </td><td bgcolor=006699><font face=Verdana><font color=FFA34F><font size=1><b>Stadt</b></font></td><td bgcolor=006699><font face=Verdana><font color=FFA34F><font size=1><b>Bundesland</b></font></td></tr>";
      while(get_next)
      {
        out "<tr bgcolor=DEE3E7><td><a href=\"$_link&Id=$_id\">$Vereinsname</a></td><td>$PLZ</td><td></td><td>$Stadt</td><td>$Bundesland</td></tr>";
      }
      out "</table>";
      </perl>
      

      </body></html>


      Danke für eure Hinweise!

      Ciao
          Peter
      

     Antworten

    Beitrag von Peter Heck (12 Beiträge) am Montag, 14.Juni.2004, 22:09. WWW: www.peter-heck.de
    Re: Ändern von Datenbankeinträgen

      Habe noch einen Fehler entdeckt (leider erst nach dem Freischalten für die Anwender):

      Ab und zu wird beim Ändern eines Satzes ein komplett neuer, leerer Datensatz angefügt - wo kann das denn herkommen (kann doch eigentlich nicht sein, da kein "add" verwendet wird, oder???

      Ciao
         Peter
      

     Antworten


     
 Liste der Einträge von 29851 bis 30001:Einklappen Zur Eingabe 
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < Zur Eingabe  > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge


Zurück zur Homepage

© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen



powered in 0.12s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!