Пробовала, пишед инвалид параметрс и выделяет строку
Query2.SQL.Clear;
код такой
procedure TForm6.Edit7Change(Sender: TObject);
begin
try
Query1.Active:=false;
query1.SQL.Clear;
Query1.SQL.Text:= 'INSERT INTO Containers SELECT * FROM Contain WHERE Container = ''' + Edit7.Text + ''' ';
Query1.ExecSQL;
Query2.SQL.Clear;
Query2.SQL.Add('SELECT * FROM Containers');
Query2.Active:=True;
except
on e:Exception do
end;
end;
пишу Active:=false; так как Close он выбивает ошибку
|