VPF::Работа программы - Форум программистов

Aprol

Дата 29.7.2007, 05:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 259
Регистрация: 15.6.2007

Репутация: нет
Всего: нет

Блин такая странная проблема.
Значит считываю из Dataset в массив:

Код


get_tree.Params.Items[0].AsInteger:= id_client_class;//входной параметр
 GET_TREE.Active:=TRUE;//Запрос
 //SOURCETREE это Datasource 
//заполнение массива из набора данных по запросу
 for i:=1 to SOURCETREE.DataSet.RecordCount do
  begin
    TreeElements[i].id_theme:=sourceTree.DataSet.Fields.FieldByName('ID_THEME').AsInteger;
    TreeElements[i].id_subject:=sourceTree.DataSet.Fields.FieldByName('ID_SUBJECT').AsInteger;
    TreeElements[i].Name:=sourceTree.DataSet.Fields.FieldByName('NAME').AsString;
   TreeElements[i].Name_subject:=sourceTree.DataSet.Fields.FieldByName('NAME_SUBJECT').AsString;

    SOURCETREE.DataSet.Next;
  end;

Пока делал и проверял запросы на форме был DBGRID подключенный к SOURCETREE.
Итог:
запрос выполняется, данные заносятся в массив TreeElements, короче все работает.
Вчера удалил DBGRID и все перестало правильно работать.
Отчего это, мне непонятно т.к. к DBGRID я не обращаюсь нигде он не использовался.
Также все перестает работать при установлении

Код


DBGRID.visible:=false;

Как так?

Alex

Дата 29.7.2007, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 17
Всего: 162

Aprol, На будущее одна тема, один вопрос!
Теперь, что касается вопроса. Прочитайте хоте немного о БД и узнаете, что свойство RecordCount содержит число полученых с сервера записей, а для уменьшения трафика все sql сервера отправляют записи по мере их необходимости. Когда записи нужны были для отображения в гриде их вам отправили.
Обход всех записей в датасете всегда осуществляется так:

Код


get_tree.Params.Items[0].AsInteger:= id_client_class;//входной параметр
 GET_TREE.Active:=TRUE;//Запрос
 //SOURCETREE это Datasource 
//заполнение массива из набора данных по запросу
 while not SOURCETREE.DataSet.Eof do
  begin
    TreeElements[i].id_theme:=sourceTree.DataSet.Fields.FieldByName('ID_THEME').AsInteger;
    TreeElements[i].id_subject:=sourceTree.DataSet.Fields.FieldByName('ID_SUBJECT').AsInteger;
    TreeElements[i].Name:=sourceTree.DataSet.Fields.FieldByName('NAME').AsString;
   TreeElements[i].Name_subject:=sourceTree.DataSet.Fields.FieldByName('NAME_SUBJECT').AsString;
    SOURCETREE.DataSet.Next;
  end;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »