DBGrid последняя запись

@terror11 · Регистрация: 17.01.2013

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

Добрый день! Подскажите как в DBGrid вывести только последнюю запись которую внесли в bd access? Заранее Спасибо.

@UR1004SWL · 23.01.2020, 15:51

Сообщение от Мудрый Ижик

Ну можно же это проще сделать.

При большом кол-ве записей в таблице, проверял на своей, более 120 000 записей, работает в разы дольше.

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

Ошибки пропали. Но в dbgrid выводятся как и прежде все строки

Ну а подключить к ADOQuery DataSet.

@terror11 · 23.01.2020, 15:59 **[ТС]**

Код_даты - это ключевое поле с типом счетчик

Может сам код не туда вставляю?

@Grossmeister · 23.01.2020, 16:29

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

Может сам код не туда вставляю?

Для начала отладь запрос в Access. Начни с простого, чтобы отделить мухи от котлет, т.е. ошибки SQL от ошибок Delphi

SQL
1
2
SELECT *
FROM Поверка

@terror11 · 23.01.2020, 16:47 **[ТС]**

SQL
1
WHERE Код_Даты IN (SELECT MAX(Поверка.Код_Даты) FROM Поверка

Access выдает ошибку: Ошибочная инструкция SQL Предполагалось DELETE INSERT PROCEDURE SELECT или UPDATE

@Мудрый Ижик · 23.01.2020, 17:22

Вам уже сказали, что

SQL
1
WHERE Код_Даты IN (SELECT MAX(Поверка.Код_Даты) FROM Поверка

это кусок от запроса, вырванная из целого запроса эта строка будет выдавать подобную ошибку.

@terror11 · 24.01.2020, 11:57 **[ТС]**

Вот этот запрос в access работает без проблем

SQL
1
2
3
SELECT *
FROM Поверка
WHERE Код_Даты IN (SELECT MAX(Поверка.Код_Даты) FROM Поверка)

Но в Delphi вот так не хочет работать. В DBGrid выводятся все строки

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
DataModule3.ADOQuery1.Close;
DataModule3.ADOQuery1.SQL.Clear;
DataModule3.ADOQuery1.SQL.Add('SELECT *');
DataModule3.ADOQuery1.SQL.Add('FROM Поверка');
Datamodule3.ADOQuery1.SQL.Add('WHERE Код_Даты IN (SELECT max(Поверка.Код_Даты) FROM Поверка)');
DataModule3.ADOQuery1.Open;
end;

Добавлено через 21 минуту
Проблему решил так. В Access Сделал запрос и этот запрос вывел в dbgrid

@Мирзали · 24.01.2020, 12:01

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

Но в Delphi вот так не хочет работать. В DBGrid выводятся все строки
procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
DataModule3.ADOQuery1.Close;
DataModule3.ADOQuery1.SQL.Clear;
DataModule3.ADOQuery1.SQL.Add('SELECT *');
DataModule3.ADOQuery1.SQL.Add('FROM Поверка');
Datamodule3.ADOQuery1.SQL.Add('WHERE Код_Даты IN (SELECT max(Поверка.Код_Даты) FROM Поверка)');
DataModule3.ADOQuery1.Open;
end;

Немного непонятно, почему запрос вы решили писать в событии отрисовки DbGrid. Ну ладно.
Попробуй так:

Delphi
1
2
3
4
5
6
7
DataModule3.ADOQuery1.Active := False;
DataModule3.ADOQuery1.SQL.Clear;
 
DataModule3.ADOQuery1.SQL.Add('SELECT *');
DataModule3.ADOQuery1.SQL.Add('FROM Поверка');
Datamodule3.ADOQuery1.SQL.Add('WHERE Код_Даты IN (SELECT max(Поверка.Код_Даты) FROM Поверка)'); //* max возвращает 1 значение, к //чему тут использование in, если можно просто сравнить =?
DataModule3.ADOQuery1.Active := True;

@terror11 · 24.01.2020, 12:55 **[ТС]**

А подскажи куда его вставить?

@Мирзали · 24.01.2020, 13:09

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

А подскажи куда его вставить?

какую нибудь отдельную кнопку может)

@terror11 · 24.01.2020, 13:26 **[ТС]**

Не мне надо что бы она автоматом обновлялась

@Мирзали · 24.01.2020, 15:01

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

Не мне надо что бы она автоматом обновлялась

автоматически при каком действии? При открытии формы или как?

@terror11 · 24.01.2020, 15:59 **[ТС]**

Есть 2 таблицы. Они связаны. В первый dbgrid 1 таблица выводится, а во второй вторая соответственно. При нажатии на строку 1 dbgrida во втором должна выбираться последняя запись 2 связанной таблицы

@UR1004SWL · 24.01.2020, 16:39

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

Не мне надо что бы она автоматом обновлялась

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

При нажатии на строку 1 dbgrida во втором должна выбираться последняя запись 2 связанной таблицы

Событие onCellClick, туда и вставляйте код.

Новые блоги и статьи Все статьи Все блоги /
сукцессия 33. открытые вопросы от клауде anaschu 19.07.2026 "Что накопилось за эту часть А — тринадцать правок, из которых шесть пришли из ваших вопросов и каждая оказалась реальной ошибкой, а не калибровкой: односторонний симбиоз, отсутствующий листопад,. . .	32 сукцессия anaschu 19.07.2026 сукцессия 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не «подкручивает» сходимость —. . .	сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических anaschu 18.07.2026 Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .	сукцессия 30. Массив проверяющих друг друга моделей anaschu 18.07.2026 Архитектура сети взаимопроверяющих моделей микоризной сукцессии (v2. 0) Развитие тензорного ОДУ-ядра и создание кросс-платформенного калибровочного полигона Уважаемые коллеги! В продолжение. . .
Грибы - это женщины, деревья - это мужчины. Анти инь янь для союза мужчины и женщины. anaschu 18.07.2026 ГЛАВНЫЙ НАУЧНО-ФИЛОСОФСКИЙ ВЫВОД: Сексуально-Репродуктивный Капитализм против Государства Моногамии Коллеги, мы вышли на финишную прямую 20-мерного ОДУ-моделирования вековой сукцессии (ветка. . .	Текстовый слайдер с нумерацией страниц и кроссбраузерность. russiannick 18.07.2026 Один мой друг написал текстовый слайдер с нумерацией страниц. Сегодня я расскажу как он умудрился подружить его с кроссбраузерностью. Очевидно сложно угодить с шириной каждому браузеру. Один крадет. . .	Грибы - это мемы, дерево - это человек. Применение микоризной модели к теории меметики Докинза. anaschu 18.07.2026 Меметический изоморфизм теории «всего»: Грибная сукцессия как модель эволюции идей Докинза Базовый код системы ОДУ микоризной сукцессии описывает не просто биологию, а универсальную. . .	Грибы - это корпорации, деревья - это государства. Механизм массонского захвата власти anaschu 18.07.2026 Макроэкономический изоморфизм теории «всего»: Грибная сукцессия как модель транснационального капитализма Базовый код системы ОДУ микоризной сукцессии описывает не просто биологию, а. . .

@terror11 0 / 0 / 0 Регистрация: 17.01.2013 Сообщений: 42

	DBGrid последняя запись 22.01.2020, 16:52. Показов 2899. Ответов 32 Метки нет (Все метки) Добрый день! Подскажите как в DBGrid вывести только последнюю запись которую внесли в bd access? Заранее Спасибо. 0

@terror11 0 / 0 / 0 Регистрация: 17.01.2013 Сообщений: 42
	23.01.2020, 15:59 [ТС]
	Код_даты - это ключевое поле с типом счетчик Может сам код не туда вставляю? 0

@terror11 0 / 0 / 0 Регистрация: 17.01.2013 Сообщений: 42
	24.01.2020, 12:55 [ТС]
	А подскажи куда его вставить? 0

@terror11 0 / 0 / 0 Регистрация: 17.01.2013 Сообщений: 42
	24.01.2020, 13:26 [ТС]
	Не мне надо что бы она автоматом обновлялась 0

@terror11 0 / 0 / 0 Регистрация: 17.01.2013 Сообщений: 42
	24.01.2020, 15:59 [ТС]
	Есть 2 таблицы. Они связаны. В первый dbgrid 1 таблица выводится, а во второй вторая соответственно. При нажатии на строку 1 dbgrida во втором должна выбираться последняя запись 2 связанной таблицы 0