Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как получить данные из DataSet не меняя его активную запись.

Страницы: 1 2 >
Бездомный © (2011-12-05 12:35:00)
Желательно с поиском по ключевому полю.

Пока сделал так, но, чувствую, можно сделать как-то быстрее, элегантнее, что ли:

IDField := List.DataController.KeyField;
IDValue := Node.KeyValue;

DL := TDataLink.Create;
try
DL.DataSource := List.DataController.DataSource;
DL.ReadOnly := True;

Row := DL.ActiveRecord;
try
for I := 0 to Pred(DL.RecordCount) do
begin
DL.ActiveRecord := I;
if DL.DataSet.FieldByName(IDField).Value = IDValue then
begin
Result := DL.DataSet.FieldByName(FieldName).Value;
Break;
end;
end;
finally
DL.ActiveRecord := Row;
end;
finally
DL.Free;
end;

Ega23 (2011-12-05 14:46:00) [1]

> Например, взять не грид, а TcxDBTreeList, который в данном
> случае - то же самое. Ставлю на OnDataChange его DataSource
> точку останова, запускаю. Останов 2 раза, а строк, которые
> отображает контрол несколько сотен. Какой отсюда вывод?

Отсюда вывод такой, что TDataSource.OnDataChange дёргается при:
1. Изменении содержимого набора данных.
2. TDataSet.EnableControls

Плохиш (2011-12-05 14:24:00) [2]

> Димка На (05.12.11 13:12) [16]

Теперь тоже самое для OnBeforeScroll

OW (2011-12-05 13:28:00) [3]

> Хотя, может они и не копируются, а просто ссылка на них
> добавляется.

По моему, ссылка. Но!
Можно пустить 2 курсора, независимо. Один из - закрыть, открыть и т.п.
Я так делаю, когда доп.поток пускаю на выбранные данные(отчет формировать, печатать). А юзер новые может выбирать в это время.

Димка На (2011-12-05 13:25:00) [4]

> Я уже попробовал - работает, но совесть мучает факт копирования
> данных. Хотя, может они и не копируются, а просто ссылка
> на них добавляется. Почитаю еще.

Нашел по первым трем ссылкам с гугла:
You do not actually make another physical copy which would require memory, but rather, you create a second (or third, etc.) pointer to the same Recordset.
То что нужно.

> Ega23 © (05.12.11 13:21) [21]

Ну это слово я с иронией употребил, потому и в кавычках. Извини в любом случае и спасибо за помощь!

Ega23 (2011-12-05 13:21:00) [5]

> Спасибо. Я так понимаю это "православный" вариант?

Я антихристианин, посему мне обидны ваши слова.

Димка На (2011-12-05 13:20:00) [6]

> OW © (05.12.11 13:16) [19]
> давно бы написал
> ADODS2.Clone(ADODS1); да посмотрел.
> не знаю как реализовано, но внешне как ты описал
>

Я уже попробовал - работает, но совесть мучает факт копирования данных. Хотя, может они и не копируются, а просто ссылка на них добавляется. Почитаю еще.

OW (2011-12-05 13:16:00) [7]
давно бы написал
ADODS2.Clone(ADODS1); да посмотрел.
не знаю как реализовано, но внешне как ты описал

дергается вот это
Recordset20 = interface(Recordset15)
function Clone(LockType: LockTypeEnum): _Recordset; safecall;

Медвежонок Пятачок (2011-12-05 13:13:00) [8]
Какой отсюда вывод?

вывод простой: ты наивный и неискушенный человек.

Димка На (2011-12-05 13:13:00) [9]

> Ega23 © (05.12.11 13:08) [14]

Спасибо. Я так понимаю это "православный" вариант?

Димка На (2011-12-05 13:12:00) [10]

> Или тебе удобнее думать, что грид обладает магией и телепатией?

Хотелось бы.

> Создай событие OnDataChange, поставь в нëм точку останова
> и удивись.

Интересно получается.
Например, взять не грид, а TcxDBTreeList, который в данном случае - то же самое. Ставлю на OnDataChange его DataSource точку останова, запускаю. Останов 2 раза, а строк, которые отображает контрол несколько сотен. Какой отсюда вывод?

OW (2011-12-05 13:08:00) [11]

> ADO, ADO, при этом все данные в памяти будут скопированы?

да

Ega23 (2011-12-05 13:08:00) [12]
var bm: TBookmark; with DataSet do begin if IsEmpty then Exit; DisableControls; try bm := GetBookmark; try First; while not Eof do begin // Вот тута проверяем, чо за запись и подходит она нам или нет. Next; end; GotoBookmark(bm); finally FreeBookmark(bm); end; finally EnableControls; end; end;

Плохиш (2011-12-05 13:06:00) [13]

> Димка На (05.12.11 13:04) [11]
>
> > Конечно нет.
>
> А как тогда?
>

Создай событие OnDataChange, поставь в нëм точку останова и удивись.

Медвежонок Пятачок (2011-12-05 13:06:00) [14]
А как тогда?

Любая видимая в гриде строка как минимум один раз была текущей в датасете после его открытия.

Или тебе удобнее думать, что грид обладает магией и телепатией?

Димка На (2011-12-05 13:04:00) [15]

> Конечно нет.

А как тогда?

> OW © (05.12.11 13:03) [9]
> в ADO есть Clone, если это ADO

ADO, ADO, при этом все данные в памяти будут скопированы?

Anatoly Podgoretsky (2011-12-05 13:03:00) [16]

> А разве нет? Активная строка одна, а он при прорисовке показывает
> все.

Не может быть!

OW (2011-12-05 13:03:00) [17]
в ADO есть Clone, если это ADO

Медвежонок Пятачок (2011-12-05 13:01:00) [18]
А разве нет? Активная строка одна, а он при прорисовке показывает все.

Конечно нет.

Димка На (2011-12-05 12:58:00) [19]

> Ему открыть второй датасет религия не позволяет.

Предлагаете открывать такой-же датасет и работать с ним?

Димка На (2011-12-05 12:57:00) [20]

> А он это делает?

А разве нет? Активная строка одна, а он при прорисовке показывает все.

Страницы: 1 2 >

Наверх

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