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

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

SetField, AppendRecord [D6, access]


Ирина ©   (2005-07-14 14:40:00) 

Как с помощью функций SetField и AppendRecord переносить поля из DataSet, т.е. что надо писать в скобках??


ANB   (2005-07-14 16:46:00) [1]

procedure TForm2.Button1Click(Sender: TObject);
var i, n;
begin
// Не забыть, что DataSetTo должен быть открыт (Open) или открыть его здесь
n := DataSetTo.FieldCount - 1;
DataSetFrom.First; // Или Open, если он закрыт.
while (not DataSetFrom.Eof) do begin
 DataSetTo.Append;
 for i := 0 to n do begin
  DataSetTo.FieldByName(DataSetFrom.Fields[i].FieldName).AsString
  := DataSetFrom.Fields[i].AsString;
 end;
 DataSetTo.Post;
 DataSetFrom.Next;
end;
// Здесь можно заклозить все дейтасеты, если надо
end;


Ирина   (2005-07-14 15:45:00) [2]

>запись из нескольких полей
...состоящая из нескольких полей


Ирина   (2005-07-14 15:44:00) [3]

> ANB ©   (14.07.05 15:23) [5]
Необходимо из одного DataSet в другую перенести запись из нескольких полей


ANB   (2005-07-14 15:23:00) [4]


> Ирина   (14.07.05 15:22) [4]
- уточни задачу. А кусок хелпа запостить недолго.


Ирина   (2005-07-14 15:22:00) [5]

Спасибо за помощь!


Johnmen   (2005-07-14 14:58:00) [6]

>Val ©   (14.07.05 14:55) [2]

:)
Я тоже заметил...


Val   (2005-07-14 14:55:00) [7]

>[1] Johnmen ©   (14.07.05 14:42)
тсс. сейчас модно ставить делфи без хелпа ;)


Johnmen   (2005-07-14 14:42:00) [8]

Ну если нет букварей, то хотя бы F1 работает?


Наверх

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