Форум программистов, компьютерный форум, киберфорум
C++ Builder: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.95/22: Рейтинг темы: голосов - 22, средняя оценка - 4.95
1 / 1 / 0
Регистрация: 02.06.2011
Сообщений: 111

DBGrid - удаление записи из базы

21.05.2012, 13:16. Показов 4743. Ответов 13
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте!
У меня такой вопросик, как можно удалить запись из базы?
на форме есть компоненты ADOTable, ADOQuery, DataSource, DBGrid...
вот такой код нашёл, но он не работает....

C++
1
2
3
4
5
6
7
8
void __fastcall TMainForm::Button1Click(TObject *Sender)
{
   if (dbg_doctor->SelectedRows->CurrentRowSelected)
   {
       ADOQuery1->Delete();
       dbg_doctor->SelectedRows->Clear();
   }
}
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
21.05.2012, 13:16
Ответы с готовыми решениями:

Добавление и удаление полей из базы в dbgrid который будет служить фильтром поиска
есть на форме TDBLookupComboBox, dbgrid, и 3-и кнопки(ADD, DEL и ОК). Список TDBLookupComboBox - соединён с ADOQUERY имеющем запрос к...

Добавление записи в DBGrid и получение записи в DBGrid Другой формы
К проекту подключена Access .mdb БД. Имеется 2 формы. На обоих формах есть DBGrid. Как сделать, что бы при добавлении записи в таблицу из...

Удалить записи из базы (DBGrid)
Всем привет... Проблема в следующем. есть DBGrid в нем 2000 записей, и мне нужно удалить все записи с указанной в поиске до конца: ...

13
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
21.05.2012, 14:39
Лучший ответ Сообщение было отмечено как решение

Решение

