Buenas gente mediante el sgte. codigo estoy tratando de comprobar si existe una guardia realizado por una persona.
Una persona puede tener muchas guardias. es una tabla maestro detalle que carga bien los datos, pero antes de cargar que no se cargue la misma guardia.
La idea es que si esa gardia esta cargada lo haga saber y si no la guarde.
Trabajo en access y la tabla guardias tiene dos campos.
PERSONAL
PDNI*
PAPELLIDO
PNOMBRE
PCODESCUELA
...
..
GUARDIAS
GDNI*
GFECHAGUARDIA
Código Delphi
[-]
procedure TForm12.BitBtn2Click(Sender: TObject);
begin
FECHAGUARDIA:=datetimepicker1.date;
query2.close;
query2.sql.text := 'select * from GUARDIAS where GDNI:=DNIGUARDIA and GFECHAGUARDIA:=FECHAGUARDIA';
query2.Params[0].AsInteger := strtoint(dbtext7.Caption);
query2.Params[1].AsDate:= fechaguardia;
query2.open;
if query2.recordcount>0 then
begin
Showmessage('La guardia ya se ha cargado')
end
else
begin
table2.Insert;
table2.FieldByName('GDNI').Value:=strtoint(dbtext7.Caption);
table2.FieldByName('GFECHAGUARDIA').AsDateTime:=trunc(datetimepicker1.Date);
table2.Post;
ShowMessage('La carga se realizo con exito');
query1.ExecSQL;
end;
close;
El error que me salta es el siguiente. Busque en los foros pero el error entendi que puede ser por varias causas y no pude descubrir.
project project1.exe raised exception class EDBEngineerror with message 'Invalid use of keyword.
TOken:?
Line Number 1'Procces stopped. Use Step or Run to continue
SI alguien me puede dar una mano.
SAludos Gente