Ich erstelle meine Datenbank nu per Hand und nicht über die
IDE, da die häufig etwas vergisst (zu löschen oder zu schreiben). Bis zum Anzeigen bin ich schon gekommen. Jedoch weiß ich nicht wie ich nun meine Daten verändern, löschen neue Datensätze hinzufügen kann.
So sieht meine Beispieltabelle aus:
Kunden:
ID Integer not Null primary key
Name Char(80)
Vorname Char(80)
...
So mache ich es:
Delphi-Quellcode:
fbCon := FbConnectionStringBuilder.Create;
fbcon.UserID := 'SYSDBA';
fbcon.Password := 'masterkey';
fbcon.Database := Application.StartUpPath + '\DATENBANK.FDB';
fbcon.ServerType := 1; // embedded Firebird Con.
fbcon.Charset := 'ISO8859_1';
fbcon.Dialect := 3;
Embetted := FBconnection.Create(fbCon.ToString);
fbcon.ServerType := 0;
Server := FBconnection.Create(fbCon.ToString);
Daten := DataSet.Create('Datenbank');
if typ then
begin
Con := Server;
end else begin
Con := Embetted;
end;
daKD := FBDataAdapter.Create('Select * from Kunden', con);
dtkd := Datatable.Create('Kunden');
Daten.Tables.Add(dtkd);
daTalente.Fill(dtkd);
Dann werden die Elemente noch verbunden.
Delphi-Quellcode:
DataGrid1.DataSource := Daten;
Doch ein
Daten.AcceptChanges;
Bringt nur das die anderen verbundenen Elemente die Änderungen auch anzeigen. Sobald ich das Programm neu starte, sind die änderungen verfallen, bzw wurden gar nicht in der Datenbank hinterlegt.
Wie gehe ich nu vor?