Вылаживаю тебе код как я делал
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
void __fastcall TMainForm::DelString()
{
       if(DBGrid1->SelectedRows->Count == 0)
       {
         AnsiString ert = "\t\t\tНе выделена ни одна строка в базе!!!!!!!!\n\nДля удаления строки в базе, выберите необходимую строку левой кнопкой мыши, а затем нажмите на кнопку УДАЛИТЬ ДАННЫЕ\n\nДля удаления нескольких строк из базы, зажмите клавишу Ctrl на клавиатуре и выберите необходимые строки для удаления левой кнопкой мыши, а затем нажмите на кнопку УДАЛИТЬ ДАННЫЕ\n\nДля снятия выделения строк используйте клавишу Esc";
         if (Application->MessageBox(ert.c_str(),"Предупреждение",MB_OK +MB_TOPMOST+ MB_ICONEXCLAMATION)==IDOK)
         {
           return;
         }
       }
 
         if(DBGrid1->SelectedRows->Count > 0)
         {
          ADOQuery1->DisableControls();
          TStringList *dwe = new TStringList();
          dwe->Clear();
          int curItem = ADOQuery1->RecNo;
           if(DBGrid1->SelectedRows->Count == 1)
          {
            AnsiString ds = "Вы деиствительно хотите удалить выбранную строку? \n\n" + IntToStr(ADOQuery1->FieldByName("Invent_Number")->AsInteger)+" - "+ADOQuery1->FieldByName("Number_in_Lan")->AsString+" - "+ADOQuery1->FieldByName("Department")->AsString+" - "+ADOQuery1->FieldByName("Processor")->AsString+" - "+ADOQuery1->FieldByName("Memory")->AsString+" - "+ADOQuery1->FieldByName("HDD")->AsString+" - "+ADOQuery1->FieldByName("Room")->AsString;
             if (Application->MessageBox(ds.c_str(),"Подтверждение удаления строки из базы данных",MB_YESNO +MB_TOPMOST+ MB_ICONQUESTION)!=IDYES)
            {
              DBGrid1->SelectedRows->Clear();
              ADOQuery1->EnableControls();
              delete dwe;
              dwe = NULL;
              return;
            }
          }
 
                 
                 ADOQuery1->First();
 
                 while(!ADOQuery1->Eof)
                {
                   if(DBGrid1->SelectedRows->CurrentRowSelected)
                  {
                   dwe->Add(IntToStr(ADOQuery1->FieldByName("id")->AsInteger));
                  }
                   ADOQuery1->Next();
                }
 
                    AnsiString asd = StringReplace(dwe->Text,"\r\n"," ",TReplaceFlags()<<rfReplaceAll);
                    asd = StringReplace(asd.Trim()," ",",",TReplaceFlags()<<rfReplaceAll);
 
                     ADOQuery1->Close();
                     ADOQuery1->SQL->Clear();
                     ADOQuery1->SQL->Text = "DELETE FROM имя_таблицы WHERE id IN ("+asd+")";
                     ADOQuery1->ExecSQL();
                     DBGrid1->SelectedRows->Clear();
                   
                    if(ADOQuery1->RecordCount > 0)
                  {
                    if(curItem > ADOQuery1->RecordCount)
                   {
                     ADOQuery1->Last();
                   }
                    else
                   {
                    ADOQuery1->RecNo = curItem;
                   }
                  }
 
 
         
 
          ADOQuery1->EnableControls();
          delete dwe;
          dwe = NULL;
     }
 
 
}
//---------------------------------------------------------------------
4
1569 / 505 / 48
Регистрация: 04.04.2009
Сообщений: 1,891
21.05.2012, 14:45
Sasha, здорово!
1
1 / 1 / 0
Регистрация: 02.06.2011
Сообщений: 111
21.05.2012, 14:57  [ТС]
я уже разобрался с удалением)
теперь осталось update только реализовать.. а вот как его реализовать я не знаю пока что(
0
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
21.05.2012, 15:21
А что у тебя с UPDATE?
0
1 / 1 / 0
Регистрация: 02.06.2011
Сообщений: 111
21.05.2012, 15:23  [ТС]
да я не знаю как можно включить редактирование в DBGrid'e потому что проставил значение ReadOnly = false и SelectRows = true
теперь я могу только выбрать всю строку целиком, а отдельно не получаеться(
0
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
21.05.2012, 15:57
dgEditing = true;//в инспекторе объектов
0
1 / 1 / 0
Регистрация: 02.06.2011
Сообщений: 111
21.05.2012, 16:40  [ТС]
Цитата Сообщение от Sasha Посмотреть сообщение
dgEditing = true;//в инспекторе объектов
да вот фишка в том, что не даёт такое сделать... непонятно по какой причине....
может это зависить из-за того что я поставил в gbRowSelect = true?
0
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
21.05.2012, 17:24
Цитата Сообщение от vladimir123 Посмотреть сообщение
может это зависить из-за того что я поставил в gbRowSelect = true?
именно из-за этого и зависит
1
1 / 1 / 0
Регистрация: 02.06.2011
Сообщений: 111
21.05.2012, 17:56  [ТС]
Sasha, хммм, т.е либо всю строку выделять, либо по отдельности?( блин, фигово... надо что то другое придумать тогда будет...
0
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
21.05.2012, 19:17
Так, а что ты хочешь сделать ты хочешь частично строку обновить или как?
0
1 / 1 / 0
Регистрация: 02.06.2011
Сообщений: 111
21.05.2012, 19:20  [ТС]
Sasha, я хочу предоставить выбор поля обновления пользователю, т.е в DBGrid есть 3 колонки, пользователь может тыркнуть в любую из них и там что то поменять... и то что он поменял надо сохранить в базу
0
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
21.05.2012, 19:28
Ну и что тебе мешает это сделать?
0
1 / 1 / 0
Регистрация: 02.06.2011
Сообщений: 111
21.05.2012, 19:29  [ТС]
да в принципе ничего) просто надо немного по другому другие функции организовать, поэтому пока что вот думаю как лучше их заменить
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.05.2012, 19:29
Помогаю со студенческими работами здесь

Удаление записи из БД DBGrid
ребята, нужно удалить запись из бд с помощью DBGrid. У меня постоянно выскакивает либо ошибка типа &quot;cannot perform this operation on a...

Удаление записи по нажатию на строку DbGrid
Здравствуйте,нужна помощь с Delphi.Нужно сделать удаление записи по нажатию на строку в dbgrid и чтобы перед удалением запрашивалась...

Как сделать добавление/редактирование/удаление записи в dbgrid?
подскажите, пожалуйста, как сделать добавление/редактирование/удаление записи в dbgrid? проект и базу прикрепляю. и еще такой...

Удаление записи из базы
проблема с удалением записи из базы данных ! задал интервал одну минуту (ниже код) а он сразу удаляет $text...

Удаление записи из базы данных
Всем привет. У меня есть такой код main.php &lt;?php require('_include/setup.php'); $smarty = new MySmarty();


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Новые блоги и статьи
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru