TParams und SQL Strings *heul*

[FlatG]

Boah alter Schwede ich kriegs einfach net hin

Code:

procedure TFenster_Main.ComboBox1Change(Sender: TObject);
var
    stmtParams : TParams;
begin
    Query1.SQL.Clear;
    stmtParams := TParams.Create;
    stmtParams.CreateParam(ftString, 'Abfrage', ptInput   );
    stmtParams.ParamByName('Abfrage').AsString := 'Word';
    Query1.SQL.Add( ' SELECT * FROM T_Text_Typ WHERE (Name = '':Abfrage'') ');
    Query1.Prepare;
    Query1.ExecSQL();
    Query1.Open;

    Query1.Close;
end;

es kann eigentlich nur an den Semikolons liegen, dass sich die SQL Abfrage in nichts auflöst, weil der Parameteraufbau ist doch ok, oder etwa nicht?

[Gollum]

Hallo,

folgend ein Ausschnitt aus der Delphi-Hilfe:

Code:

Query2.SQL.Clear;

Query2.SQL.Add('INSERT INTO LÄNDER (NAME, HAUPTSTADT, EINWOHNER)');
Query2.SQL.Add('VALUES (:Name, :Hautpstadt, :Einwohner)');

Query2.Params[0].AsString := 'Liechtenstein';
Query2.Params[1].AsString := 'Vaduz';
Query2.Params[2].AsInteger := 420000;
Query2.ExecSQL;

[sakura]

Einfach mal so ändern

Delphi-Quellcode:

procedure TFenster_Main.ComboBox1Change(Sender: TObject);
begin
    Query1.SQL.Clear;
    Query1.SQL.Add( ' SELECT * FROM T_Text_Typ WHERE (Name = '':Abfrage'') ');
    Query1.Params.ParamByName('Abfrage').AsString := 'Word';
    Query1.Prepare;
    Query1.ExecSQL();
    Query1.Open;

    Query1.Close;
end;

......

[FlatG]

hmm, also ich bin nun wirklich niemand, der hier antanzt ohne sich vorher eingehendst mit der HIlfe beschäftigt zu haben und die Zeilen, die du mir da kopiert hast, KANN ICH NICHT MEHR SEHEN

ich bin newbie und kriegs net hin, so hats jedenfalls auch net hingehauen gehabt, als ichs versucht hab auf meine select anweisung umzubasteln

könntest du mir vielleicht mal schnell ein SELECT Beispiel daraus basteln?

und wo genau ist der fehler in meinem script da oben?

[Gollum]

Hallo,

in Deinem Fall macht ExexSQL keinen Sinn, also weglassen. Sollte es mit dem Parameter nicht funtionieren, kannst Du noch folgendes ausprobieren:

Code:

 Query1.SQL.Clear; 
 Query1.SQL.Add('SELECT * FROM T_Text_Typ');
 Query1.SQL.Add(Format('WHERE (Name="%s")', ['Word'])); 
 Query1.Prepare; 
 Query1.Open; 
 ...
 Query1.Close;

[FlatG]

eine Exception der Klasse EDatabaseError tritt auf:

Meldung: 'Query1: Parameter 'Abfrage' nicht gefunden'

Kleiner Nachtrag: Ob ich nun Open weglasse, den Parameterwert erst nach der SQL Anweisung zuordne (egal ob ich vorher paramcreate mache oder nicht) ich kriege immer eine Exception :/

[Gollum]

Hallo,

generell gilt: Bei SELECT immer Query1.Open und bei Datenmanipulation wie INSERT, UPDATE immer Query1.ExecSQL.

Wie sieht es mit meinem Beispiel aus? Funtioniert dieser Weg?

[FlatG]

Leider auch nicht =(

Code:

    Query1.SQL.Clear;
    Query1.SQL.Add( ' SELECT * FROM T_Text_Typ');
    Query1.SQL.Add(Format('WHERE (Name="%s")', ['Word']));
    Query1.Prepare;
    Query1.Open;
    ShowMessage(Query1.FieldByName('Name').AsString);
    Query1.Close;

Diesmal gibts folgende Exception:

Im Projekt soundso ist eine Exception der Klasse EDBEngineError aufgetreten. Meldung: 'Allgemeiner SQL-Fehler [Microsoft][ODBC Microsoft Access Driver] 1 Parameter wurden erwartet, aber es wurden zu wenig Parameter übergeben. Prozess wurde angehalten etc.

[Gollum]

Hallo,

wie sieht Dein Code jetzt aus, der die Fehlermeldung erzeugt?

[Lemmy]

Hi,

Delphi-Quellcode:

procedure TFenster_Main.ComboBox1Change(Sender: TObject);
begin
    Query1.SQL.Clear;
    Query1.SQL.Add( ' SELECT * FROM T_Text_Typ WHERE (Name = '':Abfrage'') ');
    Query1.Params.ParamByName('Abfrage').AsString := 'Word';
    Query1.Prepare;
    Query1.ExecSQL();
    Query1.Open;

    Query1.Close;
end;

Was sollen die besch*** ' in der Abfrage?? So muss das aussehen:

Delphi-Quellcode:

procedure TFenster_Main.ComboBox1Change(Sender: TObject);
begin
    Query1.SQL.Clear;
    Query1.SQL.Add('SELECT * FROM T_Text_Typ WHERE (Name=:Abfrage)');
   // Query1.Prepare;
    Query1.Params.ParamByName('Abfrage').AsString := 'Word';
    Query1.Open;
    Query1.Close;
end;

Wobei ich das Prepare versuchsweise mal weglassen würde. Der Parameter Abfrage ist Bestandteil des Statements Mit den ' wird es als stink normaler Text ausgewertet, d.h ein SQL wie folgt angenommen:

SELECT * FROM T_Text_Typ WHERE (Name=':Abfrage');