Edatebase Error With Message 'ibsocios: Fiel" Not Found
Pura vida Foro!
Trabajo con FireBid
tengo una tabla llamada Socios
campos ID, NOMBRE,TELEFONO, INGRESO, CADUCACION
Conecto la aplicacion con la DASE DATOS con el IBDATABaSE y la Tabla con el IBDATASET
en un Boton llamado Guardar tengo este codigo:
Modulo.IBSocios.AfterScroll := NIL;
if not Modulo.IBTransaction1.InTransaction then
Modulo.IBTransaction1.StartTransaction;
with Modulo.IBSocios do begin
Insert;
FieldByName('id').AsString := id.text;
FieldByName('Nombre').AsString := Nombre.text;
FieldByName('telefono').AsString := Telefono.text;
FieldByName('ingreso').AsString := fIngreso.Text;
FieldByName('CADUCA').AsString := fVencimiento.text;
SelectSQL.Clear;
SelectSQL.Add('SELECT * FROM socios');
Open;
try
Modulo.IBTransaction1.CommitRetaining
except
Modulo.IBTransaction1.RollbackRetaining;
Application.MessageBox('','ERROR AL GUARDAR LOS DATOS',MB_OK+MB_ICONERROR)
end;
end; //With
Mi problema es que me tira el siguiente ERROR y no se de que se trata, Les agradesco si me ayudan a saber de que se trata y como resuelvo este problema...
tengo tres dias peliando con este problema y no se como ni que hacer...
EDATEBASE ERROR WITH MESSAGE 'IBSOCIOS: FIEL" NOT FOUND
les agradesco si me ayudad.... GRACIAS!!!!!!!!!!
|