Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Немного о копировании данных ... / 5 сообщений из 5, страница 1 из 1
15.05.2003, 01:29
    #32160090
Allvin
Allvin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Немного о копировании данных ...
Есть такая задача, нужно в в Query скопировать запись (ну вставить такую же как текущая с маленькими изменениями)....
Хотелось бы это сделать без привязки к конкретным полям таблицы ( что б при при добавлении новых полей все не пришлось переписывать)..
Может кто-то такое уже делал ??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.05.2003, 04:19
    #32160095
dragonx
dragonx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Немного о копировании данных ...
u TQUERY est svoistva TFIELD, mojesh dinamicheski sformirovat SQL.Text i vipolnit` ego, zapis` dobavitsya, a polya ti vozmesh iz TQUERY ;))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.05.2003, 08:45
    #32160150
RoVS
RoVS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Немного о копировании данных ...
Не совсем уверен как это будет в Dlphi, но примерно так:

Код: plaintext
1.
    for i:= 0  to ADOQuery1.FieldCount
        ADOQuery1.Fields.Fields[i]:=.....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.05.2003, 10:58
    #32160321
Papka
Papka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Немного о копировании данных ...
var av: array of variant;
a: Byte;
begin
with DataSet do begin
SetLength(av, Fields.Count);
for a := 0 to Fields.Count - 1 do av[a] := Fields[a].AsVariant;
Insert;
for a := 0 to Fields.Count - 1 do Fields[a].AsVariant := av[a];
Post
end

Vrode tak u menja rabotajet.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.05.2003, 12:00
    #32160454
McAndy
McAndy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Немного о копировании данных ...
2 Papka
я бы еще посоветовал в теле цикла сделать проверку поля, чтобы игнорировать лукап и вычисляемые поля, иначе ероры лезут
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Немного о копировании данных ... / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]