Buenas otra vez, mira creo que te entendi esta vez, he hecho un ejemplo en el que he cogido un dbgrid, he creado unas columnas con nombres(cabeceras), he exo una consulta a una tabla paradox (no se que tabla utilizas tu), le he asignado a las columnas los fields de la consulta que queria que se mostrasen, ademas de enlazar el datasource del dbgrid con la consulta, te paso un archivo rar con el ejemplo, echale un vistazo y me dices algo. No me deja subir el fichero (es demasiado grande para subirlo) asi que te pongo el codigo y si necesitas el ejemplo te lo mando por e-mail.
Necesitaras la base de datos que yo utilice(te la subo), mete la carpeta que te adjunto dentro de la carpeta donde guardes el ejemplo y en el databasename de la query pones: .\datos
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Query1: TQuery;
DataSource1: TDataSource;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Consulta:String;
begin
Consulta:='Select * From Alumnos';
query1.SQL.Clear;
query1.SQL.Add(Consulta);
Query1.Open;
dbgrid1.DataSource:= DataSource1; Dbgrid1.Columns[0].FieldName:='Nif';
dbgrid1.Columns[1].FieldName:='Nombre';dbgrid1.Columns[2].FieldName:='Apellidos';
end;
end.
Un saludo.
//Todos los dias aprendemos algo nuevo... Por que no enseñarlo nosotros?¿