Standardwert bei ADO-Abfrage

[DeddyH]

Oder so?

Delphi-Quellcode:

procedure TDatenbank.DiscountExists(EAN: string);
begin
  if fConnection.Connected then
    with fQuery do
      begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT [Products].*,[Discounts].* FROM [Products] ');
        SQL.Add('INNER JOIN [Discounts] ON [Discounts].ProduktFKID = [Products].PKID');
        SQL.Add('WHERE EAN = :EAN');
        Parameters.ParamByName('EAN').Value := EAN;
        try
          Open;
         // fConnection.CommitTrans;
        except
         // fConnection.RollbackTrans;
        end;
      end;
end;