Cambiar titulo en un dbgrid

[carlosegs11]

Hola amigos,

Tengo un dbGrid, una base de datos access y un Query.

Hago la siguiente consulta:



Query.SQL.Clear;
Query.SQL.Add('SELECT numero_factura, valor_factura');
Query.SQL.Add('WHERE cedula_factura = : pCedula.Text');
Query.ParamByName('pCedula').AsString = eCedula.Text;
Query.Open;

Hasta aquí todo va bien. Me aparece la consulta en el DBGrid y me ponecomo titulo a cada columna el nombre de los campos de la base de datos.


Si posterior a este codigo le asigno los títulos


DBGrid.Columns[0].Title.Caption := 'Numero';
DBGrid.Columns[0].Title.Caption := 'Valor';


Me asgina los titulos al DBGrid pero no me muestra la consulta que acabe de realizar?

En que puedo estar fallando?

Gracias.

Carlos E. :confused:

[GustavoCruz]

Es muy sencillo a tu consulta hazle la siguiente modificación...

select campo1 As Código, campo2 As Nombre from...

de este modo los títulos de tu dbgrid mostraran "Código" y "Nombre"

[Caro]

Hola carlosegs11,es muy raro los datos que muestra de la consulta no se pierden si despues quieres cambiar el titulo, puedes cambiar el titulo de esta forma tambien, darle doble click al dbGrid, te aparecera un pequeño editor, escojes el campo al que quieras cambiarle el titulo en su propiedad Title->Caption, pones el titulo que quieras que se muestre en tu dbGrid

Saludos

[carlosegs11]

Muchas gracias por la ayuda. Lo hice de la siguiente forma:


CONS1.SQL.Clear;
CONS1.SQL.Add('SELECT numero_factura AS "Factura", valor_factura AS "Valor");
CONS1.SQL.Add('FROM facturas');
CONS1.SQL.Add('WHERE cedula_factura = : pCedula');
CONS1.ParamByName('pCedula').AsInteger := StrToInt(eCedula.Text);
CONS1.Open;

DBGrid1.Columns[0].Title.Color := clInfoBk;
DBGrid1.Columns[1].Title.Color := clInfoBk;


Gracias.

Carlos E. ;)