Mehr infos.
Ein BtClick führt die Proceure Speichern aus.
Delphi-Quellcode:
procedure TDatenbank.speichern;
var
Txn : FBTransaction;
comm : fbcommand;
begin
con.Open();
txn := con.BeginTransaction;
Daten.AcceptChanges;
daTalente.Update(Daten, 'Talente');
txn.Commit();
con.Close();
end;
So erstelle ich die Conn
Delphi-Quellcode:
procedure TDatenbank.createdb(typ : boolean);
begin
ErstelleConnections;
Daten := DataSet.Create('Datenbank');
if typ then
begin
Con := Server;
end else begin
Con := Embetted;
end;
ErstelleTalente;
end;
procedure TDatenbank.ErstelleConnections;
var
ConnStr: string;
begin
fbCon := FbConnectionStringBuilder.Create;
fbcon.UserID := 'SYSDBA';
fbcon.Password := 'masterkey';
fbcon.Database := Application.StartUpPath + '\DATENBANK.FDB';
fbcon.ServerType := 1; // embedded Firebird Con.
fbcon.Dialect := 3;
Embetted := FBconnection.Create(fbCon.ToString);
fbcon.ServerType := 0;
Server := FBconnection.Create(fbCon.ToString);
end;
Und so sieht die Procedure ErstelleTalente aus
Delphi-Quellcode:
procedure TDatenbank.ErstelleTalente;
var Insert : String;
comm : FBCommand;
begin
daTalente := FBDataAdapter.Create('Select * from Talente', con);
builder := FBCommandBuilder.Create(daTalente);
dtTalente := Datatable.Create('Talente');
Daten.Tables.Add(dtTalente);
daTalente.Fill(dtTalente);
end;
Wie gehe ich nun vor, wenn die im DataSet vorhandenen Daten geschrieben werdne sollen?