Ver Mensaje Individual
  #1  
Antiguo 17-11-2011
joseapd603 joseapd603 is offline
Registrado
NULL
 
Registrado: nov 2011
Posts: 9
Reputación: 0
joseapd603 Va por buen camino
Exclamation problema con "editar", no guarda

Buenas amigos antes de todo pido disculpa por algun error cometido al escribir este mensaje, tengo un problema con "editar", la base de datos esta hecha en access del office 2003, para la conexion estoy utilizando un ADOconecction, un datasource y un ADOtable, la cuestion es la siguiente:
en el boton "Guardar" tengo lo siguiente:

se realiza esta validacion para que cuando sea "editar" no
duplique datos y si es "nuevo" si haga el procedimiento de
"nuevo"

if sal='editar' then
begin
datasource1.DataSet.UpdateRecord;
datasource1.DataSet.Refresh;
end
else
begin

datasource1.dataset.Append;
datasource1.DataSet.FieldByName('cedula').AsString:=labelededit1.Text;
datasource1.DataSet.FieldByName('nombre').AsString:=labelededit2.Text;
datasource1.DataSet.FieldByName('apellido').AsString:=labelededit3.Text;
datasource1.DataSet.FieldByName('telefono').AsString:=labelededit4.Text;
datasource1.DataSet.FieldByName('direccion').AsString:=labelededit5.Text;
datasource1.DataSet.UpdateRecord;
datasource1.DataSet.Refresh;
end;

en el boton "Nuevo" lo siguiente:

sal:='nuevo';
habilitar;
limpiatext;
labelededit1.SetFocus;


y en el boto "Editar" lo siguiente:

sal:='editar';
habilitar;
datasource1.DataSet.Edit;
labelededit1.SetFocus;


El problema es el siguiente: cuando presiono el boton Nuevo y guardo lo hace bien, cuando presiono el boton editar y ejecuto el programa paso a paso el hace todo bien linea por linea hasta que segun guarda, pero cuando reviso en la tabla no ha editado nada, repito, cuando es nuevo registro guarda y hace todo bien, cuando es editar, no da error de ningun tipo y segun guarda pero al revisar en la base de datos no edita nada.

Agradezco toda la ayuda y correcciones respecto a este mensaje. AYUDA POR FAVOR.
Responder Con Cita