Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.10.2010, 14:23   #1
iliili
Пользователь
 
Аватар для iliili
 
Регистрация: 06.03.2010
Сообщений: 56
По умолчанию передать запись

как передать запись из одной бд в другую ?(clientdataset;*bdf);
Сделал ошибку.Исправил.Подзаработал
iliili вне форума Ответить с цитированием
Старый 01.10.2010, 14:28   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ну если уж через Делфи, то одну БД открыть в одном компоненте, а другую в другом, и в цикле передать значения полей...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 01.10.2010, 14:30   #3
iliili
Пользователь
 
Аватар для iliili
 
Регистрация: 06.03.2010
Сообщений: 56
По умолчанию

ну я понял но какой процедурой передавать значения?)
Сделал ошибку.Исправил.Подзаработал
iliili вне форума Ответить с цитированием
Старый 01.10.2010, 14:45   #4
_SERGEYX_
Участник клуба
 
Аватар для _SERGEYX_
 
Регистрация: 07.07.2007
Сообщений: 1,518
По умолчанию

Stilet, как у вас модераторов терпения хватает отвечать на такие вопросы? :=))

iliili, пиши что-нибудь, типа
Код:
var i: Integer;

  Table2.Insert;
  for i:=0 to Table1.FieldCount-1 do
  Table2.Fields[i].AsVariant:= Table1.Fields[i].AsVariant;
  Table2.Post;
Структура таблиц должна быть идентичной.
_SERGEYX_ вне форума Ответить с цитированием
Старый 01.10.2010, 15:02   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
ну я понял но какой процедурой передавать значения?)
Я не работаю с clientdataset, насчет процедуры тебе показали, где Table1 - откуда передать текущую запись, Table2 - куда, причем с дописыванием в конец таблицы. разве что я бы написал так:
Код:
  

 with Table2 do begin
  Insert;
  for i:=0 to Table1.FieldCount-1 do Fields[i]:= Table1.Fields[i].AsVariant;
  Post;
 end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Передать рус буквы HTL Работа с сетью в Delphi 6 02.04.2022 14:19
Передать параметр в процедуру VistaSV30 Microsoft Office Access 2 18.12.2009 20:45
Передать файл клиенту BlackOmen JavaScript, Ajax 7 26.06.2008 11:36
Передать Канву Pedro Работа с сетью в Delphi 7 28.04.2008 17:38
передать переменную ar4i Общие вопросы Delphi 10 04.12.2006 14:30