Ordenar un DBGrid por columna

[ecfisa]

Empezado por DOS

Es que nunca use un TCustomADODataSet, no se como se configura. Hasta ahora solo utilice Ttable y Datasource.

Hola DOS.

TCustomADODataSet es la clase base de los componentes de datos ADO y no se usa directamente. olbeup realiza el moldeado con el ancestro común de TADOQuery y TADOTable para que la propiedad Sort pueda ser utilizada sea cual fuere al que el DBGRid este relacionado.


Tratándose de BDE, podrías usar un TQuery:

Código Delphi [-]
 
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
{$J+}
const 
  PrvOrd: Boolean = False;
{$J-}
const 
  Orden: array[Boolean] of string=(' ASC',' DESC');
var
  fName: string;
  PrvInx: Integer;
begin
  fName:= Column.Field.FieldName;
  PrvInx:= Column.Index;
  with DBGrid1.Columns[PrvInx].Title.Font do Style:= Style - [fsBold];
  with TQuery(DBGrid1.DataSource.DataSet) do
  begin
    PrvOrd:= not PrvOrd;
    Close;
    SQL.Text:= 'SELECT * FROM TU_TABLA ORDER BY '+ fName + Orden[PrvOrd];
    Open
  end;
  with DBGrid1.Columns[PrvInx].Title.Font do Style:= Style + [fsBold];
end;

Saludos.

[DOS]

Gracias ecfisa, recien hoy pude ponerme a trabajar, el asunto es que lo voy a realizar con un Query y dataSource por medio del combobox, el codigo que realice es el siguiente.

Código SQL [-]
procedure TForm17.Button2Click(Sender: TObject);
begin
if combobox1.Text = 'Servicio' then
begin    
  Query1.Close;    
  Query1.SQL.Clear;
  Query1.SQL.ADD('SELECT * FROM servicio.DB ORDER BY Servicio ASC');
  Query1.Active:=true;
  Query1.Open;  
end;

if combobox1.Text = 'Codigo' then
  begin    
  Query1.Close;    
  Query1.SQL.Clear;
  Query1.SQL.ADD('SELECT * FROM servicio.DB ORDER BY Codigo ASC');
  Query1.Active:=true;
  Query1.Open;  
end;

El asunto es que lo que hace es poner los campos de arriba para abajo o de abajo para arriba, pero no los ordena alfabeticamente, solo gira las tablas. Faltará configurar algun dato en elgun lado?
Gracias por su ayuda.

[[Caral]]

Hola
Solo arreglar un poco:

Código Delphi [-]
procedure TForm17.Button2Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text:= 'SELECT * FROM servicio.DB ';

if combobox1.Text = 'Servicio' then
begin    
  Query1.SQL.ADD(' ORDER BY Servicio ASC');
  Query1.Active:=true;
end;

if combobox1.Text = 'Codigo' then
  begin    
  Query1.SQL.ADD(' ORDER BY Codigo ASC');
  Query1.Active:=true;
end;

Saludos

[Casimiro Noteví]

Usa el código que te ha puesto ecfisa.

De todas formas el código que estás usando también ordenará por servicio o por código, aunque alfabéticamente no creo, suponiendo que sean números
Y el asc sobra porque por defecto siempre es ascendente, sólo es necesario si fuese descendente.

EDITO: ahora veo el código de caral, también te vale.

[DOS]

Gracias caral
el codigo esta mas depurado, pero el error por decirlo e alguna manera es el mismo, osea solo invierte la tabla como que se guia solo por los registros de los extremos, si un campo en el medio comienza con una "a", no lo tiene en cuenta.
Algo estara mal configurado?

[[Caral]]

Hola
No he seguido este hilo, seria bueno saber que es lo que necesitas y que campos tiene la tabla.
Saludos

[DOS]

La tabla tien los sig. campos
Cod_servicio * / Codigo / Descripcion / Importe / Activo
1300 PECPC0001 Corte de pelo corto 30,00 € 1
1301 PECPM0001 Corte de pelo mediano 35,00 € 1
1302 PECPL0001 Corte de pelo largo 40,00 € 1
1303 VEVAC0001 vacunacion 15,00 € 1
1304 VEACU0001 acupuntura 40,00 € 1
1305 VERX0001 Radiografias 32,00 € 1

La idea es que si pongo en el combobox Descripcion, apreto el boton y lo ordene asi

acupuntura
corte de pelo
""
""
""
Radiografias
vacunacion

ahora simplemente lo da vuelta, toda la tabla, ya sea ordenado por Descripcion o por Codigo, simplemente da vuelta la tabla, no lo ordena alfabeticamente.
Gracias

[[Caral]]

Hola
Intenta ordenando mas campos:

Código Delphi [-]
procedure TForm17.Button2Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text:= 'SELECT * FROM servicio.DB ';

if combobox1.Text = 'Descripcion' then
begin    
  Query1.SQL.ADD(' ORDER BY Descripcion, Cod_servicio, Codigo  ASC');
  Query1.Active:=true;
end
else

if combobox1.Text = 'Codigo' then
  begin    
  Query1.SQL.ADD(' ORDER BY Codigo ASC');
  Query1.Active:=true;
end
else

if combobox1.Text = 'Cod_servicio' then
  begin    
  Query1.SQL.ADD(' ORDER BY Cod_servicio ASC');
  Query1.Active:=true;
end;

Saludos