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

[фЁдОр]

Непонял...
table2 - это же и есть имя таблицы!

[mihali4]

Эти имена таблиц, я для примера привел, что бы как можно было понятнее изъяснить

Ваши слова? Если они так же записаны и в базе (т.е. table1.db и table2.db) то это - гарантия взаимонепонимания между вами и СУБД. Еще раз повторюсь, поскольку вы, очевидно, не обратили внимания - НЕ РЕКОМЕНДУЕТСЯ В КАКИХ-ЛИБО НАИМЕНОВАНИЯХ ИСПОЛЬЗОВАТЬ КЛЮЧЕВЫЕ СЛОВА! А слово TABLE именно таковым и является!
Пусть ваши таблицы в базе называются FIRMS1.DB и FIRMS2.DB.
Вы сразу резко снизите геморроидальность отладки программы...
И упаси вас господь применять ключевые слова в наименованиях полей - это будет такая неразбериха, что не только БД, но и вы голову сломаете...

[фЁдОр]

Нет! Написав, что я использую эти имена таблиц в качестве пимера, я имел ввиду, что в качестве примера здесь на форуме, а не у себя!
Но не в этом суть. Непонятно, почему при нажатии кнопки, компилятор ругается на ту строку:
ADOQuery1.SQL.Text:='SELECT * FROM table2';
P.S.: в место table2 я ставлю нормальное имя таблицы.

[mihali4]

Сообщение от фЁдОр

Нет! Написав, что я использую эти имена таблиц в качестве пимера, я имел ввиду, что в качестве примера здесь на форуме, а не у себя!
Но не в этом суть. Непонятно, почему при нажатии кнопки, компилятор ругается на ту строку:
ADOQuery1.SQL.Text:='SELECT * FROM table2';
P.S.: в место table2 я ставлю нормальное имя таблицы.

Попробуйте вместо звездочки выбрать какое-нибудь одно поле... или пару полей...
Оператор-то самый примитивный. Не понимаю, на что тут ругаться компилятору? В принципе, вы можете написать:
ADOQuery1.SQL.Text:='ВАСЯ, ШЕЛ БЫ ТЫ В БАНЮ!';
Компилятору это должно быть по барабану (это же просто стринговая переменная), а вот БД при исполнении этого запроса "выпадет в осадок"...
Скорее всего, у вас ошибка в предыдущей или последующей строке, но вы, как Штирлиц...

[фЁдОр]

Я пробовал и со звездочкой и в место звездочки ставил имена полей. Код рабочий, это точно! Я в программе Visual FoxPro, в окне Сommand написав код:
insert into FIRM1 (name1, adress1) select name2, adress2 from firm2
все работает. Видимо проблема в связи SQL с Delphi.
Попробуйте, пожалуйста, разъяснить, что я не так делаю. А делаю я так:
1. Бросаю на форму компонент ADOConnection, через него посоединяюсь к БД. В свойстве Connect выставляю true.
2. Бросаю на форму компонент ADOQuery. В свойстве connection выбираю ADOConnection1, а в свойстве SQL написал:
select *
from firm1
Затем в свойстве Active выставляю true
3. Бросаю на форму компонент DataSource. В свойстве DataSet выставляю ADOQuery1
4. Бросаю на форму компонент DBGrid. В свойстве DataSource выставляю DataSource1
5. Бросаю на форму кнопку и по ее ножатию пишу:
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO FIRM1 (NAME_FIRM, ADRESS )');
ADOQuery1.SQL.Add('SELECT NAME, ADDRESS');
ADOQuery1.SQL.Add('FROM firm');
ADOQuery1.ExecSQL;
ADOQuery1.Active:=true;
end;

Вот собственно и все. Подскажите, что я не так делаю.

[mihali4]

Вот собственно и все. Подскажите, что я не так делаю.

Так вроде уже обсуждали это.
Ваш запрос НЕ СОЗДАЕТ РЕЗУЛЬТИРУЮЩЕГО НАБОРА ДАННЫХ, т.е., попросту говоря, когда вы в конце концов делаете
ADOQuery1.Active:=true;
, DBGrid сходит с ума - "отобрази то, не знаю что..."
Вам перед этой строкой нужно вставить:
ADOQuery1.SQL.Text:='select * from firm1';

[фЁдОр]

Фантастика!!! mihali4, спасибо Вам большое! Наконец-то получилось. Вот только мне нужно проделать такую же операцию, но с разными форматами таблиц. Но все равно, то, чему Вы меня научили проделать перемещение данных между таблицами одно формата, тоже очень важно для меня. Еще раз спасибо!

[ivp88]

я сделал так :
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Table3.insert;
Table3.FieldByName('InvenNom').AsSt ring :=Table2.FieldByName('InvenNom').As String;
Table3.FieldByName('NazvKn').AsStri ng :=Table2.FieldByName('NazvKn').AsSt ring;
Table3.FieldByName('ID_Chit').AsStr ing :=Table2.FieldByName('ID_Chit').AsS tring;
Table3.FieldByName('ID_Bibl').AsStr ing :=Table2.FieldByName('ID_Bibl').AsS tring;
Table3.Post;
end;

[фЁдОр]

ivp88 - немножко темой ошиблись , но ничего. Работает, нормально?