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 begin Close;
SQL.Clear;
SQL.Add('INSERT INTO TABLA (FLOTANTE, FECHA) ');
SQL.Add('VALUES (:FLOAT,:FECHA)');
end
else 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.