Еще один вопрос с SQL-ом

[фЁдОр]

У меня воник еще один вопрос!
Подскажите, пожалуйста, почему не получается перетащить данные из оной таблицы в другую из-за раных форматов таблиц.

Вот пример:
use "с:/BazaDannih/firm1.dbf";
use "с:/BazaDannih/firm2.mbf";
insert into firm2 (name2, adress2) select name1, adress1 from firm1;

[Virtson]

приведи их к одному формату ..

[фЁдОр]

Мне нужно это проделать не изменяя форматов, но к моему сожалению, я очень трудно представляю как! Думаю, что такие вещи делаются через массив, но КАК?

[Nemon]

А если сделать через ttable или ADOtable

....EOF

firm2.insert;
firm2adress2.value:= firm1adress1.value;
firm2name2.value:= firm2name1.value;
firm1.next;

это как вариант.

[mihali4]

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

У меня воник еще один вопрос!
Подскажите, пожалуйста, почему не получается перетащить данные из оной таблицы в другую из-за раных форматов таблиц.

Вот пример:
use "с:/BazaDannih/firm1.dbf";
use "с:/BazaDannih/firm2.mbf";
insert into firm2 (name2, adress2) select name1, adress1 from firm1;

Вы что, всерьез полагаете, что тут все поголовно телепаты?
Опишите эту разницу в форматах подробно, чего вы боитесь-то?
Вам сразу помогут. А так, не имея исходной информации, мы будем долго гадать...

[фЁдОр]

Пожалуйста, если можно, расскажите поподробнее.
Нужно подключиться к одной из таблиц, к примеру, firm1.dbf при помщи компонентов: ADOConnection1, ADOTable1, DataSource1 и DBGrid1. А дальше не соображу, что значит
....EOF?

[Nemon]

EOF - end of file

Создай две ADOTable одну к одной таблице, другую к другой. Дальше выполняешь такую процедуру

begin
firm1.first;
  while not firm1.Eof do begin
  firm2.insert;
  firm2adress2.value:= firm1adress1.value;
  firm2name2.value:= firm1name1.value;
  firm1.next;
  end;
end;

да и еще если разные типы полей то лучше испрользовать не .value, а .asstring

EOF это если тебе надо перенести все данные. А если надо одну запис, то

  firm2.insert;
  firm2adress2.value:= firm1adress1.value;
  firm2name2.value:= firm1name1.value;

[фЁдОр]

Я создал две ADOTable, подключился к двум таблцам, но не понятно, что за процеура должна быть?
Может быть по нажатию кнопки?:

 
procedure TForm1.Button1Click(Sender: TObject);
begin
firm1.first;
while not firm1.Eof do begin
firm2.insert;
firm2adress2.value:= firm1adress1.value;
firm2name2.value:= firm1name1.value;
firm1.next;
end;
end;

[фЁдОр]

Сообщение от mihali4

Вы что, всерьез полагаете, что тут все поголовно телепаты?
Опишите эту разницу в форматах подробно, чего вы боитесь-то?
Вам сразу помогут. А так, не имея исходной информации, мы будем долго гадать...

Я извеняюсь, что если что-то непонятно, мне казалось, что я ясно вопросы ставил.
Сейчас попробую заново поставить вопрос:
Таблица firm1.dbf создана в програме Visual FoxPro, а таблица firm2.mdb создана в MS Access. Проблема заключается в том, что я не могу скопировать данные из талицы firm1.dbf в таблицу firm2.mdb

[Nemon]

Можешь привязать на нажатие кнопки, хоть на еще чего. Это не принципиально


Или вообще давай сюда две свои таблицы и я тебе пример готовый напишу