Показать сообщение отдельно
  #3  
Старый 05.09.2017, 15:17
Ekler1 Ekler1 вне форума
Новичок
 
Регистрация: 12.06.2017
Сообщения: 90
Версия Delphi: RAD Studio XE7
Репутация: 10
По умолчанию не фарт(

Код:
procedure TForm2.Button3Click(Sender: TObject);
begin
try
form2.ADOQuery2.SQL.Clear;
form2.ADOQuery2.SQL.Add('INSERT INTO zakazKLGOTOV SELECT * FROM ZakazKL');
form2.ADOQuery2.ExecSQL;
form2.ADOQuery1.SQL.Clear;
form2.ADOQuery1.SQL.Add('SELECT * FROM ZakazKLGOTOV');
form2.ADOQuery1.Active:=True;
except
on e:Exception do
end;

Нашел вот такой способ,под себя подправил, по описанию для чего - подходит. Вот только не работает(
Ответить с цитированием