DB Parameter

[youuu]

Hi,

Gibt es eine Möglichkeit die DB Parameter:

Delphi-Quellcode:

QueryRead.Params.ParamValues['test']:= Infos.test;
.
.
.
.
.
.
.
.

Einmalig für alle Querys zu definieren oder muss man sie unter jeden Query erneut schreiben?

[Jens Hartmann]

Hallo,

wenn du in der Query, deinen SQL-String zuweisen tust, und dort die Parameter angibts (Was Du ja musst), werden die Parameter automatisch gesetzt. (Entwicklungszeit),

Da ich aber bis jetzt die ganze Sache so verstanden habe, jede Abfrage etc. eine eigene Query, ist es ja so kein Problem.

Gruß Jens

[sx2008]

Du kannst natürlich eine private Methode schreiben:

Delphi-Quellcode:

procedure TForm1.SetzeAlleParameter(qry:TMySQLQuery; Infos:TIrgendEinRecordOderKlasse);
begin
  Assert(Assigned(qry)); // Sicherheitsabfrage
  qry.Params.ParamValues['test']:= Infos.test;
  ..
end;

Bei vielen Queries und Parameter kann das viel Schreibarbeit sparen.

[hoika]

Hallo,

und die relevanten Queries kommen noch in eine TList (z.B.),
dann geht das ganze per Schleife.


Heiko

[youuu]

Allerdings tritt da ein Problem bei mir auf.

Wenn ich die Procedure benutze

Bsp:

Delphi-Quellcode:

public
  Procedure ParamInfo (qry: TMyQuery);

Delphi-Quellcode:

Procedure TFormMain.ParamInfo (qry: TMyQuery);
Begin
  Assert(assigned(qry)); //Sicherheitsabfrage
  qry.Params.ParamValues['histC']:= Infos.Hist;
End;

Allerdings nun in einer anderen Unit verwenden möchte per

Delphi-Quellcode:

FormMain.ParamInfo(QueryInsert);

aufruf.
Funktioniert es nicht da mir Delphi sagt QueryInsert undeklarierter Bezeichner.

[DeddyH]

Hast Du denn auch in der aufrufenden Unit eine Variable QueryInsert vom Typ TMyQuery instanziert?

[youuu]

Ebend nicht, da das lediglich eine Unit ist ohne eine Form, daher kann ich die Komponente nicht auf die Form.

[DeddyH]

Wieso Komponente? Ich habe von der Instanz QueryInsert des Typs TMyQuery gesprochen. Auf Deutsch:

Delphi-Quellcode:

var QueryInsert: TMyQuery;
...
  QueryInsert := TMyQuery.Create(<Parameter>);

Diese Instanz musst Du dann übergeben.

[youuu]

Danke das wusste ich gar nicht.
Funktionietr nun auch alles, allerdings eine Frage dazu.

Wenn ich nun mehre Parameter angebe, allerdings niht alle verwenden muss in dem Query, dann spuckt Delphi einen Fehler aus über die nicht vrweneten Parameter. Ist das normal bzw kann man dies umgehen ohne die Parameter zu löschen? Da sie in eine Procedure aus gelagert wurden.

Ist jetzt nicht sehr wichtig, aber wäre interessant zu wiessen.

[DeddyH]

Das kann ich aus dem Hut nicht beantworten, da ich alle Parameter, die ich definiere, auch verwende. Evtl. könnte man die Werte ja als array of const übergeben, um flexibel zu bleiben (sofern die Procedure für mehrere Queries mit unterschiedlicher Parameteranzahl verwendet wird).