Список проголосовавших за комментарий "<br/> --инициализируем <br/> sqlite3 = require(«lsqlite3»)<br/> db = nil<br/> <br/> <br/> function Calc()<br/> --если db не открыта — открываем<br/> if db == nil then<br/> db = sqlite3.open(«c:\\develops\\tin_»… string.sub(info.sec_code,1,2)… "_"… info.interval..".db")<br/> end<br/> <br/> if not db:isopen() then <br/> PrintDbgStr(«QLua: »… tostring(db:errmsg()))<br/> return nil<br/> end<br/> --проверка на существование таблицы<br/> sql = 'SELECT count(*) as countval FROM sqlite_master WHERE type='… k… 'table'… k… 'AND name='… k… 'balanse'… k..';'<br/> db:exec[[<br/> PRAGMA journal_mode= OFF;<br/> PRAGMA synchronous = 0; <br/> ]]<br/> <br/> for row in db:nrows(sql) do<br/> if row.countval == 0 then<br/> db:exec[[<br/> --если таблицы нет, то создаем<br/> CREATE TABLE IF NOT EXISTS `t78` ( `datetime` INTEGER, `volume` INTEGER, `diff` INTEGER, `mediana` INTEGER, `count` INTEGER);<br/> CREATE UNIQUE INDEX `dt` ON `t78` ( `datetime`);<br/> ]]<br/> end<br/> end<br/> else <br/> --выполняем запрос в таблицу<br/> sql = 'SELECT * FROM `t78` WHERE datetime='… os.time(T(index))..';'<br/> <br/> --ответ<br/> for row in db:nrows(sql) do<br/> <br/> if row.volume == nil then<br/> --тут я создаю нулевые значения для типизации.<br/> db:exec[[ ALTER TABLE t78 ADD COLUMN volume integer default 0;]]<br/> db:exec[[ ALTER TABLE t78 ADD COLUMN diff integer default 0;]]<br/> db:exec[[ ALTER TABLE t78 ADD COLUMN mediana integer default 0;]]<br/> db:exec[[ ALTER TABLE t78 ADD COLUMN count integer default 0;]] <br/> else<br/> --получаем данные<br/> volume = row.volume<br/> diff = row.diff<br/> mediana = row.mediana<br/> count_date = row.count <br/> end<br/> end<br/> end <br/> --формируем запрос на запись данных<br/> sql = 'INSERT INTO t78 VALUES ('… os.time(T(index))… ',' … tonumber(volume)… ',' … tonumber(diff).. ',' … tonumber(mediana)… ','… tonumber(count_date)..');' <br/> --выполняем запрос<br/> db:exec(sql)<br/> <br/> end<br/> <br/> --при закрытии скрипта (индикатора) закрываем базу данных<br/> function OnDestroy()<br/> if db:isopen() then<br/> <br/> db:exec(last