Sorting using Dbgrid with Clientdataset

Question

I’m using a Dbgrid along with a Datasource. And I’m willing to do the ordering as the client clicks on the title. I made the following settings: On my Dbgrid on the Datasource property I inked my DS. At my Ds on the Dataset property I inked my Clientdataset. In Clientdataset in Fields editor I added a field:

Name:cod_produto 
Type: Integer
Field type: Data

I have a boot to fetch, in it I make the consultation in a tbQuery.

My doubt is how I play this Tbquery data into my Clientdataset, so it appears in Dbgrid.

Answer 1

Go to the onTitleClick event and put:

if xOrdemAsc then
   RefazSQL(Column.FieldName + ' ASC')
else
   RefazSQL(Column.FieldName + ' DESC');

DBGrid1.OnDblClick := Nil;

in the conculta process put a variable that receives these columns:

procedure TfCLI001.RefazSQL(pOrdem : String = 'NOME ASC');

after that just put in the order by of the query.

ibCLI001.SQL.Add('ORDER BY ' + pOrdem);

Answer 2

You can use a DataSetProvider connected to the TBQuery, and in the estate "Providername" of the ClientDataset refer to it. Before the search, close the CDS, reopening it after the search. The data will be there.

Answer 3

Do a while on your table by giving an append on your Clientdataset.

    while not tbQuery.eof do
    begin
      ClientDataSet.Append;
      ClientDataSet.FiedByName('NomeDoCampo').AsString :=
      tbQuery.FieldByName('NomeDoCampo').AsString; 
      ClientDataSet.Post;
      tbQuery.Next;
    end;