Перенос записи из одной таблицы в другую используя sql

[X_ALONE_X]

Добрый день!
Никак не могу понять где у меня в программе ошибка. Значит есть две таблицы. Одна заполнена данными, а другая пустая. Есть компонент Edit1 в который нужно ввести значение одного из полей, которое находится в столбце "Артикул" заполненной таблицы. После это при нажатии на кнопку вся строка, найденная по введенному значению, должна переместиться в пустую таблицу. Код как-то странно работает, вроде при нажатии на кнопку добавляет, но это видно только при повторном запуске программы.
Исходник программы вложен.

[VIK_aka_TOR]

если изменения видны только после перезапуска проги, то видимо нужно попросту переподключить DataSource, то бишь обновить набор данный.
p.s. код не смотрел.

[Dozent]

Ну во первых советую поля в базе сделать англ. а уже в программе их отображение Label написать русскими.
Для отображения как и написал предыдущий автор вам нужно перезапустить таблицу где хранятся данные.

П.С. Весь проект не открывал...

[X_ALONE_X]

А как её можно перезапусть, чтобы данные появились? А то что то до меня никак не дойдёт, как это сделать.

[Dozent]

а как ты её запускаешь? Чтобы изначально были видны данные?

[superedward]

Закрыть - открыть

[X_ALONE_X]

Есть код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   try
        form1.ADOQuery1.SQL.Clear;
        form1.ADOQuery1.SQL.Add('INSERT INTO ассотименткорзина SELECT * FROM  ассортимент WHERE ассортимент.артикул LIKE'''+Edit1.Text+'''');
        form1.ADOQuery1.ExecSQL;
        form1.ADOQuery2.SQL.Clear;
        form1.ADOQuery2.SQL.Add('SELECT * FROM ассотименткорзина');
        form1.ADOQuery2.Active:=True;
    except
        on e:Exception do
end;

end;

На форме у меня один АDOConnection соединенный с базой, два ADOTable с подключенными таблицами, Два DataSource Dataset выставлен на первую и вторую таблицу, Два Grid, в них вроде отображаются, И два Query, у них в свойстве ConnecnionString выбрана данная база данных, в свойстве dataset Выбран DataSource2, Но когда пытаюсь поставить галочку Activate у Query1 выходит ошибка:

ADOQuery1: CommandText does not return a result set

Всё равно, никак не пойму, почему данные добавляются только после второго запуска.

[Serge_Bliznykov]

И два Query, у них в свойстве ConnecnionString выбрана данная база данных, в свойстве dataset Выбран DataSource2,

Это неверно! Должно быть или одно или другое.
а ещё лучше - сотрите ОБА!
Я рекомендую Вам в ваших Query стереть и ConnectionString и DataSource
и в поле Connection выбрать ваш ADOConnection.
Тогда вся связь с базой будет происходить через него!

[X_ALONE_X]

Свойсва DataSource и ConnectionString у ADOQuery1 и ADOQuery2 очистил, оставил свойство Connection c подключённым компонентом ADOConnection. Ситуация не изменилась, записи добавленные в таблицу видно только после второго запуска программы.

[VIK_aka_TOR]

ADOTable.Active := false;
ADOTable.Active := true;

обновит набор данных.