добавление из одной таблицы в другую

[Ernest027]

беда с этим sql запросом(((
cannot perform this operation on a closed dataset

[Stilet]

А как тогда?

То, что ты делаешь сейчас как я понимаю создает в базе дублирование. т.е. избыточность. Любой АБД-перфекционист тебя бы повесил на галстуке за такое.
Не смогу я тебе объяснить как нужно делать. Лексикона не хватит.
если в общем: Для этого таблицы связывают внешними ключами, и проводят в запросах объединения и присоединения по ключевым полям, тогда не приходится из таблицы перегонять копии данных в другую таблицу. Делай конечно как умеешь, но имей ввиду - однажды ты с таким дублированием хлебнешь горя.

[Ernest027]

теперь и locate не работает(((
делфи обозлился на меня

[Stilet]

Делфи тут ни при чем, просто работать с плохой базой будет плохо при любых условиях. Еще раз повторюсь: Не годится так с данными поступать. Не будет лучше, тебе точно, а уж юзеру и подавно.

[evg_m]

НЕ экономьте на количестве компонентов общения с БД,
Для показа свой компонент AdoQuery3
Для замены, вставки свой AdoqueryX
И кода и ошибок будет меньше, если для каждого действия будет СВОЙ компонент с заранее написанным и ПРОВЕРЕННЫМ запросом.
А для модификации запросов ЕСТЬ параметры (AdoQuery.Parameters)

В коде программы только заполнение нужных параметров и операции выполнения запросов (Open|Close|execSQL)

[Ernest027]

procedure TForm11.sBitBtn1Click(Sender: TObject);
begin
DataModule2.ADOQuery3.Close;
DataModule2.ADOQuery3.SQL.Add('insert into Oborudovanie ([Наименование единицы],[Оперативный номер], [Тип оборудования], [Заводской номер], [Технические характеристики], [Год выпуска]');
DataModule2.ADOQuery3.SQL.Add('select [Наименование единицы],[Оперативный номер], [Тип оборудования], [Заводской номер], [Технические характеристики], [Год выпуска]');
DataModule2.ADOQuery3.SQL.Add('from OborudovanieAdd');
DataModule2.ADOQuery3.SQL.Add('where not exists');
DataModule2.ADOQuery3.SQL.Add('select * from Oborudovanie');
DataModule2.ADOQuery3.SQL.Add('where OborudovanieAdd.[Оперативный номер] =Oborudovanie.[Оперативный номер]');
DataModule2.ADOQuery3.ExecSQL;
DataModule2.ADOQuery3.SQL.Clear;
DataModule2.ADOQuery3.SQL.Add('select * from Oborudovanie');
DataModule2.ADOQuery3.Open;
end;

пишет сначала 'Неправильный синтаксис около ключевого слова "select"', а потом много раз выходит сообщение что adoquery3 ... closed dataset

[Аватар]

Выше уже писал - в этом инсерте куча пропущенных скобок как минимум

[Ernest027]

не могли бы подправить?

[xxbesoxx]

Stilet если в общем: Для этого таблицы связывают внешними ключами, и проводят в запросах объединения и присоединения по ключевым полям,

в таком случае вы прав да . Тогда я бы делал (Бэкап целиком БД)

// SaveDialog1 и OpenDialog1 прописать расширение файлов .BAK  свойстве---> DefaultExt 
procedure TForm1.BitB_BekClick(Sender: TObject);
begin // Бэкап бд
 if SaveDialogFullBD.Execute then // SaveDialogFullBD = SaveDialog1
 begin
    Screen.Cursor:=crHandPoint;
    with Module.FullBDQuery do begin // Module.FullBDQuery = ADOQuery 
      Close;
       SQL.Clear;
        SQL.Add('backup database Имя_БД to disk='''+SaveDialogFullBD.FileName+''' ');
       ExecSQL;
      Close;
    end;
    Screen.Cursor:=crDefault;
    Application.MessageBox(PChar('Резервное копирование сохранено успешно!'),'Архив', MB_ICONEXCLAMATION+MB_OK);
  end;


end;

procedure TForm1.BitB_RestorClick(Sender: TObject);
var
  S: String;
begin // восстановление БД 
  if OpenDialogFullBD.Execute then begin // OpenDialogFullBD = OpenDialog1
     Screen.Cursor:=crHandPoint;
      Module.DbConn.Connected:=False; //  Module.DbConn = ADOConnection1
        S := 'ALTER DATABASE Имя_БД  SET SINGLE_USER WITH ROLLBACK IMMEDIATE; use master;  drop database Имя_БД ;'+
             'restore database Имя_БД  from disk = ''' + OpenDialogFullBD.filename + '''; ALTER DATABASE Имя_БД  SET MULTI_USER ';
        Module.DbConn.Execute(S);
       Module.DbConn.Connected:=True;
      Screen.Cursor:=crDefault;
      Application.MessageBox(PChar('Восстановление завершено успешно!'+chr(13)+'Следует заново войти в программу!'),'Архив', MB_ICONEXCLAMATION+MB_OK);
    Application.Terminate;
  end;

end;

[Ernest027]

DataModule2.ADOQuery3.Close;
DataModule2.ADOQuery3.SQL.Add('inse rt into Oborudovanie ([Наименование единицы],[Оперативный номер], [Тип оборудования], [Заводской номер], [Технические характеристики], [Год выпуска])');
DataModule2.ADOQuery3.SQL.Add('sele ct ([Наименование единицы],[Оперативный номер], [Тип оборудования], [Заводской номер], [Технические характеристики], [Год выпуска])');
DataModule2.ADOQuery3.SQL.Add('from OborudovanieAdd');
DataModule2.ADOQuery3.SQL.Add('wher e not exists');
DataModule2.ADOQuery3.SQL.Add('(sel ect * from Oborudovanie');
DataModule2.ADOQuery3.SQL.Add('wher e OborudovanieAdd.[Оперативный номер] =Oborudovanie.[Оперативный номер])');
DataModule2.ADOQuery3.ExecSQL;
DataModule2.ADOQuery3.SQL.Clear;
DataModule2.ADOQuery3.SQL.Add('sele ct * from Oborudovanie');
DataModule2.ADOQuery3.Open;

что не так то? скобки добавил