Mostrar

[guillermohampp]

hola gente , tengo un problema , por si alguien sabe , quiero mostrar en una listbox , lo q tengo en un campo de una tabla de una base,
por ej en la base en la tabla cab_nom sol, agua, tierra,
quiero mostrar esos nombres en la lista
desde ya muchas gracias
Saludos

[ecfisa]

Hola guillermohampp.

No sé con que BD ni que componentes estes trabajando, pero una forma sencilla de hacerlo es:

procedure TForm1.btMostrarClick(Sender: TObject);
var
BM: TBookMarkStr;
begin
with tabla_cab_nom do // suponiendo que así se llame tu tabla
begin
BM:= BookMark; // guardar posición actual de la tabla
DisableControls; // desactivar mostrar en controles asociados
First; // ir al primer elemento de la tabla
while not Eof do
begin
ListBox1.Items.Add(FieldByName('SOL').AsString+' - '+ // suponiendo que así se llamen tus campos
FieldByName('AGUA').AsString+' - '+
FieldByName('TIERRA').AsString);
Next; // siguiente registro
end;
BookMark:= BM; // retornar a posición almacenada
EnableControls; // activar mostrar
end;
end;


Saludos.

[guillermohampp]

gracias por la resp, estoy usando, la base esta echa en acces,
estaba pensando eso se podra hacer con Select tambien?
para ahorrar en poner fielbyname...

[guillermohampp]

otra cosa , los tipo de cab sola agua tierra , son los nombres de las cabañas y estan en el mismo campo

[ecfisa]

estaba pensando eso se podra hacer con Select tambien?.
Si, por supuesto podés realizar la carga con una consulta.

para ahorrar en poner fielbyname
Si has creado campos persistentes podes utilizar su nombre por ejempo: tb_cab_nomSol.AsString.

Saludos.

[guillermohampp]

claro tenia esa idea de cargarlo con una consulta, supongo q a la consulta la tendria q hacer en el load del formilario , y realizar la carga ahi! pero bien cuenta no me doy jaja
bueno gracias de todos modos y saludos

[ecfisa]

Hola.

Con una consulta, al inicio del form, podría ser:

procedure TForm1.FormShow(Sender: TObject);
begin
Query.SQL.Clear;
Query.SQL.Add('SELECT SOL, AGUA TIERRA FROM CAB_NOM');
Query.Open;
while not Query.Eof do
begin
ListBox1.Items.Add(Query.FieldByName('SOL').AsString +' - '+
Query.FieldByName('AGUA').AsString+' - '+
Query.FieldByName('TIERRA').AsString;
Query.Next;
end;
Query.Close;
end;


Saludos.

[guillermohampp]

que genio! ja, mañana lo implemento y te digo como me fue , 1000 gracias!

[Casimiro Notevi]

Hola, guillermohampp, recuerda seguir nuestras normas (http://www.clubdelphi.com/foros/guiaestilo.php), una de ellas se refiere a poner títulos descriptivos en las preguntas. Gracias por tu colaboración.

[guillermohampp]

si , disculpas!, no es nada descriptivo el titulo que puse :S