Datentypfehler bei SQL Parameter

[toner]

Hallo Leute,

leider komme ich nun zum ersten Mal in den Genuss auch eine Frage zu stellen:

Ich habe eine Tabelle auf einem MySQL Server die wie in Anhang tabelle.jpg aussieht, die ich aus Delphi XE2 per DBExpress TSQLQuery abfragen will.

Folgender Code:

Delphi-Quellcode:

  qryManage.SQL.Clear;
  qryManage.Params.Clear;
  qryManage.SQL.Add('SELECT DISTINCT section FROM racks WHERE rack = :rack');
  qryManage.SQL.Add('ORDER BY section ASC');
  with qryManage.Params.CreateParam(ftShortInt, ':rack', ptInput) do
    AsShortInt := StrToInt(cbRack.Selected.Text);

  qryManage.Open;

erzeugt mir den Fehler:
"Der dbExpress-Treiber unterstützt den Datentyp TDBXTypes.UNKNOWN nicht. Fehlermeldung des Herstellers: ."


Laut HeidiSQL hat der MySQL Datentyp TINYINT UNSIGNED einen Wertebereich von 0-255, weshalb ich statt ftShortInt auch schon ftByte, ftWord, ftSmallInt versucht hab.
Ein

Delphi-Quellcode:

  GetEnumName(TypeInfo(TFieldType), Integer(qryManage.FieldByName('rack').DataType));

gibt mir jedoch ftShortInt zurück, und ein

Delphi-Quellcode:

  qryManage.FieldByName('rack').DataSize;

ne 1;

Deklariere ich die MySQL Spalte als Integer und den Parameter des Querys ebenfalls, so funktioniert alles einwandfrei.

Kann mich da einer mal aufklären?

[p80286]

Klappt es denn so?

Delphi-Quellcode:

 qryManage.SQL.Clear;
  qryManage.SQL.Add('SELECT DISTINCT section FROM racks WHERE rack = :rack');
  qryManage.SQL.Add('ORDER BY section ASC');
  qryManage.Params.Parambyname('rack').asinteger:= ptInput;
  qryManage.Open;

ggf.

Delphi-Quellcode:

qryManage.Params.Parambyname('rack').value

oder

Delphi-Quellcode:

qryManage.Parambyname('rack').asinteger

Ich kenne DBExpress nicht so gut.

Gruß
K-H

[toner]

Jo!

Delphi-Quellcode:

  qryManage.SQL.Clear;
  qryManage.Params.Clear;
  qryManage.SQL.Add('SELECT DISTINCT section FROM racks WHERE rack = :rack');
  qryManage.SQL.Add('ORDER BY section ASC');
  qryManage.ParamByName('rack').AsInteger  := StrToInt(cbRack.Selected.Text);
  MessageDLG(GetEnumName(TypeInfo(TFieldType),
    Integer(qryManage.ParamByName('rack').DataType)), TMsgDlgType.mtInformation,
    [TMsgDlgBtn.mbOK], 0);

  qryManage.Open;

funktioniert, aber ganz verstehen tu ich es nicht. Der MessageDLg gibt mir "ftInteger" aus, womit ich es aber bei CreateParam() auch schon versucht hätte. Egal, hauptsache funktioniert.

Eine Anmerkung noch für alle die hier drüberstolpern:

Delphi-Quellcode:

  qryManage.SQL.Clear;
  qryManage.SQL.Add('SELECT * from dummy where name = :name');
  qryManage.Params.Clear;  //Nicht!
  qryManage.ParamByName('name').AsString:= 'hans';

sollte man nicht machen, weil das Query beim zuweisen eines SQL Textes automatisch nach Parametern scant und TParams in TSqlQuery.Params erzeugt, und diese dann mit dem Clear gelöscht würden. Siehe (bescheidene) Delphi Hilfe:

Params ist eine Kollektion von TParam-Objekten, die die Parameter einer von der SQL-Datenmenge ausgeführten Abfrage oder Stored Procedure darstellen. Wenn Sie in der Eigenschaft CommandText (oder SQL bei TSQLQuery-Objekten) eine Abfrage festlegen, sucht die SQL-Datenmenge automatisch nach Parametern und weist der Eigenschaft Params für jeden in der Abfrage gefundenen Parameter ein eigenes TParam-Objekt zu. Wenn Sie in CommandText (oder StoredProcName bei TSQLStoredProc-Objekten) eine Stored Procedure angeben, ruft die SQL-Datenmenge vom Server eine Parameterliste ab und weist Params für jeden Parameter der Stored Procedure ein TParam-Objekt zu.



Danke für die schnelle Antwort!

MfG

toner

[Sir Rufo]

Das Params.Clear kann man sich IMHO auch sparen, da beim Zuweisen die Parameter komplett gescannt werden.