Firebird и Delphi

@brukvalub37 · Регистрация: 19.06.2015

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

Здравствуйте!
Есть БД firebird, в которой каждую минуту обновляются данные.
Есть желание написать программу на Delphi, которая в режиме реального времени будет отображать значения из БД.
В делфи на форму кинул IBDatabase, IBTransaction, IBQuery, Datasource, DBGrid. Все между соединил и запросы прописал. Запускаю программу и дбгрид отображает данные на момент запуска программы. А как теперь мне зациклить весь этот процесс? Т.е. чтобы каждую минуту в дбгрид значения обновлялись?

@Алекcей · 12.04.2017, 11:50

используйте компонент TTimer(таймер) c вкладки System.

@brukvalub37 · 12.04.2017, 11:52 **[ТС]**

использовал. в таймере в евенте Ontimer прописывал FormCreate. В самой процедуре FormCreate что прописывать? Я писал

Delphi
1
2
3
4
IBQuery7.SQL.Clear;
IBQuery7.Close;
IBQuery7.SQL.Add('select * from lastval_tbl where (scode=216)');
IBQuery7.Open;

@Алекcей · 12.04.2017, 11:58

зачем трогать FormCreate? закройте, а потом откройте запрос в OnTimer

@brukvalub37 · 12.04.2017, 12:05 **[ТС]**

И так пробовал

Delphi
1
2
3
4
5
6
7
procedure TForm1.IWTimer1AsyncTimer(Sender: TObject; EventParams: TStringList);
begin
IBQuery1.SQL.Clear;
IBQuery1.Close;
IBQuery1.SQL.Add('select * from lastval_tbl where (scode=59)');
IBQuery1.Open;
end;

Обновления не происходят.
Счетчик в таймере "10000".

@Алекcей · 12.04.2017, 12:08

а если выполнить запрос в IBExpert'e видны изменения? есть подозрения на то, что отсутствует Commit у транзакции, которая вносит изменения в базу

@brukvalub37 · 12.04.2017, 12:22 **[ТС]**

В IBExpert после каждого "F9" значения обновляются

Добавлено через 8 минут
В IBTransaction выставлены "стандартные настройки"
read_committed
rec_version
nowait

Попробовал дополнительно в таймере писать IBTransaction1.commit. Смысла нет.

@krapotkin · 13.04.2017, 06:21

зачем из простого делать сложное?
Обычный таймер
Обычное закрыть/открыть
Данные появятся, если тот кто ПИШЕТ в базу, делает Commit

и объясните ради бога
зачем каждый раз стирать и заново присваивать текст SQL ???
он и с первого раза все понял...
просто Query.close; Query.open; чем вам не угодили?

@brukvalub37 · 13.04.2017, 06:39 **[ТС]**

Без commit того кто ПИШЕТ, данные не обновлялись бы каждую минуту, значит он делает commit.
Я же через консоль isql после каждого select'a пишу commit. Потом через минуту пишу новый select и данные уже обновились.

@krapotkin · 13.04.2017, 06:59

чудес не бывает
если ваша транзакция ReadCommitted то она читает все закоммиченные записи
у вас точно транзакция подключена к Query?

@brukvalub37 · 13.04.2017, 07:13 **[ТС]**

IBQuery1->Transaction->IBTransaction1

@krapotkin · 13.04.2017, 07:17

ну тогда где-то в вашем коде еще что-то
сама схема абсолютно рабочая

@brukvalub37 · 13.04.2017, 07:32 **[ТС]**

Даже грубое IBTransaction1.Active:=False/True не воспринимается

@krapotkin · 13.04.2017, 08:14

бррр
transaction бывает Commit и Rollback
но и то и другое закрывает датасет
вы даже можете вместо Query.Close делать для верности Query.Transaction.Commit
чтобы уж точно...

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@brukvalub37 0 / 0 / 0 Регистрация: 19.06.2015 Сообщений: 52

	Firebird и Delphi 12.04.2017, 11:36. Показов 1822. Ответов 13 Метки нет (Все метки) Здравствуйте! Есть БД firebird, в которой каждую минуту обновляются данные. Есть желание написать программу на Delphi, которая в режиме реального времени будет отображать значения из БД. В делфи на форму кинул IBDatabase, IBTransaction, IBQuery, Datasource, DBGrid. Все между соединил и запросы прописал. Запускаю программу и дбгрид отображает данные на момент запуска программы. А как теперь мне зациклить весь этот процесс? Т.е. чтобы каждую минуту в дбгрид значения обновлялись? 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,505
	12.04.2017, 11:50
	используйте компонент TTimer(таймер) c вкладки System. 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,505
	12.04.2017, 11:58
	зачем трогать FormCreate? закройте, а потом откройте запрос в OnTimer 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,505
	12.04.2017, 12:08
	а если выполнить запрос в IBExpert'e видны изменения? есть подозрения на то, что отсутствует Commit у транзакции, которая вносит изменения в базу 0

@brukvalub37 0 / 0 / 0 Регистрация: 19.06.2015 Сообщений: 52
	12.04.2017, 12:22 [ТС]
	В IBExpert после каждого "F9" значения обновляются Добавлено через 8 минут В IBTransaction выставлены "стандартные настройки" read_committed rec_version nowait Попробовал дополнительно в таймере писать IBTransaction1.commit. Смысла нет. 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,654 Записей в блоге: 21
	13.04.2017, 06:21
	зачем из простого делать сложное? Обычный таймер Обычное закрыть/открыть Данные появятся, если тот кто ПИШЕТ в базу, делает Commit и объясните ради бога зачем каждый раз стирать и заново присваивать текст SQL ??? он и с первого раза все понял... просто Query.close; Query.open; чем вам не угодили? 0

@brukvalub37 0 / 0 / 0 Регистрация: 19.06.2015 Сообщений: 52
	13.04.2017, 06:39 [ТС]
	Без commit того кто ПИШЕТ, данные не обновлялись бы каждую минуту, значит он делает commit. Я же через консоль isql после каждого select'a пишу commit. Потом через минуту пишу новый select и данные уже обновились. 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,654 Записей в блоге: 21
	13.04.2017, 06:59
	чудес не бывает если ваша транзакция ReadCommitted то она читает все закоммиченные записи у вас точно транзакция подключена к Query? 0

@brukvalub37 0 / 0 / 0 Регистрация: 19.06.2015 Сообщений: 52
	13.04.2017, 07:13 [ТС]
	IBQuery1->Transaction->IBTransaction1 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,654 Записей в блоге: 21
	13.04.2017, 07:17
	ну тогда где-то в вашем коде еще что-то сама схема абсолютно рабочая 0

@brukvalub37 0 / 0 / 0 Регистрация: 19.06.2015 Сообщений: 52
	13.04.2017, 07:32 [ТС]
	Даже грубое IBTransaction1.Active:=False/True не воспринимается 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,654 Записей в блоге: 21
	13.04.2017, 08:14
	бррр transaction бывает Commit и Rollback но и то и другое закрывает датасет вы даже можете вместо Query.Close делать для верности Query.Transaction.Commit чтобы уж точно... 0