Gracias Roman, no me di cuenta.
Por otro lado este codigo que arme, necesito que compruebe si existe la guardia cuando la cargo. Me podrian dar una mano?
Lo que hace es cargarme la guardia como si nada, pero en realidad si existe. de hecho me cargo 16 veces el mismo.
D7 Y ACCESS
Los campos son
TABLA GUARDIAS
GDNI* INTEGER
GFECHAGUARDIA DATETIME (y en formato fecha corta)
PERSONAL (Todos los datos)
DNI* INTEGER
Tengo un form que me busca el agente en un dbgrid y muestro los datos con unos dbtext's. Uno de ellos es el dni (dbtext7)
mas abajo un datetimepicker1 que selecciono la fecha y ahi el siguiente boton con este codigo
Código Delphi
[-]
procedure TForm12.BitBtn2Click(Sender: TObject);
begin
FECHAGUARDIA:=datetimepicker1.DateTime;
query2.close;
query2.sql.text := 'select * from GUARDIAS where GDNI=
NIGUARDIA and GFECHAGUARDIA=:FECHAGUARDIA';
query2.Params[0].AsInteger := strtoint(dbtext7.Caption);
query2.Params[1].AsDatetime:= 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');
end;
close;
Saludos y gracias de antemano
