|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.04.2015, 01:52 | #21 | |
Участник клуба
Регистрация: 10.08.2010
Сообщений: 1,392
|
Цитата:
E_MAIL: rijgvina7@yahoo.com
|
|
18.04.2015, 06:36 | #22 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
18.04.2015, 09:45 | #23 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Access у него.
SELECT @@IDENTITY - получить значение последнего добавленного автоинкрементного ключа
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
18.04.2015, 12:34 | #24 |
Форумчанин
Регистрация: 13.04.2015
Сообщений: 141
|
a = ADOQuery1->SQL->Add("SELECT IDENT_CURRENT id_Nastroiki");
|
18.04.2015, 13:44 | #25 |
Форумчанин
Регистрация: 13.04.2015
Сообщений: 141
|
В ADOQuery3 прописал Select @@Identity. Затем активировал компонент.
В программе написал следующее ADOQuery3->SQL->Clear(); Edit1->Text = ADOQuery3->SQL->Add("SELECT max(id_Nastroiki) FROM Nastroiki"); ADOQuery3->Active=True; Выводит 0. |
18.04.2015, 20:45 | #26 |
Форумчанин
Регистрация: 13.04.2015
Сообщений: 141
|
Все. Сделал.
Разместил на форме 3 компонента ADOQuery. В первый написал: INSERT INTO Nastroiki (id_CvetForms,id_StilForms,id_Razme rForms) values (:id_CvetForms,:id_StilForms,:id_Ra zmerForms) Во второй: INSERT INTO Polzovateli (id_Name,id_Fam,id_Otch,id_Parol,id _Nastroiki) values (:id_Name,:id_Fam,:id_Otch,:id_Paro l,:id_Nastroiki) В третий: Select @@IDENTITY as lastId В программе: //Добавляю данные в таблицу Nastroiki. ADOQuery1->Parameters->ParamByName("id_CvetForms")->Value = "Синий"; ADOQuery1->Parameters->ParamByName("id_StilForms")->Value = "Stil"; ADOQuery1->Parameters->ParamByName("id_RazmerForms")->Value = "18"; ADOQuery1->ExecSQL(); //Узнаю ID номер свежедобавленой строки в таблице Nastroiki ADOQuery3->Open(); a = ADOQuery3->FieldByName("lastId")->AsInteger; ADOQuery3->Close(); //Добавляю найденный ID номер и введенные данные пользователем в таблицу Polzovateli ADOQuery2->Parameters->ParamByName("id_Name")->Value = Edit1->Text; ADOQuery2->Parameters->ParamByName("id_Fam")->Value = Edit2->Text; ADOQuery2->Parameters->ParamByName("id_Otch")->Value = Edit3->Text; ADOQuery2->Parameters->ParamByName("id_Parol")->Value = StrToInt(Edit4->Text); ADOQuery2->Parameters->ParamByName("id_Nastroiki")->Value = a; //ID_NOMER ADOQuery2->ExecSQL(); Всем спасибо за помощь. Отдельная благодарность xxbesoxx. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Срочно нужна помощь по SQL | @ngel111 | Фриланс | 2 | 29.12.2014 14:59 |
SQL нужна помощь | 5cek | БД в Delphi | 7 | 03.02.2014 07:33 |
Нужна помощь с SQL | MaskEdit | БД в Delphi | 8 | 13.01.2009 17:00 |