guardar datos correctamente con un ClientDataSet.

[novato_erick]

Para ser mas claro:

mi procedimiento creado para llamar al formulario Cliente:

Código Delphi [-]
procedure TFrmPrincipal.AgregarExecute(Sender: TObject);
begin
 utiles.MuestraVentana('Clientes','Normal');
end;

luego abre mi formulario en un panel con una pestaña y su debido caption

Código Delphi [-]
procedure MuestraVentana(ventana: string; modo: string);

begin
if ventana = 'Clientes' then
  begin
    if FrmCliente = nil then
    begin
      FrmCliente := TfrmCliente.create(FrmCliente);
      Try
      FrmCliente.Parent := FrmPrincipal.Panel4;
      FrmCliente.Caption := 'Clientes';
      FrmCliente.Show;
      finally
      FrmPrincipal.TabSet1.Tabs.add(FrmCliente.Caption);
      FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1;
      dmacceso.cdsClientes.Active := True;
      dmacceso.cdsClientes.Edit;
      dmacceso.cdsClientes.ClearFields;
      end;
    end

end;

ahora quiero guardar el registro del cliente

Código Delphi [-]
procedure TfrmCliente.btnGuardarClick(Sender: TObject);
begin
  dmAcceso.cdsClientesPais.Value := cbexPais.text;
  dmAcceso.cdsClientes.ApplyUpdates(0);
  dmAcceso.cdsClientes.Append;
  cbexpais.Text := 'Otro';

  if Application.MessageBox('¿Desea Agregar Otro?', '',
  MB_ICONQUESTION OR MB_YESNO ) = ID_NO then
  begin
    frmcliente.close;
  end;

end;

es correcto lo que hago creo que algo pasa porque me elimina como dije el primer registro si lo abro y si sigo agregando registro me borra es el último. y no quiero eso...


Saludos;

[[Caral]]

Hola

Código Delphi [-]
if ventana = 'Clientes' then
  begin
    if FrmCliente = nil then
    begin
      FrmCliente := TfrmCliente.create(FrmCliente);
      Try
      FrmCliente.Parent := FrmPrincipal.Panel4;
      FrmCliente.Caption := 'Clientes';
      dmacceso.cdsClientes.Active := True;
      dmacceso.cdsClientes.Last;
      dmacceso.cdsClientes.Insert;
      FrmCliente.Show;
      finally
      If FrmCliente.Caption <> ' ' then
      Begin
      FrmPrincipal.TabSet1.Tabs.add(FrmCliente.Caption);
      FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1;
      end;
      end;
    end
  
  end;

Código Delphi [-]
procedure TfrmCliente.btnGuardarClick(Sender: TObject);
begin
  dmAcceso.cdsClientesPais.Value := cbexPais.text;
  dmAcceso.cdsClientes.Post;
  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;

Saludos

[novato_erick]

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.

[[Caral]]

Hola
Me alegro que lo hicieras solo, de eso se trata, solo podemos dar ejemplos, no soluciones ya que no estamos sentados frente a tu ordenador.
Saludos

[novato_erick]

maeyanes y Caral

Si agradezco mucho su ayuda, llego a comprender un poco mas como se puede manejar la lógica... muchas gracias por todo...

Saludos;

[Jasan_Records]

Hola chicos!!! Paso a comentar, tengo un clientdateset, al cual le voy a agregando registros, mi consulta es, como deberia hacer para que guarde todos esos registros de una sola vez en db? ojala puedan ayudar. gracias

[novato_erick]

Hola Jasan_Records:

utilizando

Código Delphi [-]
 ClientDataSet.ApplyUpdates(-1);

solamente al llamar el formulario está en modo insert, edit el ClientDataSet?

en cualquier estado antes mencionado te debe de servir ApplyUpdates pero verifica primero si no te enviará error.


Saludos

novato_erick