Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Добавить данные из ADODataSet в ClientDataSet 
:(
    Опции темы
Чучмек
Дата 12.3.2013, 02:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 1
Всего: 41
Пока остановился на таком варианте
Код

var
 i:integer;
 fd:TFieldType;
begin
...
ADOQuery1.Open;

if ClientDataSet1.FieldCount=0 then
 begin
 //ClientDataSet1.FieldDefs.Assign(ADOQuery1.FieldDefs);
 ClientDataSet1.FieldDefs.Clear;
 for i:=0 to ADOQuery1.FieldCount-1 do
  with ADOQuery1.FieldDefList[i] do
   begin
   if DataType=ftAutoInc then  fd:=ftInteger  else fd:=DataType;
   ClientDataSet1.FieldDefs.Add(Name,fd,Size,Required);
   end;
 ClientDataSet1.CreateDataSet;
 ClientDataSet1.Open;
 end;

ADOQuery1.Recordset.MoveFirst;
ADOQuery1.First;
ClientDataSet1.Last;
while not ADOQuery1.Eof do
 begin
 ClientDataSet1.Append;
 for i:=0 to ClientDataSet1.FieldCount-1 do
   ClientDataSet1.Fields[i].Value:=ADOQuery1.Fields[i].Value;
 ADOQuery1.Next;
 end;
end;

Мне не нравится.
Кто нибудь делал такое?
Можно скопировать сразу всю запись(строку)?

Это сообщение отредактировал(а) Чучмек - 12.3.2013, 02:20


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

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

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


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

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

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


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

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

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

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


 




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


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

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