Fehlermeldung beim Zurücksetzten des Generatoren

[Kruppi]

Hallo allerseits

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

Delphi-Quellcode:

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??

Delphi-Quellcode:

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

[DeddyH]

Oder so:

Delphi-Quellcode:

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:

Delphi-Quellcode:

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:

Zitat von Kruppi (Beitrag 1329279)

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

[hoika]

Hallo,

SDS_Generator.DataSet.CommandText := 'SET GENERATOR G_KR To 0';

oder nimm eine einfache Query statt des DataSets.

oder
SQLConnGen.ExecuteDirect('SET GENERATOR G_KR To 0');


Heiko

[Kruppi]

JO danke
hatte brett vorm kopf

Delphi-Quellcode:

SQLConnGenPTV.ExecuteDirect('SET GENERATOR G_KR To 0')

:thumb:

[p80286]

Delphi-Quellcode:

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

das ist doppeltgemoppelt!
entweder

Delphi-Quellcode:

SDS_Generator.DataSet.CommandText := 'SET GENERATOR G_KR To 0');

oder

Delphi-Quellcode:

SQLConnGen.ExecuteDirect(' SET GENERATOR G_KR To 0');

(ich weiß jetzt nicht was die korrekte Syntax für Deine DB-Komponente ist)

Gruß
K-H