Hola, tengo un problema a la hora de localizar un registro, he puesto el siguiente código:
Código:
If ADOTAgenda.Locate('Cita_T01','Trabajar',[locaseinsensitive]) and ADOTAgenda.Locate('Fecha_T01',FormatDateTime('dd"/"mm"/"yyyy',now+I),
[locaseinsensitive]) and ADOTAgenda.Locate('Fin_T01',InttoStr(Acol+7)+':00:00',[locaseinsensitive] then
Begin
Showmessage('Hola');
ADOTAgenda.Edit;
ADOTAgenda['Fin_T01']:=InttoStr(Acol+8)+':00:00';
ADOTAgenda['Prioridad_T01']:=True;
ADOTAgenda.Post;
End
Else
Begin
ADOTAgenda.Edit;
DsAgenda.DataSet.Append;
ADOTAgenda['Cita_T01']:='Trabajar';
ADOTAgenda['Fecha_T01']:=FormatDatetime('dd"/"mm"/"yyyy',now+I);
ADOTAgenda['Hora_T01']:=InttoStr(Acol+7)+':00:00';
ADOTAgenda['Fin_T01']:=InttoStr(Acol+8+(horasdia(Acol)))+':00:00';
ADOTAgenda['Prioridad_T01']:=True;
ADOTAgenda.Post;
End;
End;
y me da el siguiente error:
Cita:
Project Agenda.Exe raised exception class OleException with message 'El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual'. Proccess Stopped. Use Step o Run to continue.
|
Deduzco que el problema es con la base de datos, pero no entiendo por qué, ¿alguien sabe a que puede deberse?. Muchas gracias.