Titulos da DBGrid

Question

E ai Galera, Beleza!!Estou precisando de um help, � o seguinte:Estou usando uma DBGrid onde o text do SQL � obtido ap�s ler uma arquivo texto. (LoadFromFile).Ent�o, eu fiz o Select para mostrar os cam...

Adilsond · Answer

Coloque o Index da coluna + 1;�Order by � + IntToStr(Indicedacoluna + 1)...

Nekas · Answer

Adilson, tentei mas n�o deu certo, ai segue minha procedure.

procedure TfrmPrincipal.DBGrid1TitleClick(Column: TColumn);
begin

qrydinamica.Active:=false;
qrydinamica.SQL.Clear;
qrydinamica.SQL.Add(atual_sql);
qrydinamica.SQL.Add(�order by � + Column.FieldName);
qrydinamica.Active:=true;

end;

* como mudei o nome do campo o sistema d� erro.

-------------------------------------------------------------------
[quote=�AdilsonD�]Coloque o Index da coluna + 1;

�Order by � + IntToStr(Indicedacoluna + 1)

Adilsond · Answer

qrydinamica.SQL.Add(�order by � + IntToStr(Column.Index + 1));...

Nekas · Answer

Adilson, apos esta tentativa o sistema retorna este erro abaixo:
Quando voc� cita para somar + 1 o que o sistema deveria entender ?
Somar + 1 no indice da coluna clicada? Isto resultaria na primeira indice(0) + 1 = 1 d� erro, s� d� retorno positivo na segunda coluna indice(1) +1 = 2 , n�o sei porque?

[quote=�AdilsonD�]qrydinamica.SQL.Add(�order by � + IntToStr(Column.Index + 1));

Adilsond · Answer

P: Quando voc� cita para somar + 1 o que o sistema deveria entender ?
R: No comando sql voce pode definir a clausula order by de duas maneiras:
1 - Informando o nome da coluna
2 - Informando a posi��o da coluna que come�a com 1

No seu exemplo estou passando a posi��o da coluna. Como o �ndice das colunas da grid come�am com 0, estou somando 1 para informar que desejo ordenar pela primeira coluna.

O problema � que qdo voce fecha a sua query, os campos da query n�o existem mais na DBGrid. Para resolver o problema:

with qrydinamica do
begin
DisableControls;
try
if Active then
Close;
SQL.Clear;
SQL.Add(atual_sql);
SQL.Add(�order by � + Column.FieldName);
Open;
finally
EnableControls;
end;
end;

Outra coisa. Na vari�vel atual_sql n�o pode conter a clausula order by, pois voce est� adicionando-a no final.

Nekas · Answer

Adilson, deu certinho agora, s� fiz uma altera��o neste linha abaixo, assim como voc� me passou anteriormente.

de
SQL.Add(�order by � + Column.FieldName);
para
SQL.Add(�order by � + IntToStr(Column.Index + 1));

Grato, amigo.

Abra�o,

Nekas

F�rum Titulos da DBGrid #213266