Ver Mensaje Individual
  #10  
Antiguo 02-08-2011
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 396
Reputación: 14
novato_erick Va por buen camino
gracias caral sin embargo al realizar el procedimiento de guardar no me agregaba el registro a mi db.

Código Delphi [-]
procedure TfrmCliente.btnGuardarClick(Sender: TObject);
begin
  dmAcceso.cdsClientesPais.Value := cbexPais.text;
  dmAcceso.cdsClientes.Post;
  dmAcceso.cdsClientes.ApplyUpdates(0);// aqui fue donde hice el cambio
  cbexpais.Text := 'Otro';

  if Application.MessageBox('¿Desea Agregar Otro?', '',
  MB_ICONQUESTION OR MB_YESNO ) = ID_NO then
  begin
    frmcliente.close;
  end
  else
  Begin
  dmacceso.cdsClientes.Active := False; 
  dmacceso.cdsClientes.Active := True;
  dmacceso.cdsClientes.Last;
  dmacceso.cdsClientes.Insert;
  end;
end

Si cometo otro error corregime, sin embargo despues de hacer ese cambio si me guarda el registro.

Saludos.
Responder Con Cita