Обновление данных в БД

[EdNovice]

Помогите плз.
есть код
Query1.SQL.Add('Insert into Vals1 (valdate, val) values (:DateTime, :Val)');
Query1.ParamByName('DateTime').Valu e := Now;
Query1.ParamByName('Val').Value := Random(50);
Query1.ExecSQL;

Но данные появляются в БД только когда закрываешь приложение.
Пробывал: Query1.DataBase.Commit, возникает Access violation.
Update тоже не помогает.

Зараннее благодарен.

[Pitbull]

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

Помогите плз.
есть код
Query1.SQL.Add('Insert into Vals1 (valdate, val) values (:DateTime, :Val)');
Query1.ParamByName('DateTime').Valu e := Now;
Query1.ParamByName('Val').Value := Random(50);
Query1.ExecSQL;

Но данные появляются в БД только когда закрываешь приложение.
Пробывал: Query1.DataBase.Commit, возникает Access violation.
Update тоже не помогает.

Зараннее благодарен.

Наверное, у тебя сначала открывается таблица, а потом уже делается запрос... Нужно переоткрыть таблицу , в которую ты вносишь данные.... refresh не пробовал? Vals1.refresh; Либо vals1.post , либо через active закрыть/открыть....

table1.edit;
query.active := false;
query.sql.clear;
Query1.SQL.Add('Insert into Vals1 (valdate, val) values (:DateTime, :Val)');
Query1.ParamByName('DateTime').Valu e := Now;
Query1.ParamByName('Val').Value := Random(50);
Query1.Prepare;
Query1.ExecSQL;
if table1 modified then table1.post; // table1 - твоя таблица,в которую ты заносил данные

[EdNovice]

Я не работаю с TTable (не открываю и не закрываю таблицы), только с TQuery.

[Pitbull]

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

Я не работаю с TTable (не открываю и не закрываю таблицы), только с TQuery.

Query1.Prepare; не помогло?
а query1.refresh?

[EdNovice]

Нет не помогло.
Нашел выход через TDataBase -> Database1.Commit.