Ik ben heel positief begonnen met Lazarus, maar krabbel een beetje terug.
Wat is er aan de hand. Ik maak een programma, waarin ik al mijn boeken in kan zetten, de ik gelezen heb in de bibiliotheek. Daarvoor maak ik gebruik van een form, en twee datamodules. In de eerste datamodule staat de connectie (SQLite) naar de database. Ook staat haar de tabel, waar ik mee ga werken. In de tweede datamodule staan twee lookupbestanden. De connectie wordt uit de eerste datamodule gehaald. Compileren is geen probleem, maar het opstarten van de executable gaat niet zonder problemen. dit zorgt ervoor dat mijn Lookupcombos geconnecteerd worden:
delphi Code:
procedure TForm1.FormShow(Sender: TObject); begin DsBoeken.DataSet := DM.Boeken; DM.ZConnection1.Connect; FDMLookup := TDMLookup.create(Form1); DBLCKTalen.ListSource := FDMLookup.DsTalen; DBLCKTalen.KeyField := 'taalcode'; DBLCKTalen.ListField := 'omschrijving'; FDMLookup.talen.active := true; DBLCKGengres.listSource := FDMLookup.DsGengres; DBLCKGengres.KeyField := 'genrecode'; DBLCKGengres.ListField := 'omschrijving'; FDMLookup.gengres.Active := true; DM.Boeken.Active := true; if DM.Boeken.EOF then DM.Boeken.Append; end;
Toch resulteert dit in een foutmelding:
Ik weet niet waarom. Het veld omschrijving wordt niet gevonden, maar bestaat wel degelijk. Als ik de regels met DBLCKTalen als commentaarregel zet, komt de melding van DBLCKGengres.talen : Field not found : "omschrijving".
Press OK to ignore and risk data corruption.
Press Cancel to kill the program.
Ik doe het toch wel goed? Deze constructie gebruik ik ook in Delphi zonder problemen.
Ik maak gebruik van Lazarus 0.9.3 met ZEOS 6.6.6
Bookmarks