UPDATE - Typ-Fehler

[stoermi]

Hallo!
Folgendes Problem:

Fehlermeldung:

Zitat:

Keine Übereinstimmung der Typen im Ausdruck

Die Quelle:

Delphi-Quellcode:

procedure TBuchungAnzeigenForm.BtnAendUebClick(Sender: TObject);
var rab: single;
    s: ShortString;
begin
  if Application.MessageBox('Sollen die Daten übernommen werden?', 'Frage', 36) = 6 then
  begin
    s := cbRabatt.Items[cbRabatt.ItemIndex];
    Delete(s, Length(s), 1);              //Prozentzeichen entfernen
    rab := StrToFloat(s) / 100;           //in Gleitkomma umrechnen und durch 100 teilen
    with BuchungenQuery do
      begin
        close;
        sql.clear;
        sql.add('UPDATE daten\buchungen.db SET Umbuch = :pumbuch, Rabatt = :prabatt WHERE id = :pid');
        ParamCheck := true;
        ParamByName ('pumbuch').AsInteger := cbBuch.ItemIndex;
        ParamByName ('prabatt').AsFloat := rab;
        ParamByName ('pid').AsInteger := myZimmer.buchung.buchId;
        ExecSQL;
      end;
    myZimmer.buchung.umbuch := cbBuch.ItemIndex;       //Hier tritt der Fehler auf
    myZimmer.buchung.rabatt := rab;

Datenbank-Spalten:
Umbuch ist Integer(kurz)
Rabatt ist Numeric
ID ist Integer

Die Eigenschaft buchId ist Integer.

Wo könnte dieser Fehler herrühren???

[stoermi]

Hallo!

Ich habe leider immer noch keine Lösung für das Problem gefunden...
Vielleicht könnte doch der eine oder andere sich mal den Code anschauen!
Schon mal danke!

stoermi

[mikhal]

Welche Datenbank, verwendest du die BDE oder ADO oder eine andere native Variante, um auf die Daten zuzugreifen? Auf den ersten Blick ist kein Fehler zu erkennen.

Grüße
Mikhal

[stoermi]

Zitat von mikhal:

Welche Datenbank, verwendest du die BDE oder ADO oder eine andere native Variante, um auf die Daten zuzugreifen? Auf den ersten Blick ist kein Fehler zu erkennen.

Hallo!
Verwende so eine einfache Paradox7-Tabelle.
Hab den Fehler eben endeckt...
Da Umbuch in der Tabelle vom Typ Integer(kurz) ist, muss ich beim Parameter auch .AsSmallInt verwenden, und nicht .AsInteger!!! Wusste noch nicht, dass es auch .AsSmallInt gibt. Naja, jetzt funktionierts glücklicherweise!