ActiveDelphi

[natan.carlos]

Olá
Tenho um DBGrid que está ligado a um DataSource e este ligado a um Query, para ordenar ao clicar no titulo da coluna estou usando o seguinte código:

procedure TForm1.DBG_exportTitleClick(Column: TColumn);
var
campo:string;
begin
campo:=column.fieldname; // CAMPO RECEBE O NOME DA COLUNA CLICADA,
application.processmessages; // para considerar algo que aconteça no dbgrid durante a entrada nesta procedure
DM.Q_Export.sql.clear; // LIMPA A QUERY
DM.Q_Export.sql.add('select * from TB_export order by '+campo); // ESCREVE O SELECT COM O ORDER BY
if not DM.Q_Export.Prepared then
DM.Q_Export.Prepare;
DM.Q_Export.Open; // ABRE A QUERY COM A ORDEM ESCOLHIDA.
end;


O problema é que não consigo alterar dados da tabela pelo DBGrid, para conseguir alterar tenho que ligar o DataSource direto na Tabela, mas ai não consigo ordenar o Grid.

Alguem pode me ajudar nisso??? gostaria de fazer as duas funções.

[imex]

Uma opção seria utilizar um ClientDataSet.

Não sei os componentes de acesso que você usa, mas a principio seria preciso ligar os componentes desta forma:

... > Query > DataSetProvider > ClientDataSet > DataSource

Para carregar os dados no ClientDataSet configure a Query normalmente, mas execute Open e Close no ClientDataSet em vez de executar na Query.

Para incluir, alterar e excluir os dados utilize o ClientDataSet da mesma forma que um Table, acrescentando o método TClientDataSet.ApplyUpdates(0) para enviar as modificações para o BD, o método TClientDataSet.CancelUpdates para cancelar todas as modificações, e o evento TClientDataSet.OnReconcileError para capturar os erros ao atualizar o BD.

Para ordenar os dados você pode utilizar o código postado, ou atribuir o nome dos Fields a propriedade TClientDataSet.IndexFieldNames, sendo que neste caso não é preciso modificar a Query.

Espero que seja útil.

__________________
Assinatura: Imóveis a venda em Suzano

[natan.carlos]

[imex]

Vou colocar um exemplo de ligação dos componentes com DbExpress:

[natan.carlos]

não utilizei o SQLConection, deixei o query sem ligação, funciona, está ordenando e alterando, mas apenas no Cliente data set, as alterações do CDS não são repassadas para a tabela.

Sabe como posso fazer isso?

[imex]

[natan.carlos]

o meu esquema está assim

Query
- Name = Query1
- DataSource =

DataSetProvider
- Name = DataSetProvider1
- DataSet = Query1

ClientDataSet
- Name = ClientDataSet1
- ProviderName = DataSetProvider1

DataSource
- Name = DataSource1
- DataSet = ClientDataSet1

DBGrid
- Name = DBGrid1
- DataSource = DataSource1


o problema é que não está puxando os dados da tabela.

[imex]

Qual banco de dados e o componente de conexão que você esta utilizando? DBExpress, ADO, IBO ou outro?

O componente Query1 não está ligado ao componente de conexão?

[k4mui321]

[natan.carlos]

Estou utilizando o DBExpress. Que dispositivo de conecção pode substituir o SQLConection?

Vou testar essa linha de comando, caso de certo posto aqui.

[natan.carlos]

[imex]

[natan.carlos]

é isso mesmo, estou utilizando order by na query, utilizo para ordenar o dbgrid quando clica no titulo da coluna para ordernar por ela, assim sempre que ordena a coluna, não consigo alterar a celula.

Usando o client data set, consigo fazer os dois (ordenar e alterar), porém a alteração feita não é atualizada na tabela. será que preciso fazer uma linha de comando pegando o campo alterado e dar um update na tabela??? e como faço isso???

[imex]

Não é preciso executar um Update para atualizar os dados no BD, pois os componentes fazem isso automaticamente executando o TClientDataSet.ApplyUpdates.

Para testar experimente acrescentar os códigos abaixo.

No evento AfterPost (e direcione o AfterDelete para a mesma procedure) do ClientDataSet:

[natan.carlos]

blz, deu certo, obrigado.