Oke, ik ben eens lekker bezig, en loop tegen een probleempje aan.
Ik probeer een database (sqlite), tijdens het aanroepen van de datamodule wordt het bestand aangemaakt, maar het maken van de velden word overgeslagen, en dat was nou net niet mijn idee!.
Ik heb de code nu al twee keer overgeschreven, maar de fout blijft, dus ga ik er vanuit dat er in de code gewoon iets niet goed staat, ik kan er alleen niet achter komen wat.
Zien jullie hier een oplossing in, krijg heel soms de melding "Database not assigned"
Tegenwoordig maak ik gebruik van Lazarus, en wat ik al aangaf SQLite, die worden aangesproken via de standaard componenten, maar dat ter extra informatie.
Alvast bedankCode:procedure TDM1.DataModuleCreate(Sender: TObject); var DataFile : boolean; CreateTables : boolean; begin Connect1.Close; try Connect1.DatabaseName := 'dagboek.sdb'; Connect1.Connected := True; DataFile := not FileExists(Connect1.DatabaseName); begin try Connect1.Open; CreateTables := not FileExists(Connect1.DatabaseName); if CreateTables then begin SQLQ1.SQL.Add('CREATE TABLE "DAGBOEK"( '+ '"DagboekID" integer NOT NULL PRIMARY KEY AUTOINCREMENT,' + '"Datum" Date NOT NULL,' + '"Titel" VARCHAR(50),' + '"Omschrijving" MEMO);'); SQLQ1.SQL.Add('CREATE UNIQUE INDEX "DAGBOEK_DagboekID_idx" ON "DAGBOEK"("DagboekID");'); SQLQ1.ExecSQL; end; ShowMessage('Uw Dagboek is aangemaakt'); except ShowMessage('Er was een probleem met het maken van het dagboek'); end; end; except ShowMessage('Kan niet controleren of uw dagboek al bestaat'); end; end; end.
Bookmarks