SQL Anweisung

[Scorpion]

Hi, benutze folgenden Code, leider geht dieser nicht, ich weiss aber soviel, dass es wohl an der Anweisung nach dem and liegt, wenn ich diese weglasse gehts.

Code:

with Buchungen do
     begin
     Sql.Clear;
     Sql.Add('Select * from Buchungen.db');
    Sql.Add(' where Datum = ' + QuotedStr(DatetoStr(Datum)) +' and Typ = Irgendwas');
     Sql.Add(' order by Name');
     Execsql;
     Open;
     end;
end;

Gruss
Nico

[phlux]

ich meine anstatt Buchungen.db musst du den tabellennamen angeben

[Scorpion]

Daran liegts nicht, wie gesagt, ohne die And Anweisung gehts ja...

[phlux]

Dann lass mal das AND wech und ersetz es durch nen Komma

[MadMason]

du musst deine einzelnen kriterien in klammern setzen

[Scorpion]

Servus,

mit dem Komma gehts auch nicht. Wie genau soll das denn mit den Klammern aussehen?

Gruss
Nico

[phlux]

Möglichkeit A:

Code:

with Buchungen do
     begin
     Sql.Clear;
     Sql.Add('Select * from Buchungen.db');
    Sql.Add(' where (Datum = ' + QuotedStr(DatetoStr(Datum)) +') and (Typ = Irgendwas)');
     Sql.Add(' order by Name');
     Execsql;
     Open;
     end;
end;

Oder falls das nicht klappt
Möglichkeit B

Code:

with Buchungen do
     begin
     Sql.Clear;
     Sql.Add('Select * from Buchungen.db');
    Sql.Add(' where (Datum = ' + QuotedStr(DatetoStr(Datum)) +' and Typ = Irgendwas)');
     Sql.Add(' order by Name');
     Execsql;
     Open;
     end;
end;

Ich tendiere vom logischen her eher zu möglichkeit b :roll:

[Hansa]

Hi,

daß da irgendwas überhaupt geht, wundert mich, ehrlich gesagt schon ! Ich vermisse da einiges!

Gruß
Hansa

[Scorpion]

@Hansa,

wie würdest du es denn machen? Könntest du etwas Code posten?

Gruss

[phlux]

Zitat:

Zitat von Hansa

daß da irgendwas überhaupt geht, wundert mich, ehrlich gesagt schon ! Ich vermisse da einiges!

Nett das du da WAS vermisst, du kannst und dann auch bestimmt sagen WAS du vermisst oder? :lol:

[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