Firebird 2.5 Delphi7 Не работаеть UPDATE

[xxbesoxx]

Здравствуйте ребята . Сразу скажу что первый раз работаю Firebird и подключения к БД через компонент (IBDatabase1, IBQuery1, IBTransaction1 и DataSource1)

1. Подключаюсь к БД через IBexpert и создаю таблиц

CREATE TABLE USERS (
    ID        INTEGER NOT NULL,
    FIO       VARCHAR(50) NOT NULL,
    DAT_WORK  DATE,
    SALARY    NUMERIC(15,2)
);

2. Создаю генератор

CREATE GENERATOR GEN_USER_ID;
----------------------------------------
SET GENERATOR gen_user_id TO 0;

3. Триггер для ID

CREATE TRIGGER user_BI FOR users
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
IF (NEW.ID IS NULL) THEN
NEW.ID = GEN_ID(gen_user_id, 1);
END;

------------- INSERT работает нормально ---

 insert into users (FIO, DAT_WORK, SALARY)
 values('Кети Баратели','12.04.2014',7000)

А через Delphi с помощью компонент IBQuery1 тоже нормально INSERT

procedure TForm1.Button1Click(Sender: TObject);
begin
  IBQuery1.Close;
  IBQuery1.SQL.Text := 'INSERT INTO users (FIO, DAT_WORK, SALARY) '+
                       'VALUES (:pFIO, :pDAT_WORK, :pSALARY)';
  IBQuery1.ParamByName('pFIO').AsString := Edit1.Text;
  IBQuery1.ParamByName('pDAT_WORK').AsDateTime := DateTimePicker1.Date;
  IBQuery1.ParamByName('pSALARY').AsFloat := StrToFloat(Edit2.Text);

  try
    IBQuery1.ExecSQL;
    IBQuery1.Transaction.Commit;
    IBQuery1.SQL.Text := 'SELECT * FROM Users';
    IBQuery1.Open;
  except
     showmessage('Ошибка при добавлении записи!');
  end;

Вот на UPDATE у меня вылетает ошибка

procedure TForm1.Button2Click(Sender: TObject);
begin
  IBQuery1.Close;
  IBQuery1.SQL.Text := 'UPDATE users SET FIO=:pFIO, DAT_WORK=:pDAT_WORK, SALARY=:pSALARY) '+
                       'WHERE (FIO=:pFIO) and (DAT_WORK=:pDAT_WORK) and(SALARY=:pSALARY)';
  IBQuery1.ParamByName('pFIO').AsString := Edit1.Text;
  IBQuery1.ParamByName('pDAT_WORK').AsDateTime := DateTimePicker1.Date;
  IBQuery1.ParamByName('pSALARY').AsString := Edit2.Text;

  try
    IBQuery1.ExecSQL;
    IBQuery1.Transaction.Commit;
    IBQuery1.SQL.Text := 'SELECT * FROM Users';
    IBQuery1.Open;
  except
     showmessage('Ошибка на обновление');
  end;
end;

Просьба : Дайте понять что я делаю не правильно ? Помогите пожалуйста, Я первый раз работаю работаю с Firebird и компонентом (IBDatabase1, IBQuery1, IBTransaction1 и DataSource1)

[Аватар]

В 1-ой строчке UPDATE закрывающая скобка справа лишняя
Условие where не в дугу. Есть ид, по нем и задавайте
И на обновление и отображение лучше отдельные Query

[xxbesoxx]

Аватар Спасибо за внимание . Но примерно как ? Помогите пожалуйста

'WHERE (id=: Как здесь задавать что то ид где стоить курсор  )

[xxbesoxx]

Примерно как он должен работать ? Пожалуйста пример покажите

[Аватар]

Так примерно.

  IBQuery1.SQL.Text := 'UPDATE users SET FIO=:pFIO, DAT_WORK=:pDAT_WORK, SALARY=:pSALARY WHERE ID=:pID';
  IBQuery1.ParamByName('pFIO').AsString := Edit1.Text;
  IBQuery1.ParamByName('pDAT_WORK').AsDateTime := DateTimePicker1.Date;
  IBQuery1.ParamByName('pSALARY').AsFloat := StrToFloat(Edit2.Text);
  IBQuery1.ParamByName('pID').AsInteger := IBQuery2.FieldByName('ID').AsInteger;

IBQuery2 c отображаемыми данными.

[xxbesoxx]

Аватар Друг Спасибо за помочь , Пришлось еще подшаманить это код ! потому что UBDATE обновил только на 1 запись

За это я добавил фильтр

