Взять с таблицы отредактировать и сохранить в базу данных

@Samrisbe · Регистрация: 28.01.2011

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

Всем добро!

Хочу в базу данных добавить параметр редактировать историю платежей на фото таблица. По клику в клетку мне нужно выбрать тот или иной параметр платежа и отредактировать и сохранить в базу.

вот так отображаю в DBGrid:

C++
1
2
3
4
5
6
7
int a=Form1->ADOQuery2->RecNo;
   Form1->ADOQuery2->First();
   for(int i=1;i<a;i++)   Form1->ADOQuery2->Next();
   Form1->ADOQuery2->RecNo=a;
   Form12->ADOQuery1->SQL->Text="SELECT Абоненты.ФИО,История.Сумма,История.Дата,История.Время,История.Операция FROM Абоненты INNER JOIN История ON Абоненты.КодАбон = История.КодАбон WHERE Абоненты.КодАбон=(SELECT КодАбон From Абоненты WHERE ФИО='"+ADOQuery2->Fields->Fields[1]->AsString+"' AND Квартира="+ADOQuery2->Fields->Fields[0]->AsString+" AND АдрКод=(SELECT АдрКод FROM Адреса WHERE Адрес='"+Form1->open+"'))";
   Form12->ADOQuery1->ExecSQL();
   Form12->ADOQuery1->Active=true;

Подскажите как это реалезовать.

@Sasha · 26.02.2014, 16:39

1.Остерегайтесь запросов в цикле
2.Для обновления строки в базе используется оператор в запросе UPDATE

@Samrisbe · 26.02.2014, 18:50 **[ТС]**

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

Для обновления строки в базе используется оператор в запросе UPDATE

пример показать есть возможность?

@Sasha · 26.02.2014, 19:39

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

пример показать есть возможность?

Есть

Здесь показан код на обновление строки одной таблицы без связей в базе параметризированным запросом

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
int save = MainForm->ADOQuery1->FieldByName("Invent_Number")->AsInteger;
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOConnection1->BeginTrans();
ADOQuery1->SQL->Add("UPDATE Vubrannaya SET Invent_Number = :Invent_Number, Number_in_Lan = :Number_in_Lan, Department = :Department, Processor = :Processor, Memory = :Memory, HDD = :HDD, Room = :Room, Wind = :Wind, MS_Office_and_Open_Office = :MS_Office_and_Open_Office, Spec_Prog = :Spec_Prog, No_Licenz = :No_Licenz, AutoCad = :AutoCad, Data_pokupki = :Data_pokupki");
ADOQuery1->SQL->Add("WHERE Invent_Number = " + IntToStr(save));
UpdateParameters_NewsClick();
 
void __fastcall TMainForm::UpdateParameters_NewsClick()
{
 ADOQuery1->Parameters->ParamByName("Invent_Number")->Value = StrToInt(ValueListEditor1->Cells[1][1]);
 ADOQuery1->Parameters->ParamByName("Number_in_Lan")->Value = Trim(ValueListEditor1->Cells[1][2]);
 ADOQuery1->Parameters->ParamByName("Department")->Value = Trim(ValueListEditor1->Cells[1][3]);
 ADOQuery1->Parameters->ParamByName("Processor")->Value = Trim(ValueListEditor1->Cells[1][4]);
 ADOQuery1->Parameters->ParamByName("Memory")->Value = Trim(ValueListEditor1->Cells[1][5]);
 ADOQuery1->Parameters->ParamByName("HDD")->Value = Trim(ValueListEditor1->Cells[1][6]);
 ADOQuery1->Parameters->ParamByName("Room")->Value = Trim(ValueListEditor1->Cells[1][7]);
 ADOQuery1->Parameters->ParamByName("Wind")->Value = Trim(ValueListEditor1->Cells[1][8]);
 ADOQuery1->Parameters->ParamByName("MS_Office_and_Open_Office")->Value = Trim(ValueListEditor1->Cells[1][9]);
 ADOQuery1->Parameters->ParamByName("Spec_Prog")->Value = Trim(ValueListEditor1->Cells[1][10]);
 ADOQuery1->Parameters->ParamByName("No_Licenz")->Value = Trim(ValueListEditor1->Cells[1][11]);
 ADOQuery1->Parameters->ParamByName("AutoCad")->Value = Trim(ValueListEditor1->Cells[1][12]);
 ADOQuery1->Parameters->ParamByName("Data_pokupki")->Value = Trim(ValueListEditor1->Cells[1][13]);
 ADOQuery1->Prepared = true;
 ADOQuery1->ExecSQL();
 ADOConnection1->CommitTrans();
}

@Samrisbe · 27.02.2014, 19:53 **[ТС]**

а к dbgrid как это припаять?

@Sasha · 27.02.2014, 22:56

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

а к dbgrid как это припаять?

DbGrid тебе покажет и так покажет твоё обновление

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	26.02.2014, 16:39
	Сообщение было отмечено Samrisbe как решение Решение 1.Остерегайтесь запросов в цикле 2.Для обновления строки в базе используется оператор в запросе UPDATE 1

@Samrisbe 1365 / 732 / 67 Регистрация: 28.01.2011 Сообщений: 2,069
	27.02.2014, 19:53 [ТС]
	а к dbgrid как это припаять? 0

Взять с таблицы отредактировать и сохранить в базу данных

Решение