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

[mihali4]

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

Я конечно извеняюсь за некоректный вопрос, но получается что надо писать в место имени фирмы (firm1) ADOQuery1? Т.е.
В место:
firm1.first;
надо писать:
ADOQuery1.First?
Так надо писать?

Так, приехали...
Теперь оказалось, что firm1 - это еще и имя фирмы... Вот каша-то...
Все. Караул устал...
Итак, в последний раз:
Вместо firm1.first;
надо писать ADOQuery1.First

[Alex21]

mihali4, чувствую придется тебе выложить исходничек

[mihali4]

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

mihali4, чувствую придется тебе выложить исходничек

Я аспирантам преподавал, и то таких... э-э-э, непонятливых не попадалось...
Моя задача - помочь ему самому сделать, а не выложить готовое, на которое он будет бессмыленно пучить глаза...
Нужно, чтоб человек разобрался.

[фЁдОр]

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

 
procedure TForm1.Button1Click(Sender: TObject);
begin
while not ADOQuery1.Eof do begin
ADOQuery2.Insert;
ADOQuery2.FieldValues['name2']:=ADOQuery1.FieldValues['name1']; {имени поля 
name2 во второй талице, присваиваем значение имени поля name1 в первой таблице}
ADOQuery2.FieldValues['adress2']:=ADOQuery1.FieldValues['adress1'];
ADOQuery2.Post;
ADOQuery1.Next;
end;
end;

И еще, хочу выразить Вам свою благодарность, в особенности конечно же mihali4'у(это Вы правильно заметили, что я должен сам разобраться) и конечно же я очен благодарен Nemon'у.
Большое спасибо за помощь и извеняйте за мое недопонимание.

[Alex21]

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

Ребят, извеняйте меня за мою глупость. Я только недавно начал изучать делфи и много еще не знаю....

К тебе никаких претензий что не ясно спрашивай.

Одна просьба - оформляй сообщения аккуратно. Используй для больших кодов Теги Code.

[фЁдОр]

Хорошо - буду оформлять аккуратно,я просто не знал, что так надо. Спасибо.

[mihali4]

И все же не забываем устанавливать указатель на первую запись. А вдруг мы перед копированием погуляли по записям и указатель сейчас стоит не в начале?

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.First;
while not ADOQuery1.Eof do begin
ADOQuery2.Insert;
ADOQuery2.FieldValues['name2']:=ADOQuery1.FieldValues['name1']; {имени поля 
name2 во второй талице, присваиваем значение имени поля name1 в первой таблице}
ADOQuery2.FieldValues['adress2']:=ADOQuery1.FieldValues['adress1'];
ADOQuery2.Post;
ADOQuery1.Next;
end;
end;

[фЁдОр]

Спасибо, буду знать!