Как я понял в SQL Explorer не возможно писать 2 запроса одновременно
У меня один запрос берет данные и вычисляет а второй должен вычисленные данные вставить в таблицу.
Query1.SQL.Text:='SELECT SUM (A1) AS ASUM, PAR, LEV FROM ATABLE WHERE LEV = :LEV GROUP BY PAR, LEV ORDER BY LEV, PAR';
Query1.Params[0].AsInteger := i;
Query2.sql.text := 'UPDATE ATABLE SET A1=' + query1.FieldByName('ASUM').AsString + ' WHERE id= :id'
Query2.Params[0].AsString := query1.FieldByName('PAR').AsString;
|