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
 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 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.