ADO: Parameter funktionieren nicht(oder ich wende falsch an)

[shmia]

Zitat:

Zitat von Bernhard Geyer

Am SQL-Statement kann ich nichts verdächtiges erkennen.
Aber nimm mal statt Value -> AsString.

ADOParameter können entweder so

Delphi-Quellcode:

ADOdataset.Parameters.ParamValues['user'] := username;   // Variante A
// oder so
ADOdataset.Parameters.ParamByName('user').Value := username; // Variante B

befüllt werden.
Ich verwende meist Variante A, da weniger Schreibarbeit.
.AsString, .AsInteger, u.s.w. gibt es bei den Parametern nicht.

Zum Debuggen sollte man besser kein With ... Do Anweisung verwenden, sondern alles komplett ausschreiben.
Zumindest Delphi 2-5 können sonst die Inhalte beim Debuggen nicht anzeigen.

Wichtig: wenn die INSERT-Anweisung korrekt aussieht, aber dennoch Syntaxfehler gemeldet wird, liegt es meist an der Verwendung von reservierten Wörtern. Die Wörter "user" und "domain" könnten je nach SQL-Dialekt schon eine eigene Bedeutung haben.
Ich würde empfehlen, die Feldnamen zu ändern.

PS:

Delphi-Quellcode:

 // das gefällt mir überhaupt nicht
 // es sieht nach einem Speicherleck aus
 with TCipher_Rijndael.Create(PW, nil) do 
 begin 
   ParamByName('pw').Value := EncodeString(p.Passwort); 
 end; 
 // ich würde das Passwort zunächst direkt im Klartext speichern
 // nachdem das funktioniert hat, würde ich das verschlüsselte PW speichern

[Die Muhkuh]

Hi,

bin jetzt wieder zurück zum TADOQuery.

@shmia

Danke :)
Das mit den Feldbezeichnungen wars. Hab die geändert und zack, gings.

Das mit deinem PS hab ich schon geändert, trotzdem danke ;-)

[shmia]

Zitat:

Zitat von Spider

Das mit den Feldbezeichnungen wars. Hab die geändert und zack, gings.

Fein. Dann hoffe ich mal, dass sich diese reservierte Wörter in dein (und das der Mitleser) Gedächtnis eingebrannt hat.
Hier noch ein paar Listen dazu:
http://msdn.microsoft.com/library/de...ra-rz_9oj7.asp
http://developer.mimer.com/validator...rved-words.tml
http://www.jsoftware.com/books/help/...rved_words.htm
Man kann sich wirklich dumm und dämlich suchen, falls man eines dieser Wörter als Tabellen-, View- oder Feldname benützt.

[Die Muhkuh]

Zitat:

Zitat von shmia

Zitat:

Zitat von Spider

Das mit den Feldbezeichnungen wars. Hab die geändert und zack, gings.

Fein. Dann hoffe ich mal, dass sich diese reservierte Wörter in dein (und das der Mitleser) Gedächtnis eingebrannt hat.
Hier noch ein paar Listen dazu:
http://msdn.microsoft.com/library/de...ra-rz_9oj7.asp
http://developer.mimer.com/validator...rved-words.tml
http://www.jsoftware.com/books/help/...rved_words.htm
Man kann sich wirklich dumm und dämlich suchen, falls man eines dieser Wörter als Tabellen-, View- oder Feldname benützt.

Hihi, dass hoffe ich auch :mrgreen:

Danke für die Links ;-) Sowas kann man immer brauchen :D

[heyko]

Ich grabe diesen Thread mal wieder aus da mein Problem sehr ähnlich ist.


SQL:

Zitat:

SELECT * FROM tw_nutzer WHERE( userid = :param1 AND password = :param2 )

Code:

Delphi-Quellcode:

      {Zugriffsberechtigung des Nutzers aus TW_Nutzer abfragen}
      with qrySelNutzer do
      begin
        prepared:=  true;
        active  :=  false;
        close;
        Parameters.ParamByName('param1').Value   :=   edit_benutzer.text;
        Parameters.ParamByName('param2').Value :=   edit_password.text;
        prepared  :=  true;
        ExecSQL;
      end;

Letzten Endes wird aber nur folgendes ausgeführt:

Zitat:

SELECT * FROM tw_nutzer WHERE ( userid = ? AND password = ? )

Hilfe :pale:

[shmia]

Delphi-Quellcode:

with qrySelNutzer do 
begin 
   close; 
   // Schreibweise mit ParamValues[] ist kürzer als ParamByName().Value
   Parameters.ParamValues['param1'] := edit_benutzer.text; 
   Parameters.ParamValues['param2'] := edit_password.text; 
//   ExecSQL; // FALSCH! SELECT * FROM .... gibt ja eine Datenmenge zurück
   Open;  // Richtig
end;

[mkinzler]

Im ursprünlichen Thread ging es aber um einen INSERT

[heyko]

Zitat:

Zitat von mkinzler

Im ursprünlichen Thread ging es aber um einen INSERT

ja tut mir Leid ähnlich nicht identisch. :)

Leider hat mir das nicht geholfen. Habe es jetzt zwar abgekürzt aber laut ADOConnectionExecuteComplete sind die Platzhalter Fragezeichen immer noch da und wurden nicht durch die Werte ersetzt.

Habe es auf

Delphi-Quellcode:

      with qrySelNutzer do
      begin
        close;
        Parameters.ParamValues['param1'] :=   edit_benutzer.text;
        Parameters.ParamValues['param2'] :=   edit_password.text;
        Open;
...

geändert.

SQL Command:

SQL-Code:

SELECT *  FROM tw_nutzer WHERE ( userid = ? AND password = ? )

[shmia]

Zitat:

Zitat von heyko

.. aber laut ADOConnectionExecuteComplete sind die Platzhalter Fragezeichen immer noch da und wurden nicht durch die Werte ersetzt.

Achso! Diesen SQL-Text mit ersetzten Parametern wirst du auch nicht so einfach bekommen.
Die Ersetzung der Parameter Fragezeichen findet erst tiefer in einer ADO Treiberschicht statt.

Trotzdem arbeitet die Abfrage mit Parametern richtig.
Möglicherweise kann man die Parameterersetzung anhand des Interface "Command15" selbst vornehmen,
aber das passt jetzt nicht mehr zu diesen Thread.

[heyko]

Okay vielen Dank erstmal.