Fehlermeldung beim Zurücksetzten des Generatoren

[Kruppi]

Hallo allerseits

ich komme nicht mehr weiter und versteh nicht warum ich diese fehlermeldung bekommen.


SDS_Generator.DataSet.CommandText := ' SQLConnGen.ExecuteDirect(' SET GENERATOR G_KR To 0')'; Die Fehlermeldung kommt bei " SET " und sagt mir dass es ein END erwartet und stattdessen ein SET gefunden hat.


was ist falsch daran?

[grenni999]

Hi!
Ich denke du solltest dein Hochkomma nach <ExecuteDirect(> maskieren, sonst ist hier dein String zu ende:

ExecuteDirect(' SET GENERATOR

[Kruppi]

So??
SDS_Generator.DataSet.CommandText := ' SQLConnGen.ExecuteDirect('' SET GENERATOR G_KR To 0'')';

[DeddyH]

Oder so:
SDS_Generator.DataSet.CommandText := Format('SQLConnGen.ExecuteDirect(%s)', [QuotedStr('SET GENERATOR G_KR To 0')]);

[Kruppi]

ok danke erstmal

jetzt bekomm ich diese fehlermeldung

Token unknown – line 1, column SQLConnGen

[nahpets]

Ich gehe mal davon aus, dass Du in Deinem Programm diesen Befehlt ausführen willst:

SQLConnGen.ExecuteDirect('SET GENERATOR G_KR To 0'); Damit wird dann vom Delphiprogramm die Datenbank dazu veranlasst den Generator auf 0 gesetzt.

In Deiner ursprünglischen Variante soll aber die Datenbank die Delphianweisung ausführen, mit der das Delphiprogramm die Datenbank dazu veranlasst, den Generator auf 0 zu setzen, und das scheitert.

Da ist ein Zwischenschritt zuviel drin.

[Kruppi]

So habe ich es gemacht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
SDS_Generator.Close;
SDS_Generator.DataSet.CommandText := ' SQLConnGen.ExecuteDirect(' SET GENERATOR G_KR To 0')';
SDS_Generator.Open;

[nahpets]

und das funktioniert?

[Kruppi]

Nein, bekomme jetzt die wieder die Fehlermeldung mit Token unknown in line1, column 20

[nahpets]

Zitat von Kruppi:

Nein, bekomme jetzt die wieder die Fehlermeldung mit Token unknown in line1, column 20

Dann lies doch bitte nochmal dies: http://www.delphipraxis.net/1329264-post6.html