Ver Mensaje Individual
  #2  
Antiguo 20-05-2010
Avatar de Faust
Faust Faust is offline
Miembro
 
Registrado: abr 2006
Ubicación: México D.F.
Posts: 930
Reputación: 19
Faust Va por buen camino
Me respondo yo mismo...

De la manga me saqué esto:

Código Delphi [-]
procedure TfrmMain.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  conMDB.Open;
  conMDB.BeginTrans;
  conMDB.Execute('DELETE * FROM TABLA1;', i);
  if MessageDlg('¿Elliminar ' + IntToStr(i) + ' registros?', mtWarning, [mbYes, mbNo], 0) = mrYes then
    conMDB.CommitTrans;
  conMDB.Close
end;

conMDB es un TADOConnection.

y funciona... estoy buscando en google pero casi todo viene en Visual BASIC.
__________________
Herr Heins Faust

Última edición por Faust fecha: 20-05-2010 a las 19:50:42.
Responder Con Cita