[kerby666]

При выполнении sql запросов DBGrid отражает результат так сказать в режиме он-лайн. Меня интересует следующее. Берем пустой dbgrid, выполняем sql запрос (при условии что это самое условие уникально, т.е. я из общего массива данных вытащу 1 поле). В dbgrid появилось поле с результатом. И вот в чем суть!!! Я хочу выполнить еще один SQL-запрос. Так, чтобы результат оказался в следующей строке (поле) dbgrid. И так далее. Чтобы dbgrid содержал в себе поля-результаты всех запросов, а не только последнего. Спасибо!

[poli-smen]

Сообщение от kerby666

При выполнении sql запросов DBGrid отражает результат так сказать в режиме он-лайн. Меня интересует следующее. Берем пустой dbgrid, выполняем sql запрос (при условии что это самое условие уникально, т.е. я из общего массива данных вытащу 1 поле). В dbgrid появилось поле с результатом. И вот в чем суть!!! Я хочу выполнить еще один SQL-запрос. Так, чтобы результат оказался в следующей строке (поле) dbgrid. И так далее. Чтобы dbgrid содержал в себе поля-результаты всех запросов, а не только последнего. Спасибо!

DBGrid только отображает результат запроса, он ничего не хранит. Результат запроса хранится в Query. Тебе просто нужно выполнить правильный запрос (например с использованием UNION). Если же нужно накапливать результаты нескольких запросов, то можешь использовать для этого например TStringGrid.

[Lost_Fish]

я для таких целей использую связку
квэри --> виртуальная таблица --> грид
из квэрика данные переношу в VT процедурой и если надо добавляю их если нет чищу перед этим VT

[kerby666]

Сообщение от Lost_Fish

я для таких целей использую связку
квэри --> виртуальная таблица --> грид
из квэрика данные переношу в VT процедурой и если надо добавляю их если нет чищу перед этим VT

А можно мне глянуть кусок кода, чтоб понять, как это реализуется. Думаю, это именно то, что нужно. Спасибо!

[poli-smen]

Сообщение от kerby666

А можно мне глянуть кусок кода, чтоб понять, как это реализуется. Думаю, это именно то, что нужно. Спасибо!

Виртуальная таблица - это отдельный компонент, его нужно ставить отдельно. Например он есть в известной библиотеке RxLib.
А в стандартных компонентах Delphi есть такой TClientDataSet, он предназначен немного для другого, но можно использовать и как виртуальную таблицу. Для этого я его обычно и использую

[poli-smen]

Вот так можно перекачать данные из обычного Query в виртуальную ClientDataSet:

Код:

uses ..., MidasLib, Provider;

...
procedure TForm1.Button1Click(Sender: TObject);
var
  Provider: TDataSetProvider;
begin
  Provider := TDataSetProvider.Create(nil);
  try
    Provider.DataSet := Query1;
    ClientDataSet1.Data := Provider.Data;
  finally
    Provider.Free;
  end;
end;

[Lost_Fish]

Сообщение от kerby666

А можно мне глянуть кусок кода, чтоб понять, как это реализуется. Думаю, это именно то, что нужно. Спасибо!

блин в предыдущем посте P.S. не сохранил

я для этого использую DevArt IBDAC http://www.devart.com/ibdac/download.html у него в комплекте идёт TVirtualTable и TCRBatchMove (он переносит данные в VT)

Код:

procedure BatchMove(FromDS,ToDS:TDataSet;const Mode:TCRBatchMode=bmAppendUpdate);
var
    BachMove:TCRBatchMove;
begin
    try
        BachMove:=TCRBatchMove.Create(nil);
        BachMove.FieldMappingMode:=mmFieldName;
        BachMove.Mode:=Mode;
        BachMove.Source:=FromDS;
        BachMove.Destination:=ToDS;
        BachMove.Execute;
        ToDS.Open;
    finally
        FreeAndNil(BachMove);
    end;
end;

но можно и без сторонних компонентов попробовать что-то типа этого

Код:

procedure BatchMove(FromDS,ToDS:TDataSet);
var
    x:Integer;
