Einzelnen Beitrag anzeigen

Benutzerbild von mschaefer
mschaefer

Registriert seit: 4. Feb 2003
Ort: Hannover
2.029 Beiträge
 
Delphi XE3 Enterprise
 
#7

Re: ADO-Tabelle löschen und neu füllen

  Alt 25. Jun 2009, 08:56
Moin, moin,

also mit Ado und Access würde ich das mit Folgendem angehen...

Delphi-Quellcode:

var Level: integer;
begin
  // Query bereit machen
  if ADOQuery.Active then ADOQuery.Active := false
  ADOQuery. Clear;
  Level:=ADOConnection1.BeginTrans;
  try
    //-------------------------
    // Datenbankoperationen
    //-------------------------

    . . .
    ADOQuery.Add('Update ....
ADOQuery.Exceute
. . .

//-------------------------
//-------------------------
ADOConnection1.CommitTrans;
except
on E:Exception do
begin
ADOConnection1.RollbackTrans;
end;
end;//try
ADOQuery.Active := false;
ADOQuery. Clear;
end;
Grüße in die Runde // Martin
Martin Schaefer
Phaeno
  Mit Zitat antworten Zitat