Найти запись и добавить в таблицу

[StudUL]

Добрый вечер! Подскажите как можно сделать запрос. Мне нужно найти запись в таблице Osnastka, если она найдена записать поля KO, OSN, NO, CD, SV в таблицу Plan. Поместила на вкладку Номенкл. план, Edit туда вводим код и кнопку.
Вот моя база.
Таблички сделаны в Access, программирую в C++Builder6.

[nick42]

У вас на форме нет компонента ADOQuery; чтоб делать запросы к базе, добавьте его на форму, подключите к ADOConnection1, переключите DataSource1 - DataSet на ADOQuery1 и для обработчика кнопки напишите так:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (ComboBox1->ItemIndex==0)  {
    ADOQuery1->SQL->Clear();
    ADOQuery1->SQL->Add("SELECT * FROM Osnastka WHERE KO='" +
         Edit1->Text + "'" );
    ADOQuery1->Open();
  }
}

- во всяком случае у меня это работает...

[StudUL]

Спасибо, попробую. Я просто впервые работаю с такими программами, для меня всё ново.)

[StudUL]

Получилось, только запись в таблице Plan после закрытия формы нигде не сохраняется. Нужно, чтобы в таблице план найденная запись сохранялась.

[nick42]

Тогда лучше по другому: экспериментируйте с ADOTable1 - Filter (без запросов), хэлпы почитайте...

[StudUL]

Добавила ADOTable3 соединила его с ADOConnection1 и в MasterSource соединила с DataSource1 и TableName выбрала Plan. Как код прописать и где не знаю.

[nick42]

Я вряд ли Вам в этом помогу; именно с MSAccess мало опыта. Пытался через запрос добавить запись в Plan, но вылетает сообщение о связанности таблиц Plan и Zak, а как это преодолеть - я не знаю. Советую настойчивее спрашивать на специализированных форумах по базам данных

[StudUL]

Спасибо:-)
Может всё-таки как впервый раз запрос сделали, и как-нибудь прописать в запросе сохранить найденную запись в Plan.

[nick42]

Ну, смотрите, - вот такая запись на дополнительную кнопку добавляет по запросу строчку в таблицу Plan,

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    AnsiString ko1, osn1, no1, cd1;
       ko1 = DBGrid1->Fields[1]->AsString ;
      osn1 = DBGrid1->Fields[2]->AsString ;
       no1 = DBGrid1->Fields[3]->AsString ;
       cd1 = DBGrid1->Fields[4]->AsString ;

    ADOQuery1->SQL->Clear();
    ADOQuery1->SQL->Add("INSERT INTO Plan "
      "([CP],[CI],[KZ],[KO]) "                       //  ,[OSN],[NO],[CD]
      "VALUES ('223','143','23551220',:KO)");        //  ,:OSN,:NO,:CD
    ADOQuery1->Parameters->ParamByName("KO") ->Value = ko1;
//    ADOQuery1->Parameters->ParamByName("OSN")->Value = osn1;
//    ADOQuery1->Parameters->ParamByName("NO") ->Value = no1;
//    ADOQuery1->Parameters->ParamByName("CD") ->Value = cd1;
    ADOQuery1->Open();
}

но в этой таблице много связанных полей, и перед добавлением нужно им присвоить правильные значения (я просто переписал из базы). То, что при добавлении выскакивает сообщение "CommandText does not... " - это, говорят, не страшно, строка все равно добавляется. Вам просто нужно продумать форму добавления; возможно придется добавить несколько комбобоксов, связанных с таблицами Potr, Izg, Trud и перед добавлением новой записи вибирать в них соответствующие значения.

[Марат05]

Я знаю как это делать, но там придется переменные подключать. Через Unit1.h, Private и Public, между ними прописать и добавить, уже код.