SQL Anweisung

[Hansa]

Hi,

Code:

  Sql.Add(' where (Datum = ' + QuotedStr(DatetoStr(Datum)) +' and Typ = irgendwas)');

Ich tendiere vom logischen her eher zu möglichkeit b :roll: Ich auch :!: ,aber wo ist denn die Möglichkeit ? Da stimmt schon wieder etwas mit den ' nicht. Eine Klammer ist auch zuviel. Wie willst Du so jemals compilierern ?

Gruß
Hansa

[Scorpion]

möglichkeit B habe ich zum compilieren gebracht, abgesehen von der klammer, aber es ging trotzdem nicht

[Hansa]

Typ schreibt man mit e am Schluß.

Gruß
Hansa

[Scorpion]

Typ ist ein Datenbankfeld !!

[Hansa]

Hi,

Code:

Sql.Add(' where (Datum = ' + QuotedStr(DatetoStr(Datum)) +' and Typ = irgendwas)');

Typ = irgendwas, das war das vermisste e von type. Vermute, daß bei "irgendwas" irgendwas :mrgreen: faul ist.

Gruß
Hansa

[Gollum]

Hallo,

das Problem liegt am Aufruf von ExecSQL vor Open. Es geht nur Entweder oder. Ein EXECSQL wird bei UPDATE, INSERT usw. aufgerufen. Wenn ich nur Daten aus einer Tabellen selektieren will, muss man Open benutzen.

[Hansa]

Probiers mal in diesem Stil :

Code:

  RecDS.Active := false;
  RecDS.SelectSQL.Text := 'SELECT R.*,A.* FROM REC8 R JOIN ART8 A ON A.ID = R.ID_ART)'+' WHERE R.ID_RECKOPF = ' + ReNrEdit.Text + ';
  RecDS.Active := true;
end;

Also :

1. active auf false setzen
2. SQL-Anweisung zusammenbauen.
3. active auf true setzen

Hierbei ist zu beachten : Ich mache das mit FIBplus-Komponenten. Ob es sonstwo in der Weise funktioniert, weiß ich nicht. Müßte aber auch gehen. zumindest FIBplus ist mit TdataSet kompatibel. Das SELECT kann natürlich auch einfacher sein.

Gruß
Hansa