recorrer una tabla para buscar alguna fecha especifica

[ecfisa]

Hola Rofocale.

Podés hacerte un procedimiento al efecto, por ejemplo:

Código Delphi [-]
procedure InsertaModifica(const Fecha: string; const Value: Double);
begin
  with TIBQuery.Create(nil) do
  try
    Database:= DataModule1.IBDatabase1;
    SQL.Text:= 'SELECT * FROM TABLA WHERE FECHA = :DATE';
    ParamByName('DATE').AsString:= Fecha;
    Open;
    if IsEmpty then   // ¿ la fecha existe ?
    begin             // no, insertar
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO TABLA (FLOTANTE, FECHA) ');
      SQL.Add('VALUES (:FLOAT,:FECHA)');
    end
    else              // si, modificar
    begin
      Close;
      SQL.Clear;
      SQL.Add('UPDATE TABLA SET ');
      SQL.Add('FLOTANTE = :FLOAT ');
      SQL.Add('WHERE FECHA = :FECHA');
    end;
    ParamByName('FLOAT').AsFloat:= Value;
    ParamByName('FECHA').AsString:= Fecha;
    ExecSQL;
    DataModule1.IBTransaction1.Commit;
  finally
    Free;
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
  InsertaModifica('12/09/2011', 999.99);

Saludos.