Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Копирование данных из Query в Table [D6, Paradox]


skirdov ©   (2002-12-02 16:18:00) 

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

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


skirdov   (2002-12-02 20:59:00) [1]

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


Reindeer Moss Eater   (2002-12-02 19:01:00) [2]

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


Anatoly Podgoretsky   (2002-12-02 18:53:00) [3]

Тогда другое дело, ну тогда гони в цикле, как указал Карелин Артем © (02.12.02 17:24)


skirdov   (2002-12-02 18:42:00) [4]

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 придется выполнить запрос еще раз...


Карелин Артем   (2002-12-02 17:24:00) [5]

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


Anatoly Podgoretsky   (2002-12-02 17:18:00) [6]

INSERT INTO ...


Max Zyuzin   (2002-12-02 17:12:00) [7]

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


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

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


Prooksius   (2002-12-02 16:54:00) [9]

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


Johnmen   (2002-12-02 16:45:00) [10]

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

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


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

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


Prooksius   (2002-12-02 16:27:00) [12]

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


Reindeer Moss Eater   (2002-12-02 16:26:00) [13]

Table.BatchMove(Query)


Наверх

Титульная страница Поиск, карта сайта Написать письмо