Query mit Parametern vorbereiten

[barnti]

Hi,

ich arbeite mit mysql und den mysqlDAC und versuche das folgende:

Delphi-Quellcode:

    Query.Close;
    Query.Prepared := True;

    Query.SQL.Add('SELECT *');
    Query.SQL.Add('FROM Tablename');
    Query.SQL.Add('WHERE :KeyName='+QuotedStr(KeyValue));
    
    Query.Params.ParamByName('KeyName').Value:= Edit.Text;

Fehlermeldung: '' is not a valid integer.

Query.SQL.Text:

SQL-Code:

SELECT * 
FROM KUNDE
WHERE :Kunde_ID=1

Was wohl bedeutet, dass der Parameter nicht richtig erkannt wird!? Wie setze ich das Statement korrekt zusammen?

[Sharky]

Hai barnti,

versuche mal

Delphi-Quellcode:

 Query.Params.ParamByName('KeyName').AsString:= Edit.Text;

[CenBells]

Hallo,

mach mal das Prepared hinter das PAramByName, also

Delphi-Quellcode:

    Query.Close;

    Query.SQL.Add('SELECT *');
    Query.SQL.Add('FROM Tablename');
    Query.SQL.Add('WHERE :KeyName='+QuotedStr(KeyValue));
   
    Query.Params.ParamByName('KeyName').Value:= Edit.Text;
    Query.Prepared := True;

Gruß
Ken

[barnti]

Hallo sharky,

leider das selbe Ergebnis.
Ich habe, glaube ich, das Vorbereiten einer Query mit Parametern noch nicht ganz geblickt...

Weitere Ideen?

[barnti]

Hi,

@CenBells:

leider keine Änderung...

[r_kerber]

Hallo barnti,

Zitat:

Zitat von barnti

Fehlermeldung: '' is not a valid integer.

Hast Du schon mal überprüft, was in Edit.Text drin steht? Wenn das leer ist, dann ist die Fehlermeldung völlig klar! Außerdem ist das SQL-Statement so wohl nicht korrekt.

SQL-Code:

SELECT * 
FROM KUNDE 
WHERE Kunde_ID=:KeyName

[Sharky]

Es scheint wirklich so zu sein das ich als Parameter keine Feldnamen eintragen kann?!??

[barnti]

Hi r_kerber,

Doch das ist schon so gemeint. Ich möchte alle variablen Werte in Parametern abbilden.

Zitat:

Hast Du schon mal überprüft, was in Edit.Text drin steht? Wenn das leer ist, dann ist die Fehlermeldung völlig klar!

Statement: siehe oben.

Noch einmal zum Verständnis:

Ich möchte die aktuelle Tabelle mit dem aktuellen Wert noch eimal in der DB abrufen:

Tablename: Kunde

Delphi-Quellcode:

    Query.Close;
    Query.Prepared := True;

    Query.SQL.Add('SELECT *');
    Query.SQL.Add('FROM Table');

    Query.SQL.Add('and :KeyName=:KeyValue');
    Query.SQL.Add('FOR UPDATE');
    Query.SQL.Text;

                                                    // Hier steht mein Feldname: 'Kunde_ID'
    Query.Params.ParamByName('KeyName').AsString:=  Grid.DataSource.DataSet.Fields[0].FieldName;
                                                    // Hier steht mein Wert des Feldes 'Kunde_ID'  
    Query.Params.ParamByName('KeyValue').AsString:= Grid.DataSource.DataSet.Fields[0].AsString;
                                                    // Hier steht der Tabellenname 'Table'  
    Query.Params.ParamByName('Table').AsString:=    Grid.DataSource.Name

[barnti]

@ sharky,

jo das fürchte ich auch. Ich kann nur Werte für Spaltenamen als Parameter übergeben!?

Das wäre sehr schade, denn die Benutzung von Parametern fördert die Lesbarkeit ungemein. Also: Keine Möglichkeit das mit Parametern zu lösen?

[Sharky]

Hai barnti,

bei meinen Tests ging es so nicht. Eine andere Möglickeit wäre das Du die "Parameter" für Tabelle und feldname durch ein StringReplace ersetzt.

[barnti]

@ sharky:

