Hi,
Ich benutze FireBird 1.5 Embedded mit den ZEOS Komponenten. Ich habe ein, für mich, sehr seltsames Problem. Ich habe eine DBLookUpListBox und ein DBEdit Die mit den richtigen Feldern und Datasets verbunden sind. Diese zeigen bei mir auch Daten an. Wenn ich aber nun in meinem DBEdit einen Datensatzt, welchen ich aus der ListBox gewählt habe editiere und auf meinen "ÜbernehmenButton"
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| Procedure TFahrerForm.Btn_FahrerOkClick(Sender: TObject);
Begin
MainForm.Dataset.ApplyUpdates;
MainForm.Dataset.CommitUpdates;
Close;
End; |
drücke, bekomme ich die Fehlermeldung
"SQL Error: Dynamic SQL Error SQL Error Code:-104 Unexpected End of Command. Error Code:-104 Invalid Token"
Mein Programm führt vom Programmstart bis zum Fehler folgenden relevanten Source aus:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
| Connection := TZConnection.Create(self);
Dataset := TZQuery.Create(self);
Dataset.Connection := FConnection;
Dataset.CachedUpdates := True;
Dataset.ReadOnly := False;
MyDataSource.DataSet := FDataset;
UpdateDataset := TZUpdateSQL.Create(self);
Dataset.UpdateObject := FUpdateDataset;
Connection.Protocol := 'firebird-1.5';
Connection.Database := GetHomeDir + 'MYDB.FDB';
Connection.User := 'USER';
Connection.Password := 'PW';
Connection.ReadOnly := False;
Connection.TransactIsolationLevel := tiReadCommitted;
Connection.Connect;
DBLkU_Fahrer.ListSource := MainForm.MyDataSource;
DBLkU_Fahrer.ListField := 'FAHRERNAME';
DBLkU_Fahrer.KeyField := 'FID';
DBEd_Name.DataSource := MainForm.MyDataSource;
DBEd_Name.DataField := 'FAHRERNAME';
Dataset.SQL.Text := 'SELECT * FROM Fahrer ORDER BY FID ASC;';
Dataset.Open;
Dataset.ApplyUpdates; Dataset.CommitUpdates;
[...] |
mfg matze
Macht der Gewohnheit, am Ende einer Zeile bzw Statemnets ein Semikolon zu setzen (ist mir auch schon passiert...) 
raiguen