begin
    if Assigned(FromDS) and Assigned(ToDS) and FromDS.Active and ToDS.Active then //если есть оба НД и они открыты
    begin
        FromDS.First; //в начало источника
        While not FromDS.Eof do //цикл до конца источника
        begin
            ToDS.Append;//добавить в конец приёмника
            for x:=0 to FromDS.FieldCount-1 do //цикл по всем колонкам источника
                if ToDs.FieldByName(FromDS.Fields[x].FieldName)<>nil then //если есть колонка из источника в приёмнике
                    ToDS[FromDS.Fields[x].FieldName]:=FromDS.Fields[x].Value;//то переносим данные
            ToDS.Post;
            FromDS.Next; //следующий
        end;
    end;
end;

поля в приёмнике нужно создать до этого с такими же названиями как у источника (при желании можешь доработать до автоматического создания полей)

должно работать для любого наследника TDataSet, если нет TVirtualTable можно просто таблицу подсунуть

P.S. второй код писал без проверки, может содержать ошибки

P.S.S. пока писал меня обогнали)) точно есть ClientDataSet я про него забыл))

[kerby666]

Сообщение от poli-smen

Вот так можно перекачать данные из обычного Query в виртуальную ClientDataSet:

Код:

uses ..., MidasLib, Provider;

...
procedure TForm1.Button1Click(Sender: TObject);
var
  Provider: TDataSetProvider;
begin
  Provider := TDataSetProvider.Create(nil);
  try
    Provider.DataSet := Query1;
    ClientDataSet1.Data := Provider.Data;
  finally
    Provider.Free;
  end;
end;

А как из ClientDataSet1.Data перелить в DBGrid?

[Lost_Fish]

Сообщение от kerby666

А как из ClientDataSet1.Data перелить в DBGrid?

DataSourse.DataSet:=ClientDataSet;
DBGrid.DataSource:=DataSource;
связка же

[poli-smen]

Сообщение от kerby666

А как из ClientDataSet1.Data перелить в DBGrid?

В DBGrid нельзя перелить потому что он данные не хранит, он только отображает "чужие" данные. Просто переключи тот DataSource который использует DBGrid с Query на ClientDataSet.

[kerby666]

Сообщение от poli-smen

В DBGrid нельзя перелить потому что он данные не хранит, он только отображает "чужие" данные. Просто переключи тот DataSource который использует DBGrid с Query на ClientDataSet.

С этим более-менее понятно. Но вот с настройками компонента не могу разобраться (ClientDataSet). Active в True не ставиться. Источником данных могу выбрать DataSource1 или DataSource2 и все.

[kerby666]

Missing data provider or data packet

[poli-smen]

Сообщение от kerby666

С этим более-менее понятно. Но вот с настройками компонента не могу разобраться (ClientDataSet). Active в True не ставиться.

Не ставится потому, что таблица не созданна. Её нужно сначала создать или закачать в ClientDataSet данные из Query или Table так, как я показывал выше.

Сообщение от kerby666

Источником данных могу выбрать DataSource1 или DataSource2 и все.

Это устанавливать не нужно, это свойство предназначено для других целей.

Сообщение от kerby666

Missing data provider or data packet

Говорит что не подключен провайдер (это для других целей) или не загружены данные, нужно либо создать пустую таблицу, либо загрузить в ClientDataSet данные из Query или Table как я показал в примере выше.

Создать пустую таблицу в ClientDataSet можно или через инспектор объектов Delphi - добавляешь нужные поля в свойство FieldDefs, а потом нажимаешь на компоненте ClientDataSet правую кнопку и выбираешь "Create DataSet", или же можно программно:

Код:

begin
  ClientDataSet1.FieldDefs.Add('Имя поля1', ftInteger);
  ClientDataSet1.FieldDefs.Add('Имя поля2', ftString, 100);
  ClientDataSet1.CreateDataSet;

  // или можно продублировать структуру как у Query или Table вот так:
  ClientDataSet1.FieldDefs.Assign(Query1.FieldDefs);
  ClientDataSet1.CreateDataSet;
end;

[kerby666]

Ну я как-бы разобрался с этим компонентом. Отображает DBGrid результат SQL-запроса из ClientDataSet. Но при новом запросе очищается. Как сделать чтоб результат копился в файле виртуальной таблицы (у меня virtual.cds). И очищался тогда, когда я этого хочу. И спасибо за помощь всем!!!

[kerby666]

finally
Provider.Free;
end;

Подозреваю, что вместо Free надо что-то другое написать.