Llenar un combobox con los campos de una tabla

[[enecumene]]

gracias poliburro ire a probarlo bien pronto, luego te comento como me va...

[[Lepe]]

No haría falta ni ejecutar la consulta, creo que esto serviría:

Código Delphi [-]
var q:Tquery;
    i:integer;
begin
  q := Tquery.create(nil);
  q.databasename := 'c:\......';
  q.sql.text := select * from tabla;
  q.FieldsDef.Update;
  with q do
  for i:=0 to FieldsDef.Count-1 do
    combo.items.Add(Fieldsdef[i].FieldName);
freeandnil(q);
end;

[/saludos]

[[poliburro]]

Empezado por Lepe

No haría falta ni ejecutar la consulta, creo que esto serviría:

Código Delphi [-]
var q:Tquery;
i:integer;
begin
q := Tquery.create(nil);
q.databasename := 'c:\......';
q.sql.text := select * from tabla;
q.FieldsDef.Update;
with q do
for i:=0 to FieldsDef.Count-1 do
combo.items.Add(Fieldsdef[i].FieldName);
freeandnil(q);
end;




[/saludos]

Pues de hecho esa es una consulta. :|.

[roman]

Si están usando el BDE, también pueden hacerlo así:

Código Delphi [-]
Session.GetFieldNames('nombre de la base', 'nombre de la tabla', ComboBox1.Items);

// Saludos

[[Lepe]]

Si es una consulta, pero como ves no se ha abierto, no pide registros al servidor, solo crea los campos persistentes (que por supuesto tendrá que acceder al servidor para saber qué campos hay en dicha tabla).

En el caso de MDOLIB (e intuyo que IBX), también se puede obtener desde el database asociado, que dispone de estos 2 métodos públicos:

Código Delphi [-]
    procedure GetFieldNames(const TableName: string; List: TStrings);
    procedure GetTableNames(List: TStrings; SystemTables: Boolean = False);

Saludos