[sAVe]

Есть такая задача:
3 таблицы (dbgrid1,dbgrid2,dbgrid3)
Пользователь выделяет в dbgrid1 и dbgrid3 необходимые ему записи (по одной в каждой таблице) и при нажатии на кнопку определённое поле например id_dbgrid1 и id_dbgrid3 попадали в новую запись (в определённые поля) dbgrid2 и сохранялись в БД на firebirde.
Покажите пример хотя бы...
Заранее спасибо!

[Yurk@]

вот как-то так

Код:

Grid2.DataSource.DataSet.Edit;
Grid2.DataSource.DataSet.FieldByName('pole1').Value := Grid1.DataSource.DataSet.FieldByName('id').Value;
Grid2.DataSource.DataSet.FieldByName('pole3').Value := Grid3.DataSource.DataSet.FieldByName('id').Value;
Grid2.DataSource.DataSet.Post;

это в общем случае ... всё остальное подстраивай под себя
и да, с данными работает Table, Query, DataSet, а DBGrid только отображает результат их работы

[M.A.D.M.A.N.]

О ужас.
Заведите себе хорошую привычку работать с базой через запросы, а не через аппенды и посты.

[sAVe]

Спасибо!
Вот у меня что получилось:

Код:

procedure TNew_office_contact.Button1Click(Sender: TObject);
begin

with DataModule1.IBQuery6 do
   begin
    SQL.Text:= 'insert into office_contacts (oc_o_id, oc_cntt_id, oc_contact) values ( :oc_o_id, :oc_cntt_id, :oc_contact)';
    ParamByName('oc_o_id').AsString:=DataModule1.IBQuery1DB1.FieldByName('O_ID').AsString;
    ParamByName('oc_cntt_id').AsString:= vartostr(DBLookupComboBox1.KeyValue);
    ParamByName('oc_contact').AsString:=Edit1.Text;
    Transaction.StartTransaction;
    ExecSQL;
    Transaction.Commit;
    Transaction.Active:=false
   end;
   DataModule1.IBQuery6.Close;
   DataModule1.IBQuery6.Open;

end;

Но вот беда, почему-то добавляется 2 одинаковые записи, прога ругается:

Project Project1.exe raised exemption class EIBInterBaseError with message 'violation of PRIMARY or UNIQUE KEY constraint "PK_OFFICE_CONTACTS' on table "OFFICE_CONTACTS". Process stopped и бла бла бла...

[sAVe]

блин, дурацкие смайлы, как их отключить?

разобрался)

[icWasya]

А вот это зачем?
DataModule1.IBQuery6.Close;
DataModule1.IBQuery6.Open;

[sAVe]

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

А вот это зачем?
DataModule1.IBQuery6.Close;
DataModule1.IBQuery6.Open;

а без этого DBGrid не обновляется, всегда так делал, раньше на это как-то внимания не обращал.
Но вот сейчас поставил это в фигурные скобки и ошибку не выдаёт, но и данные появляются после перегрузке программы.

[Yurk@]

дык у тебя в DataModule1.IBQuery6 лежит запрос на добавление, вот он 2й раз и вызывается ...
после того как выполнил Commit - перебивай DataModule1.IBQuery6.SQL.Text на новый(SELECT) запрос.
а вообще для такого лучше пользоваться двумя отдельными кверями: 1 на добавление и 1 на отображение

[sAVe]

УРА!!! Спасибо большое! Эх... невнимательность моя, там должен был запускаться другой запрос

[sAVe]

Вот ещё одна проблема Master-Detail почему-то не работает, много где читал, но что-то так и не получается у меня... Только не отправляйте на другие сайты, я там уже был

[Yurk@]

ну а что не получается то?

[M.A.D.M.A.N.]

Кстати, база не нормированная (если вы конечно слыхали про нормализацию БД) получается, в 3-й таблице по идее должна пара ключей храниться.

[sAVe]

Да про нормализацию я знаю, но пока такая база есть.
Так что не получается с Master-Detail:
Связываю 2 таблицы DBGrid1 и DBGrid2;
DBGrid1 - должен быть Master, а DBGrid2 - Detail соответственно.
В IBQuery3 который относится DBGrid2 в DataSourse2 указываю DataSourse1, относящийся к DBGrid1.
Никаких MasterSourse я что-то не нашёл...

[sAVe]

Разобрался, всем спасибо!
Может позже ещё что-нибудь спрошу