vicens22
10-12-2013, 16:28:13
Buenas tardes,
Estoy haciendo pruebas con datasnapserver, conectado con una bd ms sql para la gestión de datos desde un dispositivo Android.
Ya conseguí poder recuperar datos en un listbox y selecionando una fila mostrar los datos completos de un registro.
Ahora intento poder modificar o añadir registros a una tabla, utilizando el mismo componente que utilizo para recuperarlos, un clientdataset. Es la primera vez que lo utilizo, por ello imagino que me estoy dejando algo importante, pero de momento no consigo descubrirlo. Tanto al intentar modificar un registro, como al intentar añadir uno nuevo, aunque no me lanza ningún error, el registro no se modifica o crea.
El código que utilizo es el siguiente:
procedure TuFichaCliente.BtnEditDatosGenClick(Sender: TObject);
var nModificados :integer;
begin
if cds_FichaCli.State in dsEditModes then begin
btnEditDatosGen.StyleLookup:='composetoolbutton';
cds_FichaCli.Edit;
cds_FichaCli.FieldByName('Direccion').value := edDireccion.Text;
cds_FichaCli.Post;
nModificados := cds_FichaCli.ChangeCount;
showmessage('nModificados='+inttostr(nModificados));
cds_FichaCli.ApplyUpdates(0);
end
else begin
btnEditDatosGen.StyleLookup:='donetoolbutton';
// cds_FichaCli.Edit;
edEmpresa.SetFocus;
end;
end;
Como podeis ver, en este código solo pretento modificar el campo dirección, por el introducido en un campo edit, pero la modificación no se realiza en ningún caso. También he intentado añadir un registro nuevo sin éxito.
Alguna idea ??
Gracias anticipadas ... !!!
Saludos,
Vicens
Estoy haciendo pruebas con datasnapserver, conectado con una bd ms sql para la gestión de datos desde un dispositivo Android.
Ya conseguí poder recuperar datos en un listbox y selecionando una fila mostrar los datos completos de un registro.
Ahora intento poder modificar o añadir registros a una tabla, utilizando el mismo componente que utilizo para recuperarlos, un clientdataset. Es la primera vez que lo utilizo, por ello imagino que me estoy dejando algo importante, pero de momento no consigo descubrirlo. Tanto al intentar modificar un registro, como al intentar añadir uno nuevo, aunque no me lanza ningún error, el registro no se modifica o crea.
El código que utilizo es el siguiente:
procedure TuFichaCliente.BtnEditDatosGenClick(Sender: TObject);
var nModificados :integer;
begin
if cds_FichaCli.State in dsEditModes then begin
btnEditDatosGen.StyleLookup:='composetoolbutton';
cds_FichaCli.Edit;
cds_FichaCli.FieldByName('Direccion').value := edDireccion.Text;
cds_FichaCli.Post;
nModificados := cds_FichaCli.ChangeCount;
showmessage('nModificados='+inttostr(nModificados));
cds_FichaCli.ApplyUpdates(0);
end
else begin
btnEditDatosGen.StyleLookup:='donetoolbutton';
// cds_FichaCli.Edit;
edEmpresa.SetFocus;
end;
end;
Como podeis ver, en este código solo pretento modificar el campo dirección, por el introducido en un campo edit, pero la modificación no se realiza en ningún caso. También he intentado añadir un registro nuevo sin éxito.
Alguna idea ??
Gracias anticipadas ... !!!
Saludos,
Vicens