[poli-smen]

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

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

А вот здесь тебе пригодится процедура BatchMove которую выше тебе написал Lost_Fish (та которая вторая).
Вызываешь её примерно так:

Код:

  BatchMove(Query1, ClientDataSet1);

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

И очищался тогда, когда я этого хочу.

Код:

    ClientDataSet1.EmptyDataSet;

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

finally
Provider.Free;
end;

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

И что же здесь должно быть по-твоему? Здесь Provider нужен был только для того чтобы перегнать данные из Query в 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)

[Lost_Fish]

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

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

FromDS откуда забирать(в твоём случае Квэрик), ToDS куда класть ClientDataSet1 только убедись что в ClientDataSet1 есть все нужные тебе поля и он открыт

poli-smen тебе даже вызов написал

Код:

BatchMove(Query1, ClientDataSet1);

[kerby666]

procedure BatchMove(FromDS,ToDS:TDataSet);
ругается на TDataSet - E2003 Undeclared identifier: 'TDataSet'

[poli-smen]

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

procedure BatchMove(FromDS,ToDS:TDataSet);
ругается на TDataSet - E2003 Undeclared identifier: 'TDataSet'

Класс TDataSet находится в модуле DB.pas

[kerby666]

Добавил в Uses модуль DB. Только новые ошибки. Извините, я окончательно запутался. Мне нужно перед началом цикла FromDS:=DataModule1.ADOQuery1.DataSet И ToDS:=DataModule1.ClientDataSource1.DataSet?????

[poli-smen]

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

Добавил в Uses модуль DB. Только новые ошибки. Извините, я окончательно запутался. Мне нужно перед началом цикла FromDS:=DataModule1.ADOQuery1.DataSet И ToDS:=DataModule1.ClientDataSource1.DataSet?????

Нет. Вызываешь так:

Код:

BatchMove(DataModule1.ADOQuery1, DataModule1.ClientDataSource1);

[kerby666]

Вроде получилось

[kerby666]

Мелочь осталась такая. Поле со счетчиком. Тип - автоинкремент. Пришлось поставить modify : true, не компилилось иначе. Вытаскиваю sql-запросом поле со счетчиком 4 например. Помещаю в dbgrid. Выполняю след. запрос. Поле со счетком 6 напимер. Все корректно. Но при выводе в dbgrid вторая строка идет с номером 5. Первая строка с номером 4 потому что. Счетчик работает типа. Как бы сделать, чтоб такого не было. Или чтоб счетчик не работал при выводе в грид.
P.S. после очистки ClientDataSource нумерация продолжается с последнего 8 например, хотя строка в гриде первая.

[poli-smen]

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

Мелочь осталась такая. Поле со счетчиком. Тип - автоинкремент. Пришлось поставить modify : true, не компилилось иначе. Вытаскиваю sql-запросом поле со счетчиком 4 например. Помещаю в dbgrid. Выполняю след. запрос. Поле со счетком 6 напимер. Все корректно. Но при выводе в dbgrid вторая строка идет с номером 5. Первая строка с номером 4 потому что. Счетчик работает типа. Как бы сделать, чтоб такого не было. Или чтоб счетчик не работал при выводе в грид.
P.S. после очистки ClientDataSource нумерация продолжается с последнего 8 например, хотя строка в гриде первая.

Просто сделай автоинкрементное поле у ClientDataSet1.FieldDefs не автоинкрементным, а например ftInteger (вместо ftAutoInc).
И ещё вопрос: а задача не позволяет выбрать нужные записи одним sql-запросом?

[kerby666]

каждый запрос должен возвращать одно поле. Каждое уникально. Так нужно.

[poli-smen]

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

каждый запрос должен возвращать одно поле. Каждое уникально. Так нужно.

Странное задание... Всё равно подозреваю, что можно сделать одним запросом

[Lost_Fish]

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

Мелочь осталась такая. Поле со счетчиком. Тип - автоинкремент. Пришлось поставить modify : true, не компилилось иначе. Вытаскиваю sql-запросом поле со счетчиком 4 например. Помещаю в dbgrid. Выполняю след. запрос. Поле со счетком 6 напимер. Все корректно. Но при выводе в dbgrid вторая строка идет с номером 5. Первая строка с номером 4 потому что. Счетчик работает типа. Как бы сделать, чтоб такого не было. Или чтоб счетчик не работал при выводе в грид.
P.S. после очистки ClientDataSource нумерация продолжается с последнего 8 например, хотя строка в гриде первая.

ты можешь не выводить это поле в грид допустим, но при этом получить его с Query и перенести в ClientDataSet

для этого 2 раза ткни на грид в дизайнере добавь нужное кол-во колонок, укажи им всем FieldName и Title.Caption

каждый запрос должен возвращать одно поле. Каждое уникально. Так нужно.

может не 1 поле а 1 запись с каким-то кол-вом полей? не?