Ver Mensaje Individual
  #4  
Antiguo 09-05-2006
Acanol Acanol is offline
Miembro
 
Registrado: abr 2006
Ubicación: Elche
Posts: 75
Reputación: 21
Acanol Va por buen camino
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
    { Private declarations }
  public
    { Public declarations }
  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; //Lo enlazas a la consulta
Dbgrid1.Columns[0].FieldName:='Nif';
dbgrid1.Columns[1].FieldName:='Nombre';//Nombre es uno de los campos de la consulta
dbgrid1.Columns[2].FieldName:='Apellidos';
end;
end.

Un saludo.

//Todos los dias aprendemos algo nuevo... Por que no enseñarlo nosotros?¿
Archivos Adjuntos
Tipo de Archivo: zip datos.zip (2,9 KB, 21 visitas)

Última edición por Acanol fecha: 09-05-2006 a las 18:27:25.
Responder Con Cita