Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ADOQuery to BDETable, save 
:(
    Опции темы
uranpro
Дата 5.9.2008, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1
Выполняется запрос на ADOQuery, нужно полученные данные перевести в BDE Paradox и сохранить на диске, как это сделать ?

Код

ADOQuery1.sql.text:='select * from mytable';
adoquery1.open;
table1. ... // что дальше ?))


заранее спасибо!!


--------------------
I want a perfect soul
PM MAIL ICQ   Вверх
Frees
Дата 5.9.2008, 11:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
Код

ADOQuery1.sql.text:='select * from mytable';
adoquery1.open;
adoquery1.first;
while not adoquery1.eof do
begin
  table1.append;
  table1.fieldbyname('имя поля').value := 
     adoquery1.fieldbyname('имя поля').value;
  // и все поля так же, можно в цикле по полям пройтись
  table1.Post; 
  adoquery1.next;
end;



--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
uranpro
Дата 5.9.2008, 11:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1
Frees, большое спасибо !!!)


--------------------
I want a perfect soul
PM MAIL ICQ   Вверх
Deniz
Дата 5.9.2008, 11:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

Репутация: 8
Всего: 44
Примерно так:
Код
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
  Table1.Append;
  Table1.Fieldbyname(...).as...:=Query1.Fieldbyname(...).as...
  ...
  Table1.Post;
  Query1.Next;
end;



--------------------
"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)
PM ICQ   Вверх
uranpro
Дата 5.9.2008, 11:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1
Frees, а так можно ?
Код

for i:=0 to ADOQuery1.FieldCount-1 do
 Table1.Fields.Add(ADOQuery1.IndexFields[i]);


мне немного не понятно, а где табла сохраниться ? и если я сделаю так, как написал, все данные столбцов перенесутся в table1 ?

Добавлено через 1 минуту и 45 секунд
Deniz, а куда table1 сохраниться ? если она вобще пустая, разве можно будет обращаться по имени столбцов ?


--------------------
I want a perfect soul
PM MAIL ICQ   Вверх
Frees
Дата 5.9.2008, 11:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
Цитата(uranpro @  5.9.2008,  11:54 Найти цитируемый пост)
мне немного не понятно, а где табла сохраниться ? и если я сделаю так, как написал, все данные столбцов перенесутся в table1

table1 уже должна быть подцепленна к зарание созданной таблице причем поля и типы должны совпадать тогда только можно будет бежать по полям циклом

Это сообщение отредактировал(а) Frees - 5.9.2008, 11:59


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
uranpro
Дата 5.9.2008, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1
Frees, вот. с этим проблема( как программно создать таблицу Paradox на диске и подцепить ее?

Это сообщение отредактировал(а) uranpro - 5.9.2008, 12:05


--------------------
I want a perfect soul
PM MAIL ICQ   Вверх
Frees
Дата 5.9.2008, 12:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
Код

sql := 'CREATE TABLE "employee.db" ( '+
      'Last_Name CHAR(20),'+
     'First_Name CHAR(15),'+ 
      'Salary NUMERIC(10,2),'+
      'Dept_No SMALLINT,'+ 
      'PRIMARY KEY (Last_Name, First_Name))';
Query1.sql.text:=sql;
Query1.ExecSQL;

©DRKB


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
uranpro
Дата 5.9.2008, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1
Frees, ))) ой) точно


--------------------
I want a perfect soul
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0482 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.