procedure TForm1.IBQuery1AfterScroll(DataSet: TDataSet);
begin
  IBQuery2.Close;
  IBQuery2.SQL.Clear;
  IBQuery2.SQL.Add('SELECT* FROM users');
  IBQuery2.SQL.Add('WHERE id LIKE '''+  IBQuery1.FieldByName('Id').AsString+ '%' +'''');
  IBQuery2.Open;
end;

И потом на ваши примере Закладки (bookmarks) что бы курсор не бегал верх вниз

procedure TForm1.Button2Click(Sender: TObject);
 var
   BM: TBookmarkStr;
begin
  BM := IBQuery1.Bookmark;
  IBQuery1.Close;
  IBQuery1.SQL.Text := 'UPDATE users SET FIO=:pFIO, DAT_WORK=:pDAT_WORK, SALARY=:pSALARY WHERE ID=:pID';
  IBQuery1.ParamByName('pFIO').AsString := Edit1.Text;
  IBQuery1.ParamByName('pDAT_WORK').AsDateTime := DateTimePicker1.Date;
  IBQuery1.ParamByName('pSALARY').AsFloat := StrToFloat(Edit2.Text);
  IBQuery1.ParamByName('pID').AsInteger := IBQuery2.FieldByName('ID').AsInteger;
  IBQuery1.ParamByName('pFIO').AsString := Edit1.Text;
  IBQuery1.ParamByName('pDAT_WORK').AsDateTime := DateTimePicker1.Date;
  IBQuery1.ParamByName('pSALARY').AsString := Edit2.Text;
  try
    IBQuery1.ExecSQL;
    IBQuery1.Transaction.Commit;
    IBQuery1.SQL.Text := 'SELECT * FROM Users';
    IBQuery1.Open;
    IBQuery1.Bookmark := BM;
  except
     showmessage('Îøèáêà îïåðàöèè Îáíîâëåíèÿ');
  end;
end;

Код выглядеть так и работает нормально .......... Огромное вам спасибо

[Аватар]

procedure TForm1.IBQuery1AfterScroll(DataSet: TDataSet);

Ну и зачем это нужно? Что бы помедленней работало? ID уже есть в IBQuery1. Его можно просто выдернуть из датасета перед IBQuery1.Close если уж настаиваете на использовании одного IBQuery для отображения и редактирования. И like для числовых полей кто научил использовать? И параметры зачем-то дважды задаете.

[xxbesoxx]

Друг про LIKE да правильно-понял. убрал , Но без этого фильтра как обойтись ?

procedure TForm1.IBQuery1AfterScroll(DataSet: TDataSet);
begin
  IBQuery2.Close;
  IBQuery2.SQL.Clear;
  IBQuery2.SQL.Add('SELECT* FROM users');
  IBQuery2.SQL.Add('WHERE id = '''+  IBQuery1.FieldByName('Id').AsString +'''');
  IBQuery2.Open;
end;

У IBQuery2 при открытое курсор стоить на 1 запись и за это пришлось дописать фильтр из свойстве IBQuery1AfterScroll.
А про параметру тоже понял спасибо! исправил

procedure TForm1.Button2Click(Sender: TObject);
 var
   BM: TBookmarkStr;
begin
  BM := IBQuery1.Bookmark;
  IBQuery1.Close;
  IBQuery1.SQL.Text := 'UPDATE users SET FIO=:pFIO, DAT_WORK=:pDAT_WORK, SALARY=:pSALARY WHERE ID=:pID';
  IBQuery1.ParamByName('pFIO').AsString := Edit1.Text;
  IBQuery1.ParamByName('pSALARY').AsFloat := StrToFloat(Edit2.Text);
  IBQuery1.ParamByName('pID').AsInteger := IBQuery2.FieldByName('ID').AsInteger;
  IBQuery1.ParamByName('pFIO').AsString := Edit1.Text;
  IBQuery1.ParamByName('pDAT_WORK').AsDateTime := DateTimePicker1.Date;
  IBQuery1.ParamByName('pSALARY').AsString := Edit2.Text;
  try
    IBQuery1.ExecSQL;
    IBQuery1.Transaction.Commit;
    IBQuery1.SQL.Text := 'SELECT * FROM Users';
    IBQuery1.Open;
    IBQuery1.Bookmark := BM;
  except
     showmessage('Ошибка на обновление');
  end;
end;

Огромное спасибо Друг спишу и за это допускаю ошибки

[Аватар]

procedure TForm1.Button2Click(Sender: TObject);
 var
   BM: TBookmarkStr;
   Id: Integer;
begin
  BM := IBQuery1.Bookmark;
  Id:=IBQuery1.FieldByName('Id').AsInteger;
  IBQuery1.Close;
  IBQuery1.SQL.Text := 'UPDATE users SET FIO=:pFIO, DAT_WORK=:pDAT_WORK, SALARY=:pSALARY WHERE ID=:pID';
  IBQuery1.ParamByName('pFIO').AsString := Edit1.Text;
  IBQuery1.ParamByName('pDAT_WORK').AsDateTime := DateTimePicker1.Date;
  IBQuery1.ParamByName('pSALARY').AsFloat := StrToFloat(Edit2.Text);
  IBQuery1.ParamByName('pID').AsInteger := Id;
  try
  ...

[xxbesoxx]

Спасибо друг Вот это да, "Профессиональный подход" . Выбросил IBQuery2 и фильтр тоже удалил ... Работает отлично

procedure TForm1.Button2Click(Sender: TObject);
 var
   BM: TBookmarkStr;
   Id: Integer;
begin
  BM := IBQuery1.Bookmark;
  Id:=IBQuery1.FieldByName('Id').AsInteger;
  IBQuery1.Close;
  IBQuery1.SQL.Text := 'UPDATE users SET FIO=:pFIO, DAT_WORK=:pDAT_WORK, SALARY=:pSALARY WHERE ID=:pID';
  IBQuery1.ParamByName('pFIO').AsString := Edit1.Text;
  IBQuery1.ParamByName('pDAT_WORK').AsDateTime := DateTimePicker1.Date;
  IBQuery1.ParamByName('pSALARY').AsFloat := StrToFloat(Edit2.Text);
  IBQuery1.ParamByName('pID').AsInteger := Id;
  try
    IBQuery1.ExecSQL;
    IBQuery1.Transaction.Commit;
    IBQuery1.SQL.Text := 'SELECT * FROM Users';
    IBQuery1.Open;
    IBQuery1.Bookmark := BM;
  except
     showmessage('Ошибка на обновление');
  end;

Дай бог вам счастья и здоровья ... СПАСИБО