Llenar un combobox con los campos de una tabla
 

hola a todos!!!

quioer hacer lo siguiente he estado buscando por el foro y no he podido encontrarlo, talvez no lo busque bien, pero bueno aqui va. quiero llenar un combobox con los campos de una tablas no los datos sino los campos, me explico:

tabla clientes:

NOMCLI
DIRCLI
TELCLI
CC

en el combobox:

Nombre->valor(NOMCLI)
Direccion->valor(DIRCLI)
y asi sucesivamente..

eso es para fines de busqueda de datos como un filtro algo asi, espero que puedan entender lo explicado mas arriba.

chao, saludos...

Ok, Puedes hacer lo siguiente, lanzar una consulta que te devuelva por lo menos una fila de la tabla, con la finalidad de obtener la definiciónd de las columnas.

Una vez hecho esto prueba con:

Código Delphi [-]

For LiContador := 0 To DataSet.FieldCount - 1 Do
  CmbCamposTabla.Items.Add(DataSet.Fields[LiContador].FieldName;

Te comento que Fields te proporciona bastante información sobre los campos devueltos en un dataset.


Suerte

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

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] :D

Pues de hecho esa es una consulta. :|.

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

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