Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: CL | DM;

Вниз

Заполнение таблицы(TADOTable) информацие из потока(TADOQuery)   Найти похожие ветки 

 
tramp   (2003-06-11 17:22) [0]

В BDE есть компонент TBathMove перемещающий информацию из одной таблицы (или потока на выходе TQuery) в другую. Как сделать это в через ADO? Добавлени по сторокам не рассаматривается. Имеется в виду что-то более быстое и элегантное :)


 
Shaman ©   (2003-06-11 17:40) [1]

Думаю, кроме как по строкам перегонять, ничего и не придумаешь (TBathMove тоже так поступает). Только передавать значения нужно без использования вариантных преобразований, тогда код будет быстро работать. Ниже приведен кусок из процедуры, делающий нечто подобное.


var
i: Integer;
j: Integer;
Q: TSQLQuery;
aDS: TClientDataSet;
F: TField;
P: Pointer;
...
j := aDS.DataSize;
GetMem(P, j);
try

while not Q.Eof do
begin
aDS.Append;
for i := 0 to Q.FieldCount - 1 do
if Q.Fields[i].GetData(P, True) then aDS.Fields[i].SetData(P, True);
aDS.Post;
Q.Next;
end;
Q.Active := False;

finally
if P <> nil then FreeMem(P);
end;

...


З.Ы. Поля двух таблиц должны быть строго идентичными


 
tramp   (2003-06-14 12:31) [2]

Имелось в виду, что Q:TADOQuery? Спасибо:-)



Страницы: 1 вся ветка

Текущий архив: 2003.07.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-20068
Unknown user
2003-06-25 20:10
2003.07.07
Проблема при вставке из буфера обмена в TMemo больших текстов


1-20101
avkiev
2003-06-19 18:29
2003.07.07
Проблема с вызовом функции


1-20040
Anonimus
2003-06-25 14:01
2003.07.07
Как отловить нажатие клавиш.....


3-19960
Sergey13
2003-06-11 09:26
2003.07.07
Статья про возможности работы со станд. DBGrid-ом


14-20299
SemFLY
2003-06-19 09:16
2003.07.07
Проблема с WinRoute 5.0.4 ...