Cargar datos en Listbox

[Delphos]

Hola foro.

Actualmente tengo Delphi 7 , Firebird 1.5.2 de servidor de base de datos e IBExpert de manejador y utilizo las FIBPlus como componentes de acceso.

Bueno pues resulta que tengo una tabla de Horarios con la siguiente estructura:
ID : Integer -> Clave primaria
Servicio : Varchar(2);
TiempoI: Varchar(5);
TiempoF: Varchar(5);
Horas: Varchar(5);

Pues lo que necesito es cargar el contenido de esos campos en un Listbox de la siguiente forma:

ListBox1.Items.Add(Servicio + '=' + TiempoI + 'a' + TiempoF + '=' + Horas);

Lo que no se es como recorrer los registros o si se puede atraves de una consulta. Si alguien sabe como hacerlo con las IBX tambien lo agradeceria.

Muchas Gracias de Antemano.

Salu2.

[marcoszorrilla]

Aquí tienes un ejemplo, adáptalo a tu Tabla o Query.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 IbTable1.First;
   While not IbTable1.eof do
   begin
   ListBox1.Items.Add('Ejemplo: '+IbTable1Emp_no.AsString+' - '+IbTable1First_Name.AsString);
   IbTable1.Next;
   end;
 
 end;

He utilizado:
IbDatabase //Para la conexión
IBTransaction //Es obligatorio tener al menos una transacción
IbTable //Para conectarme a la tabla

TdataSource //Para poder visualizar los datos, en este caso en un rejilla

Este último no es necesario si solamente quieres cargar el Listbox.

Un Saludo.

[Delphos]

Muchas gracias por contestar Marcos.

He tardado en responderte porque no he podido encontrar la forma de adaptar el codigo al FIBPlus ya que este carece de FIBTable asique he optado por instalar las Mercury Data Objects que son muy parecidas a las IBX y voila a Funcionar.

Un saludo y gracias de nuevo.

[alehillebrand]

Lo que podes utilizar tambien es un query y un dataset + un DBlistbox para cargar los datos en forma automatica

O sea, ejecutas el query
un dataset conectado al query
y un dblistbox conectado al dataset
voaalaaa

[sakuragi]

hola que tal

ahi forma de haser eso pero en tiempo de ejecucion?


osea escribir en un combobox y que me vaya apareciendo la letra por letra de la consulta del query en el listbox o dblisto o lookdblist box??

por ejemplo ir escribiento tarjetas

cuando pongo al t

me parescantodas las palabras que tengas t y despue te y a si susesivamente


saludos

[[Lepe]]

Así a la ligera no.

Los componentes de acceso a datos carecen de la propiedad Autocomplete, así que tienes que hacerlo todo por programación.

Igual que marcos ha usado un IBtable, usa un ibquery para obtener todos los datos, y añadelos a un simple TComboBox, como este componente si tiene la propiedad Autocomplete, ya tienes el problema resuelto. Ahora solo tienes que sincronizar los datos, para guardar el valor elegido del combo en el campo de la base de datos.

Espero me haya explicado, si no, avisa.

Un saludo.