Einzelnen Beitrag anzeigen

Benutzerbild von Taladan
Taladan

Registriert seit: 5. Aug 2003
Ort: Osnabrück
505 Beiträge
 
Delphi 2005 Professional
 
#2

Re: Etwas in einer Tabelle/Dataset ändern

  Alt 27. Nov 2005, 18:15
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?
Marco
Wer Rechtschreibfehler findet, der darf sie behalten

Carpe Diem - Nutze den Tag (und zwar den ganzen!)
  Mit Zitat antworten Zitat