TQuery variabel

[Jens Hartmann]

Zitat von mkinzler:

Hat halt Probleme mit der Transaktionsverwaltung ( keine harten Comitts ohen Trennung der Verbindung

Das ist richtig, aber auch kein Problem, wenn man das beim Commit beachtet.

Gruß Jens

[fl63]

Also werd ich mir mal einige der genannten Dialekte mal ansehen.

Zurück zum Ausgangsthema: Anbei mein Quelltext mit einem Button zur Abfrage von beiden Feldern

Delphi-Quellcode:

Var SQLString1,SQLString2: String;
begin
If Edit1.Text = '' then Edit1.Text := '..';
If Edit2.Text = '' then Edit2.Text := '..';
SQLString1:= StringReplace(Edit1.Text,'#','_',[rfReplaceAll]);
SQLString1:= StringReplace(SQLString1,'..','%',[rfReplaceAll]);
SQLString2:= StringReplace(Edit2.Text,'#','_',[rfReplaceAll]);
SQLString2:= StringReplace(SQLString2,'..','%',[rfReplaceAll]);
  with Query1 do
  begin
    Active:=False;
    SQL.Clear;
    SQL.Add('Select * from gesamt3 where Upper (feld001) Like Upper (:feld1.text) ');
    SQL.Add('And Upper (feld002) Like Upper (:feld2.text) ');
    ParamByName('feld1.text').asString := SQLString1;
    ParamByName('feld2.text').asString := SQLString2;
    Active:=True;
  end;
end;

Jetzt ist nur noch die Tabelle "gesamt3" noch nicht variabel
Muß ich den Quelltext jedesmal ändern wenn eine andere Tabelle benötigt wird??

[waldforest]

Hallo,
da das SQL_ADD als Parameter einen String erwartet dürfte doch eigentlich
Tabellenname := 'gesamt3';
SQL.Add('Select * from '+Tabellenname+' where Upper (feld001) Like Upper (:feld1.text) ');

funktionieren,
oder ??

[mkinzler]

Ja, wobei man wohl besser SQL.Text nehmen sollte.

[waldforest]

Hallo,
da habe ich auch mal wieder etwas gelernt.

Die Sufu hat mit dem Hinweis hier etwas gefunden

SQL.Text


Allerdings habe ich gelesen, dass Firebird/Zeos die `Nodes` nicht kann, werd ich später mal ausbrobiern

[blawen]

Zitat von Jens Hartmann:

...die zumindest für den Anfang die kostenlose Komponente ZEOS. Ich sage für den Anfang, weil ich sonst hier gesteinigt werde, da nicht alle hier was von ZEOS halten...

Welche Komponentensammung wäre empfehlenswerter?

[Jens Hartmann]

Hallo,

aus Erfahrung kann ich da nichts zu sagen, weil ich nur mit ZEOS arbeite und zufrieden bin. Aber hier im Forum wird viel von FIBPlus und IBDAC gesprochen. Schau dir mal den folgenden Link an.

Firebird mit Delphi

Gruß Jens

[mkinzler]

Bei reinen Abfragen sollte wohl auch IBX ( Interbase Express) ausreichen, welches bei Delphi dabei ist.

[fl63]

Zitat von waldforest:

Hallo,
da das SQL_ADD als Parameter einen String erwartet dürfte doch eigentlich
Tabellenname := 'gesamt3';
SQL.Add('Select * from '+Tabellenname+' where Upper (feld001) Like Upper (:feld1.text) ');

funktionieren,
oder ??

Tabellenname allein macht die Sache doch nicht variabel. Ich stelle mir die Sache mit einer FilelistBox oder einem OpenDialog vor. Ich habs auch damit ausprobiert nur zeigen die Ergebnisse keine Wirkung.

[Jens Hartmann]

Zitat von fl63:

Tabellenname allein macht die Sache doch nicht variabel. Ich stelle mir die Sache mit einer FilelistBox oder einem OpenDialog vor. Ich habs auch damit ausprobiert nur zeigen die Ergebnisse keine Wirkung.

Was hast Du denn bislang im Bezug auf die FileListBox oder das OpenDialog ausprobiert.

Gruß Jens