Hola a todos, necesito ayuda con un problemilla que tengo en una aplicación cliente / servidor que estoy desarrollando. Estoy utilizando Interbase 6.5 y Delphi 7. Las conexiones las realizo con IBDataSet.
A continuación pongo un ejemplo del código con el que tengo el problema. En el código del ejemplo lo que hago es eliminar un registro seleccionado, pero el error me ocurre tanto cuando inserto, elimino, modifico y refresco.
Código:
if dmPrincipal.dsetFamilia.Fields[0].Value <> null then
begin
if MessageDlg('¿Seguro que desea borrar el registro seleccionado?', mtInformation, [mbYes, mbNo],0) = mrYes then
begin
dmPrincipal.dsetFamilia.Delete;
dmPrincipal.dsetFamilia.ParamByName('ID').AsInteger := dmPrincipal.dsetFamilia.Fields[0].Value;
dmPrincipal.dsetFamilia.Open;
end
else
dmPrincipal.dsetFamilia.Open;
end
else
MessageDlg('Debe seleccionar un registro para eliminarlo', mtInformation, [mbYes], 0)
Haciendo la traza del programa el error se produce en la linea en la que le indico el parámetro ("ID"). El mensaje de error es el siguiente: "Field "ID" not found." El error me lo devuelve como he comentado antes tanto haciendo insert, delete ... Lo extraño es que a pesar de mostrar el error, elimina el registro.
Buenos gracias de antemano, y si alguien tiene algunas respuesta para mi enigma de deberé unas cuantas noches en vela.
Un saludo.