Работа с DBGrid и ADOQuery. Создать новую запись, сортировка и удаление

@Al_Walker · Регистрация: 21.10.2015

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

Доброго времени суток. Прошу сильно не ругаться, что есть еще похожие темы, но у меня проблема, не понимаю как можно: 1) Сделать новую строку в БД заполнив столбцы определенными значениями; 2) Выполнить сортировку в БД, показывая только строки с необходимым значением; 3) Как удалить всю строку зная только значение одного столбца.
Прошу, по возможности подробно описать код, но без фанатизма. Сама в этом новенькая, до этого имела дело только с Ассемблером.
Примерный вид БД прилагаю.

@qwertehok · 21.10.2015, 17:26

а вы саму БД создали?
подключились к ней? первичными данными заполнили?

@Al_Walker · 21.10.2015, 17:39 **[ТС]**

Сама БД была создана в MS Access.
Ну а так, это рабочие окна моей БД.

@qwertehok · 21.10.2015, 17:57

Al_Walker,
как я понимаю у вас Delphi7, у меня версия старше поэтому может что-то отличаться

кидаете на форму Connection для формирования строки подключения к базе
Кидаете Query для выполнения запросов

1) Сделать новую строку в БД заполнив столбцы определенными значениями;

Delphi
1
2
3
4
5
6
Connection.Connected:=False;
Query.Active:=false;
query.sql.text:='insert into [tablename] (тут список полей) VALUES (тут то что вставляете в эти поля) ';
connection.connected:=true;
query.open;
connection:=false;

2) Выполнить сортировку в БД, показывая только строки с необходимым значением;

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
Connection.Connected:=False;
Query.Active:=false;
query.sql.text:='select список_полей from [tablename] WHERE условие ';
connection.connected:=true;
query.active:=true;
 
if query.recordcount>0 then
  while not query.oef do begin
    // тут построчно перебирается полученный массив и можно его вывести в StrinGrid
    query.next;
  end;
connection:=false;

3) Как удалить всю строку зная только значение одного столбца.

Delphi
1
2
3
4
5
6
Connection.Connected:=False;
Query.Active:=false;
query.sql.text:='delete from [tablename] where УСЛОВИЕ ';
connection.connected:=true;
query.open;
connection:=false;

это примерные запросы к БД

@xxbesoxx · 21.10.2015, 18:43

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

3) Как удалить всю строку зная только значение одного столбца.

1) Зачем это ? Connection.Connected:=False; и connection.connected:=true;
2) После INSERT, UPDATE и DELETE надо query.ExecSQL; ели запрос на SELECT тогда query.open;

Добавлено через 5 минут

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
 with  ADOQuery1  do
 begin
  sql.Clear;
  sql.text:='delete from [tablename] where УСЛОВИЕ ';
  ExecSQL;
 end;
end;

Добавлено через 8 минут

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

2) Выполнить сортировку в БД, показывая только строки с необходимым значением;

Delphi
1
2
3
4
5
6
7
8
9
10
11
Connection.Connected:=False;
Query.Active:=false;
query.sql.text:='select список_полей from [tablename] WHERE условие ';
connection.connected:=true;
query.active:=true;
if query.recordcount>0 then
 while not query.oef do begin
 // тут построчно перебирается полученный массив и можно его вывести в StrinGrid
 query.next;
 end;
connection:=false;

3) Сортировка и фильтрация это две разные вещи ..! Я не вижу сортировка .!
4) Если не знайте скажу про это

Delphi
1
2
Connection.Connected:=False; // отключается соединение к БД
//и после этого Query.Active:=false; и так он уже на false;

что это ?

Добавлено через 6 минут

Не по теме:

qwertehok, изучайте и потом отвечайте на форуме

@Al_Walker · 21.10.2015, 18:47 **[ТС]**

А! Ещё, не подскажите как правильно написать условие?
Form2.ADOQuery1.SQL.Text:='select Tarif from Info where Label1.Caption'
Так?

И как вывести все в StringGrid?

@qwertehok · 21.10.2015, 21:09

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

А! Ещё, не подскажите как правильно написать условие?
Form2.ADOQuery1.SQL.Text:='select Tarif from Info where Label1.Caption'

Delphi
1
Form2.ADOQuery1.SQL.Text:='select Tarif from Info where [B]tarif[/B]=''''+Label1.Caption+'''

не забудьте в условие WHERE вставить имя поля которое нужно найти

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

И как вывести все в StringGrid?

я же показывал
выполняете запрос, проверяете что есть результат и закручиваете цикл while not query.eof

xxbesoxx,

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

Зачем это ? Connection.Connected:=False; и connection.connected:=true;

я так закрываю коннект к БД

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

После INSERT, UPDATE и DELETE надо query.ExecSQL

да

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

Я не вижу сортировка .!

очень печально

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

Если не знайте скажу про это

я ничего не понял

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью 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 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@Al_Walker 0 / 0 / 0 Регистрация: 21.10.2015 Сообщений: 11

	Работа с DBGrid и ADOQuery. Создать новую запись, сортировка и удаление 21.10.2015, 17:19. Показов 3139. Ответов 6 Метки нет (Все метки) Доброго времени суток. Прошу сильно не ругаться, что есть еще похожие темы, но у меня проблема, не понимаю как можно: 1) Сделать новую строку в БД заполнив столбцы определенными значениями; 2) Выполнить сортировку в БД, показывая только строки с необходимым значением; 3) Как удалить всю строку зная только значение одного столбца. Прошу, по возможности подробно описать код, но без фанатизма. Сама в этом новенькая, до этого имела дело только с Ассемблером. Примерный вид БД прилагаю. Миниатюры 0

@qwertehok 5971 / 4547 / 1094 Регистрация: 29.08.2013 Сообщений: 28,168 Записей в блоге: 3
	21.10.2015, 17:26
	а вы саму БД создали? подключились к ней? первичными данными заполнили? 0

@Al_Walker 0 / 0 / 0 Регистрация: 21.10.2015 Сообщений: 11
	21.10.2015, 17:39 [ТС]
	Сама БД была создана в MS Access. Ну а так, это рабочие окна моей БД. 0

@Al_Walker 0 / 0 / 0 Регистрация: 21.10.2015 Сообщений: 11
	21.10.2015, 18:47 [ТС]
	А! Ещё, не подскажите как правильно написать условие? Form2.ADOQuery1.SQL.Text:='select Tarif from Info where Label1.Caption' Так? И как вывести все в StringGrid? 0