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

Код: plaintext
1.
    for i:= 0  to ADOQuery1.FieldCount
        ADOQuery1.Fields.Fields[i]:=.....
...
Рейтинг: 0 / 0
Немного о копировании данных ...
    #32160321
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
Немного о копировании данных ...
    #32160454
McAndy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 Papka
я бы еще посоветовал в теле цикла сделать проверку поля, чтобы игнорировать лукап и вычисляемые поля, иначе ероры лезут
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Немного о копировании данных ...
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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