ich verwende im Moment im Quelltext 'normale' Stringvariablen, die ich mit 'QuotedStr(Variable)' in das Statement einbinde. Habe gedacht Paramerter wären die bessere Lösung...

[Sharky]

Hai barnti,

ich hatte die Situation noch nicht das ich erst zur Laufzeit festlegen musste welche Tabelle oder welches Feld überprüft wird ;-)

Aber hier eine "Lösung" für Dein Problem:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 with ZQuery1 do
 begin
   Close;
   SQL.Clear;
   SQL.Add('SELECT *');
   SQL.Add('FROM test1');
   SQL.Add('WHERE :key = :Value1');
   SQL.Text := StringReplace(SQL.Text,':key',Edit1.Text,[rfReplaceAll,rfIgnoreCase]);
   ParamByName('Value1').AsString:= Edit2.Text;
   Open;
 end;
end;

[barnti]

Hallo Sharky,

das ist fein :)

werde ich gleich mal ausprobieren. Danke Dir vielmals!

[r_kerber]

Zitat:

Zitat von Sharky

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 with ZQuery1 do
 begin
   Close;
   SQL.Clear;
   SQL.Add('SELECT *');
   SQL.Add('FROM test1');
   SQL.Add('WHERE :key = :Value1');
   SQL.Text := StringReplace(SQL.Text,':key',Edit1.Text,[rfReplaceAll,rfIgnoreCase]);
   ParamByName('Value1').AsString:= Edit2.Text;
   Open;
 end;
end;

Warum nicht so:

Delphi-Quellcode:

   SQL.Add('WHERE ' + Trim (Edit1.Text) + ' = :Value1');

[Sharky]

Hai r_kerber,

Zitat:

Zitat von barnti

...Das wäre sehr schade, denn die Benutzung von Parametern fördert die Lesbarkeit ungemein....

barnti wollte es ja so haben ;-)

[r_kerber]

Aber im SQL gibt es nun mal keine Parameter für Feldnamen. Warum soll er sich so etwas Falsches dann erst angewöhnen? :gruebel: Wenn er dass dan mit "normalem" SQL-Zugriff versucht, hat er wieder Probleme! Und ob die Geschichte mit dem StringReplace die Lesbarkeit tatsächlich verbessert, wage ich zu bezweifeln.

[Robert_G]

Eine bessere Lesbarkeit lässt sich auch so erreichen:

Delphi-Quellcode:

   ...
   SQL.Text := Format(
     'SELECT *' + #10 +
     'FROM test1' + #10 +
     'WHERE %s = :Value1'
     ,[Edit1.Text]);
   ...

Das ist aber, wie r_Kerber shon gesagt hat, nicht wirklich das Gelbe vom Ei. :wink:

Eine andere Möglichkeit wären Substitution (Ersetzungs) -Variablen, wenn deine DB-Kompos das unterstützen.
Das sieht mit DOA so aus:

Delphi-Quellcode:

With OracleQuery Do
Begin
  SQL.Text :=
    'SELECT *' + #10 +
    'FROM test1' + #10 +
    'WHERE :Key = :Value1';
  DeclareVariable('Key', otSubst);
  DeclareVariable('Value1', otString);
  SetVariable('Key', Edit1.Text);
  SetVariable('Value1', Edit2.Text);
  Execute;
  ...
End;

Weil sich bei beiden Lösungen das Statement ändert muss der Server den Code neu parsen und ausführen.
Überlege dir also genau, wann du diese Ersetzungen einsetzt...

[barnti]

Hallo Leute,

in erster Linie geht es mir um die Lesbarkeit, das ist richtig. Weiter hat es für mich den Vorteil, dass ich auf 'QuotedStr' verzichten kann.

Ist halt Geschmackssache...

[r_kerber]

Hallo Robert,

ich würde Deinen ersten Vorschlg favorisieren, da hier nicht it "falschem Parameter" gearbeitet wir.

@Barnti: Dein Wunsch in Ehren. Du solltest aber versuchen, mit korrekten SQL-Statements zu arbeiten. Und in SQL gibt es nun mal keine Parameter für Tabellenfelder! Nicht nur der Delphi-Quellcode sollte korrekt sein sondern auch der "SQL-Quellcode"! Und wie Robert schon schrieb, denke auch an die Ausführungs-Performance der SQL-Statements.