comparar fechar delphi y firebird
 

mi problema es este

quiero buscar en una tabla
si un registro existe basandome en la fecha

si existe el campo con la misma fecha de hoy
mostrar un popup de que ya existe esa fecha y no hacer nada


o si la fecha es menor o no existe ingresar el registro.

el campo de la fecha en firebird es de tipo date
y mi fecha de tipo string la formo asi

fechahoy := MES.Text + '/' + DIA.Text + '/' + ANIO.Text ;


no se como hacer que mi fecha en string sea igual al tipo
DATE de firebird y no se como hacer la busqueda el query para obtener la fecha
y comparacion de la fecha devuelta con la del dia de hoy

Lo más sencillo que se me ocurre es lanzar una SQL similar a esta:

Código SQL [-]
SELECT TOP 1 * FROM Tabla WHERE Fecha=:mifecha

Le asigna el parámetro y lanzas la consulta; Para ello deberás utilizar TADOQuery, TIBQuery, TzQuery, dependiendo de la Base de Datos con la que trabajes.

Luego compruebas si se ha encontrado algun registro. Si hay 1 es que lo ha encontrado:

Código Delphi [-]

  // Lanzar la consulta
  query.Open;
  // No ha encontrado nada?
  if (query.eof) and (query.bof) then begin
    // NO LO HA ENCONTRADO
  end
  else begin
    // encontrado
    Avisar...
  end;

que interesante...
lo estoy implementando

Otra opción es esta consulta :

SELECT count(*) FROM Tabla WHERE Fecha=:mifecha

Si devuelve cero no hay ningún registro para la fecha, en caso contrario sí.