Ошибка при добавлении(поля не найдены)

@Hyliop · Регистрация: 13.02.2015

Author24 — интернет-сервис помощи студентам

Привет всем.
Задачи:
1. отобразить вместо id - имя поставщика поставщиков и имя мебели из других таблиц.
2. возможность сортировки, при клике на название столбца в DBgrid.
Для 1-й задачи был написан sql запрос

SQL

SELECT i.*, p.name AS name_prod, f_t.name AS furn_type
FROM producers  AS p
INNER JOIN items AS i ON i.producer_id = p.id_producer
INNER JOIN items AS i ON i.furniture_type_id = f_t.id_furniture

Схему данных можно увидеть на скриншоте(связи между ними)

Для 2-й задачи написан код

Delphi

procedure TF_items.DBGrid1TitleClick(Column: TColumn);
var
ss : string;
begin
      if Datamodule2.ADOQuery1.FieldByName(Column.FieldName).Tag=0 then
       begin
        ss := ' ASC';
        Datamodule2.ADOQuery1.FieldByName(Column.FieldName).Tag := 1;
       end
      else
       begin
        ss := ' DESC';
        Datamodule2.ADOQuery1.FieldByName(Column.FieldName).Tag := 0;
       end;
     Datamodule2.ADOQuery1.Sort:=Column.FieldName + ss;
end;
end;

Сортировка работает, но! При добавлении/удалении/изменении записей выскакивает ошибка о том, что name_prod и furn_type не найдены
В ADOQuery1 все поля добавлены через "add all fields". Подскажите в чем проблема

@northener · 05.11.2016, 18:40

Как выполняется добавление/удаление/изменение

@Hyliop · 05.11.2016, 18:44 **[ТС]**

northener, например, добавление

Delphi

 with Datamodule2.ADOItems  do
    begin
    SQL.Clear;
    SQL.Add('INSERT INTO items (furniture_type_id, name, producer_id, quantity, price) ');
    SQL.Add(' values (:f_type, :name, :prod_id, :quantity, :price)') ;
    Parameters.ParamByName('f_type').Value:=sDBLookupComboBox1.KeyValue;
    Parameters.ParamByName('name').Value:=sEdit1.Text;
    Parameters.ParamByName('prod_id').Value:=sDBLookupComboBox2.KeyValue;
    Parameters.ParamByName('quantity').Value:=sEdit2.Text;
    Parameters.ParamByName('price').Value:=sEdit3.Text;
    ExecSQL;
    SQL.Clear;
    SQL.Add('SELECT * FROM items');
    Open;

Если не сильно понятно, то подробнее:

У задачи 1 есть ДВА вариант решения:
1. Написать запрос как указано в 1-м посте.
2. В ADOtable1 добавить новое поле и связать его с другими. (Показано на картинке). Тогда вместо id поставщика будет его имя.
Если идем по 1-му варианту, то, при клике по всем колонкам для сортировки, сортировка будет работать абсолютна ВСЯ! НО при клике на кнопку "Добавить запись" мы получим ошибку как в первом посте о том, что поле name_prod не найдено.
Если идем по 2-му варианту, то, при клике на колонку "name_prod", которая является связанной с другой таблицей для сортировки, мы получим ошибку о коллекции и сортировки не будет. Но, если мы нажмем на колонку, которая есть в основной таблице(например, price), то сортировка будет работать.
В этом случае кнопка "Добавить запись" работать будет и запись добавится.
Так что в любом варианте есть проблема и я не могу решить ни одну из них.

@Hyliop · 05.11.2016, 22:27 **[ТС]**

актуально

@northener · 05.11.2016, 22:39

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

SQL.Add('SELECT * FROM items');
Open;

И где в наборе данных полученных этим запросом поле name_prod?

@Hyliop · 05.11.2016, 22:50 **[ТС]**

northener, уже решена проблема. Спасибо

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,253
	05.11.2016, 18:40	2
	Как выполняется добавление/удаление/изменение 0

@Hyliop 1 / 1 / 2 Регистрация: 13.02.2015 Сообщений: 99
	05.11.2016, 22:27 [ТС]	4
	актуально 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,253
	05.11.2016, 22:39	5
	Сообщение от Hyliop SQL.Add('SELECT * FROM items'); Open; И где в наборе данных полученных этим запросом поле name_prod? 0

@Hyliop 1 / 1 / 2 Регистрация: 13.02.2015 Сообщений: 99
	05.11.2016, 22:50 [ТС]	6
	northener, уже решена проблема. Спасибо 0