Ver Mensaje Individual
  #6  
Antiguo 09-09-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Como te aconsjea oscarac, usar TDBEdits es la opción más simple. Pero si aún decidis usar TEdits, sería:
Código Delphi [-]
{ Insertar }
procedure TForm1.btInsertarClick(Sender: TObject);
begin
  with ADOTable1 do
  begin
    Insert;  // o Append;
    FieldByName('Campo').AsString:= Edit1.Text;
    ...
    Post;
  end;
end;

{ Modificar }
procedure TForm1.btModificarClick(Sender: TObject);
begin
  with ADOTable1 do
  begin
    Edit;
    FieldByName('Campo').AsString:= Edit1.Text;
    ...
    Post;
  end;
end;

{ Borrar un registro }
procedure TForm1.btBorrarClick(Sender: TObject);
begin
  ADOTable1.Delete;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita