Edycja danych w bazie - wyjątek EZDataBaseError

0

witam, zamieszczam fragment formy

procedure TForm4.Button1Click(Sender: TObject);
var
  idpasazer: integer;
begin
  idpasazer := Form2.ZQuery1.FieldByName('id_pasazera').asinteger;
  with Form2.ZQuery1, SQL do
  begin
    Close;
    Clear;
    Add('update pasażer set imie=:imie, nazwisko=:nazwisko, kod_pocztowy=:kod_pocztowy, miasto=:miasto, ulica=:ulica, pesel=:pesel, nr_dokumentu:=nr_dokumentu, id_zakladu=:id_zakladu, id_wydzialu=:id_wydzialu, trasa=:trasa');
    Add('where id_pasazera=:id_pasazera');
    ParamByName('imie').AsString := Trim(labelededit1.Text);
    ParamByName('nazwisko').AsString := Trim(labelededit2.Text);
    ParamByName('kod_pocztowy').AsString := Trim(labelededit3.Text);
    ParamByName('miasto').AsString := Trim(labelededit4.Text);
    ParamByName('ulica').AsString := Trim(labelededit5.Text);
    ParamByName('pesel').AsString := Trim(labelededit6.Text);
    ParamByName('nr_dokumentu').AsString := Trim(labelededit7.Text);
    ParamByName('id_zakladu').AsInteger := StrToInt(Trim(labelededit8.Text));
    ParamByName('id_wydzialu').AsInteger := StrToInt(Trim(labelededit9.Text));
    ParamByName('trasa').Asinteger := StrToInt(Trim(labelededit10.Text));
    ParamByName('id_pasazera').AsInteger := idpasazer;
    ExecSQL;
    Close;
  end;

end;

uruchomienie jej powoduje wywołanie błędu błędu:

(project project1.exe raised exception class EZDataBaseError with message "Incorrect token followed by ":" ")

w czym tkwi problem i jak go rozwiązać proszę o pomoc (wskazówki)

0

Tam na pewno musi byc polski znak?

 'update pasażer
0

nie, bład naprawiłem, niewiele to dało

2

Tu masz blad:

 nr_dokumentu:=nr_dokumentu

powinno byc

 nr_dokumentu=:nr_dokumentu
0

dziękuję, zadziałało, temat zamykam

0

@janbit nie mów, że w aplikacji klepiesz wszystkie zapytania z palca w ten sposób? Jeśli tak to jest jakaś masakra. I nie dziwię się, że takie literówki się zdarzają. Używaj komponentów bazodanowych które to zrobią za Ciebie.

1 użytkowników online, w tym zalogowanych: 0, gości: 1