Копирование данных из Query в Table

← →
skirdov © (2002-12-02 16:18) [0]

Всем добрый вечер.

Имеется объекты Query и Table с идентичной структурой (FieldDefs). Как одним легким движением руки поместить все записи из Query в Table?

← →
Reindeer Moss Eater (2002-12-02 16:26) [1]

Table.BatchMove(Query)

← →
Prooksius © (2002-12-02 16:27) [2]

1 Открываешь Table
2 Открываешь Query
3 В цикле бежишь по записям Query
4 Table.Append
5 Записываешь данные из Query в Table
6 Table.Post
...
10 Куришь

← →
Некурящий (2002-12-02 16:38) [3]

Чото не получается

← →
Johnmen © (2002-12-02 16:45) [4]

>Некурящий (02.12.02 16:38)

Бросай некурить ! И все получится !
:)))

← →
Prooksius © (2002-12-02 16:54) [5]

Сорри, телепаты в отпуске.

← →
Некурящий (2002-12-02 17:07) [6]

Внимательно читающие и с чувством юмора видимо тоже

← →
Max Zyuzin © (2002-12-02 17:12) [7]

Объясняю за ув. Prooksius © (02.12.02 16:54) ...
Вы говорите Чото не получается но мы то не в курсе что именно у вас не получается... вы нам об этом не сообщаете.. мы не гадалки :))

← →
Anatoly Podgoretsky © (2002-12-02 17:18) [8]

INSERT INTO ...

← →
Карелин Артем © (2002-12-02 17:24) [9]

цикл до eof
begin
append
цикл i=0 to число полей-1
table.fields[i].value:=Query.Fields[i].value;
post
end

To Reindeer Moss Eater.

Получилось. Но вместо русских букв в TDBGridEh пишется знак "#".
Как это лечится? TDBGridEh связана с TDataSource, TDataSource связата с той самой TTable...

To Anatoly Podgoretsky © (02.12.02 17:18)
>INSERT INTO ...

Так сделать можно, но в моем случае придется выполнить запрос 2 раза :(
Дело в том, что заранее не известна структура TTable. Т.е. я пишу:

...
Query1.SQL.Add ("select ...");
Query1.Open;
Table1.FieldDefs := Query1.FieldDefs;
Table1.Create;

И чтобы добавить записи в TTatble придется выполнить запрос еще раз...

← →
Reindeer Moss Eater (2002-12-02 19:01) [12]

Как это лечится?
Настройкой языкового драйвера разумеется

Всем большое спасабо. :)

Копирование данных из Query в Table Найти похожие ветки