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:

Código Delphi [-]
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]

Empezado por guillermohampp

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:

Código Delphi [-]
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 Noteví]

Hola, guillermohampp, recuerda seguir nuestras normas, 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