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

[mihali4]

А где QuotedStr() ?

[Sianessa]

Добавила - это не помогло... Ошибка та же самая... BD.rar

[mihali4]

procedure TForm1.Button6Click(Sender: TObject);
var Sql, Param :string ;
ID, {NewID}, Firma, Model, Parametr, Stoimost:string;
begin

     Firma :=QuotedStr(StringGrid1.Cells[1,0]);
     Model := QuotedStr(StringGrid1.Cells[2,0]);
     Parametr :=  QuotedStr(StringGrid1.Cells[3,0]);
     Stoimost := QuotedStr(StringGrid1.Cells[4,0]);
     //Формирование SQL-запроса     //
begin

     Sql := 'Insert INTO Zakaz'+
                 ' (Firma, Model, Parametr, Stoimost) ';//, ID) ';
     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;

[Sianessa]

mihali4, ОЧЕНЬ ВАМ БЛАГОДАРНА!
Просто безмерно!
Значит опять с ID Этим не так было...
Ну с закрытием программы, это я что-то уж вообще... мозга за мозгу зашла...
Спасибо ещё раз!

[Sianessa]

Эмм... Это опять я... =_=
В общем препод сказал ещё сделать, чтобы из таблицы в БД Zakaz была кнока удаления и можно было удалить выделенный заказ в DBGrid...
Естественно попыталась прописать по тому же принципу, что и всё предыдущее, но опять ТА ЖЕ ошибка.

Вот код:

procedure TForm3.Button1Click(Sender: TObject);
var Sql, Param :string ;
ID, Firma, Model, Parametr, stoimost:string;
begin
     Firma :=Query1.FieldByName('Firma').AsString;
     Model := Query1.FieldByName('Model').AsString;
     Parametr := Query1.FieldByName('Parametr').AsString;
     Stoimost :=  Query1.FieldByName('Stoimost').AsString;
Sql := 'DELETE  Zakaz SET ';
Param := 'Firma='  + Firma      +
        ', Model='     + Model      +
        ', Parametr='    + Parametr    +
        ', Stoimost=' + Stoimost  +
         ', ID=' + ID ;

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

   Form1.Query3.Close;
   Form1.Query3.Open;


end;

Сами исходники для полноты картины:
BD.rar

Пожалуйста, помогите найти ошибку

[mihali4]

Синтаксис SQL для удаления (пример):

DELETE FROM PEOPLE WHERE ID=3

Между прочим, на форуме полно ссылок на хорошие книги.

[Sianessa]

mihali4, того что надо в книгах я чаще всего не нахожу и написано везде непонятным и замудрённым языком...
Я пробовала написать так, но оно вообще выдаёт кучу ошибок... И в чём дело, я не знаю...
В интернете нарыла кучу похожих примеров, но от каждого из них всё время ошибки.. этот пример тоже рассматривала, который привели Вы,
но он только больше ругается... и ещё, я не знаю что мне писать в моём случае после WHERE...
Писала вот так:

rocedure TForm3.Button1Click(Sender: TObject);
var Sql, Param :string ;
 begin
Query3.SQL.Clear;
   Query3.SQL.Add(Sql);
   Query3.SQL.Add(Param);
   ShowMessage(Query3.SQL.GetText); //Для отладки
   Query3.ExecSQL;
   DELETE FROM Zakaz
   Form1.Query3.Close;
   Form1.Query3.Open;
end;

[mihali4]

Query3.SQL.Text:='delete from zakaz where id='+
Form1.Query1.FieldByName('DepId').A sString;

[Sianessa]

mihali4, этот код насколько я поняла (и перелопатила его под себя) весь DBGrid очищает... А как сделать так, чтобы построчно удалялось? ну чтобы удалялась только выделенная строка?

[Sianessa]

я так и не смогла сделать чтобы 1 строка удалялась (((
В интернете искала везде ссылки только на компоненты через ADO, а на обычные Query например нету...(((

Та же фигня со StringGrid-ом...