Добрый день, наконец-то руки дошли до испытания Вами предложенного метода ->
Вы можете выполнить любой SQL-запрос от таблицы к базе данных и результаты запроса автоматически будут выведены в таблице. Для этого используется процедура RunSQL таблицы. Пример для вашей задачи:
var
aFrom, aTo: TDateTime;
aQuery, aFromStr, aToStr: string;
begin
aTo := Now; // текущее время в переменную aTo
aFrom := IncHour(Now, -6); // 6 часов назад в переменную aFrom
aToStr := MySQLDateTime(aTo, dttFull); // переводим время aTo в строку
aFromStr := MySQLDateTime(aFrom, dttFull); // переводим время aFrom в строку
{ формируем запрос к БД на выборку }
aQuery := 'SELECT * FROM `trends_data` WHERE ' +
'(`id`=' + IntToStr(MyVariable.ID) + ') AND ' +
'(`timestamp` >= ' + aFromStr + ') AND (`timestamp` <= ' + aToStr + ')';
{ выполнить запрос и заполнить таблицу результатом выполнения }
Table1.RunSQL(aQuery, tsAll);
end.
Сначала в переменные aFrom, aTo записывается интервал в последние шесть часов. Затем интервал переводится в строку пригодную для запросов к MySQL. Далее формируется запрос на выборку архивных данных переменной MyVariable за последние шесть часов. Результат выборки отобразится в таблице с именем Table1.
результат 0, не выводиться информация в таблицу.
Решил пойти простым путем, а именно вывести всю таблицу: присвоил на клик по таблице скрипт
var
aQuery: string;
begin
aQuery := 'SELECT * FROM `par`';
Table2.RunSQL(aQuery, tsAll);
end.
итог обновляется таблица в скада только после перезапуска windows (сам в шоке, но просто останов и перезапуск клиента не помогает)
в MySql таблица par обновляется как положено раз в 30 мин, .... прописал в конец скрипта по обновлению таблицы в MySql вывод инфы в таблицу скады Table2...тоже обновление идет только после перезапуска windows....
куда копать? простейший скрипт
И почему нельзя сделать в редакторе просто присвоение таблицы в скаде к таблице имеющейся в БД? Без скриптов и заморочек
