Таблица Cat
- Код: Выделить всё
CREATE TABLE INGREDIENTS (ID INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL, CODE CHAR (6) NOT NULL DEFAULT " ", NAME VARCHAR (254) NOT NULL DEFAULT " ")
В лазарусе в
- Код: Выделить всё
SQLQueryCat.SQL.Text := 'SELECT ID, CODE, NAME, FILEPIC, FILEVIDEO FROM CAT';
SQLQueryCat.Active := True;
SQLQueryCat.Last;
Добавляю запись
- Код: Выделить всё
procedure TfrmCat.btnAppendCatClick(Sender: TObject);
begin
SQLQueryCat.Append;
DBGridCat.SetFocus;
end;
Сохраняю запись
- Код: Выделить всё
SQLQueryCat.ApplyUpdates;
Редактирование делаю в DBGrid.
Запись добавляет, но почему-то не сохраняет введенные значения кроме первого введенного поля записи? Например добавили запись заполнили первым CODE, а вторым NAME, сохраниться только CODE, если первым заполнить Name, а вторым CODE то сохраниться только NAME. В других таблицах та же проблема. Может нужно заполнить свойства InsertSQL, UpdateSQL, DeleteSQL? Подскажите как правильно добавлять и редактировать записи в DBGrid?
