Ordenar e alterar dados DBGrid

[Natã 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.

alguém pode me ajudar nisso??? gostaria de fazer as duas funções.

[robinhocne]

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.

alguém pode me ajudar nisso??? gostaria de fazer as duas funções.

Estranho porque eu utilizo quase assim e funciona corretamente.

mas verifica se no DataSource a propriedade AutoEdit está como true e no DbGrid também no options do DbGrid a propriedade dgEditing está como true.

[Natã Carlos]

sim estão dessa maneira, não sei bem como isso procede, mas quando eu ligo o DS a tabela, ai dá pra alterar, mas quando ligo o DS a query, ai não altera.

[Jhonas]

deixe a ( Query) propriedade RequestLive = true para que os dados possam ser alterados e salvos

abraço

[Natã Carlos]

Certo pessoal, ao clicar no titulo da coluna ele ordena, porém depois de ordenar ele não deixa alterar os dados, ainda estou sem solução.

[Jhonas]

DM.Q_Export.Open; // ABRE A QUERY COM A ORDEM ESCOLHIDA.

DM.Q_Export.Edit; // DEIXAR O REGISTRO EM MODO DE EDIÇÃO

abraço

[Natã Carlos]

esse segundo comando aparece o seguinte erro:

'Q_Export: Cannot modify a read-only dataset'

[Natã Carlos]

vi um post dizendo que um DBgrid ligado a um Query que utiliza a expressão where ou order by não é possivel ser editável mesmo habilitando RequestLive.

será que é isso que está impedindo de conseguir editar os dados na DBgrid, pois eu utilizo o orderby para ordenar as colunas quando são clicadas.

[Jhonas]

Exemplo de uso do ClientDataSet junto com a Query

http://www.planetadelphi.com.br/delphi/apo...hi/00003955.zip

http://www.comunidade-firebird.org/cflp/do...s/CFLP_T002.PDF

abraço

[Emillani]

Fechando a Query antes de alterar a propriedade SQL não resolveria?