[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]

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

блин в предыдущем посте 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;

ToDS - это у меня ClientDataSet1 должно быть - здесь храню данные для последующего вывода в DBGrid.
FromDS - ??? Откуда забирать? Или создать еще одну виртуальную таблицу и туда записывать из первой(в которую попадают результаты sql)