Delphi. Ошибка Invalid use of keyword - помогите исправить!

[.Phoenix]

Может быть я ошибаюсь, но тебе придётся неизбежно поработать с типами в таблице Processor. Одним словом удалить текущую и составить новую, желательно, чтобы были только численный и строковый типы данных.

01:00

Если получится отпишись пож-та.

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор

[mihali4]

Все гораздо проще
При редактировании указано неверное имя поля - "Tip" вместо "DepID"...
Ну, и на всякий случай я все параметры взял в QuotedStr(), ибо просто лень было считать апострофы...
И все прекрасно заработало...

З.Ы. Чуть не забыл немаловажную деталь -

procedure TForm1.FormCreate(Sender: TObject);
var Str:string;
begin
DecimalSeparator:='.';

[Sianessa]

mihali4, благодарю, сделала всё как вы сказали - редактирование работает. Но теперь та же проблема с кнопкой "Новая запись". Ошибка та же, но все поля вроде бы верно указаны...

Не могли бы вы помочь?

И поясните пожалуйста, какие именно параметры нужно заключить в QuotedStr()

[Sianessa]

Лююди!! Помогите, у меня перестало работать ошибок не выдаёт, но не создаёт новые записи и не редактирует, т.е. в таблице никаких изменений не происходит! что делать???
Вот что у меня сейчас получилось:
BD.rar

[mihali4]

Сообщение от Sianessa

Поясните пожалуйста, какие именно параметры нужно заключить в QuotedStr()

     Firma := QuotedStr(Edit1.Text);
     Model := QuotedStr(Edit2.Text);
     Parametr := QuotedStr(Edit3.Text);
     Stoimost := QuotedStr(Edit4.Text);
     DepID := QuotedStr(Edit5.Text);

[Sianessa]

mihali4, благодарю, теперь буду знать, как можно без кавычек обойтесь
Да вот только теперь мучаюсь... Ошибок даже не пишет... Но и в таблицу что-то не добавляет ничего... Хотя вроде всё верно...

[mihali4]

Взял ваш старый вариант. Привожу полностью обработчик:

procedure TForm2.Button1Click(Sender: TObject);
var Sql, Param :string ;
    ID, NewID, Firma, Model, Parametr, Stoimost, DepID:string;
begin
     Firma := QuotedStr(Edit1.Text);
     Model := QuotedStr(Edit2.Text);
     Parametr := QuotedStr(Edit3.Text);
     Stoimost := QuotedStr(Edit4.Text);
      DepID := QuotedStr(Edit5.Text);
  if Option = 1 then   //Редактирование
  begin
    ID :=  Form1.Query1.FieldByName('ID').AsString;
    Sql := 'UPDATE  Processor SET ';

    Param := 'Firma='  + Firma      +
        ', Model='     + Model      +
        ', Parametr='    + Parametr    +
        ', Stoimost=' + Stoimost  +
         ', DepID=' + DepID  +
        '  WHERE ID ='+ ID;
  end
  else  //if Option = 2 - Новая запись
  begin
     //Формирование ID для новой записи
     {Query3.SQL.Clear;
     Query3.SQL.Add('Select ID From Processor');
     Query3.Open;
     Query3.Last;
     NewID := IntToStr(Query3.FieldByName('ID').AsInteger +1);}
//дает ошибку - нельзя задавать значение автоинкрементному полю. И это - правда.

     //Формирование SQL-запроса      //
     Sql := 'Insert INTO Processor'+
                 ' (Firma, Model, Parametr, Stoimost, DepID) ';
     Param := 'Values (' + Firma +  ', '
                         + Model +  ', '
                         + Parametr + ', '
                         + Stoimost + ','
                         + DepID + ') ' ;
  end;

   Query3.SQL.Clear;
   Query3.SQL.Add(Sql);
   Query3.SQL.Add(Param);
  ShowMessage(Query3.SQL.GetText); //Для отладки
   Query3.ExecSQL;

         Form1.Query1.Close;
  Form1.Query1.Open;
close;
end;

Все работает.

[Sianessa]

mihali4, большое вам спасибо!
Да-а, какая же я не внимательная...
Вопрос закрыт

[Sianessa]

mihali4извиняйте, тема закрыта но не до конца... Я вас наверное уже достала с этой ошибкой... Мне по аналогии надо было написать сохранение данных в таблицу Zakaz... Из нижней таблицы формы, в которую происходит выбор...
Опять та же ошибка "Invalid use of keyword" хотя все параметры вроде как верны...
Вот код:

procedure TForm1.Button6Click(Sender: TObject);
var Sql, Param :string ;
ID, NewID, Firma, Model, Parametr, Stoimost:string;
begin
  
       Firma :=StringGrid1.Cells[1,0];
     Model := StringGrid1.Cells[2,0];
     Parametr :=  StringGrid1.Cells[3,0];
     Stoimost := StringGrid1.Cells[4,0];
     //Формирование SQL-запроса      //
begin

     Sql := 'Insert INTO Zakaz'+
                 ' (Firma, Model, Parametr, Stoimost, NewID) ';
     Param := 'Values (' + Firma +  ', '
                         + Model +  ', '
                         + Parametr + ', '
                         + Stoimost + ','
                         + NewID + ') ' ;
  end;
   Query3.SQL.Clear;
   Query3.SQL.Add(Sql);
   Query3.SQL.Add(Param);
      ShowMessage(Query3.SQL.GetText); //Для отладки
  Query3.ExecSQL;
        Form1.Query1.Close;
  Form1.Query1.Open;

close;

end;

end.

[Sianessa]

Ну пожаалуйстааа Обещаю что после этого непременно отстану...
Могу даже базу заново прикрепить...
BD.rar