11 respuestas en este tema

[jc]

Hola

Estaba tratando de usar este componente pero, o no funciona como esperaba, o no he logrado hacerlo.

Yo esperaba que funcionase igual que el componente TDBGrid, que al establecer las propiedades adecuadas, incluso en tiempo de diseño, te muestra el contenido de la consulta.

El caso es que no lo consigo, lo que hago es establecer las propiedades DataSource apuntando al componente TDataSource y DataField al campo que quiero mostrar, pero no me muestra nada, ni en tiempo de diseño ni de ejecución, tampoco da ningún error. En el mismo formulario metí un TDBGrid (para probar) y este sí muestra los resultados de la consulta, por lo que la conexión con la base de datos se hace correctamente.

Mirando webs vi varios ejemplos y en todos rellenan el control de forma manual, es decir, una vez hecha la consulta SQL, mediante un while van metiendo los datos asignándolos a la propiedad Items. Algo así:

delphi

while not SQLconsulta.EOF do begin  // SQLconsulta es un TSQLQuery
         ListaClientes.Items.Add(SQLconsulta.Fields[0].Text);  // ListaClientes es un TDBListBox
         SQLconsulta.Next;  
end;

Mi duda es si es la forma de hacerlo o hay algún bug en el control que impide que se llenen de forma automática como ocurre con el TDBGrid o no lo estoy haciendo bien.

Saludos

[robert01]

Hola

Estuve probando y no se que hiciste mal porque no encontré problemas. Usé una base de datos firebird, un control MDOQuery, un  Datasource y un DBListBox.

Lo unico que cambié fue el índice para que muestre el nombre de un cliente en lugar del código del mismo

Ah, para probar puse el source en el evento FormShow

No se si entendí mal tu pregunta o hice otra cosa


Saludos

[Delphius]

Hola,
No utilizo Lázarus por lo que no sabría decir si en efecto es un bug. Yo lo primero que pensaría es si te aseguraste de que esté abierto el DataSource y el DataSet que lo alimenta, quizá se te ha pasado por alto esto o se trata alguna de esas "novatadas" que nos tienen en vela.

Saludos,

[Marc]

Hola.

Hola

Estaba tratando de usar este componente pero, o no funciona como esperaba, o no he logrado hacerlo.

Yo esperaba que funcionase igual que el componente TDBGrid, que al establecer las propiedades adecuadas, incluso en tiempo de diseño, te muestra el contenido de la consulta.

El caso es que no lo consigo, lo que hago es establecer las propiedades DataSource apuntando al componente TDataSource y DataField al campo que quiero mostrar, pero no me muestra nada, ni en tiempo de diseño ni de ejecución, tampoco da ningún error. En el mismo formulario metí un TDBGrid (para probar) y este sí muestra los resultados de la consulta, por lo que la conexión con la base de datos se hace correctamente.

Mirando webs vi varios ejemplos y en todos rellenan el control de forma manual, es decir, una vez hecha la consulta SQL, mediante un while van metiendo los datos asignándolos a la propiedad Items. Algo así:

delphi

while not SQLconsulta.EOF do begin  // SQLconsulta es un TSQLQuery
         ListaClientes.Items.Add(SQLconsulta.Fields[0].Text);  // ListaClientes es un TDBListBox
         SQLconsulta.Next;  
end;

Mi duda es si es la forma de hacerlo o hay algún bug en el control que impide que se llenen de forma automática como ocurre con el TDBGrid o no lo estoy haciendo bien.

Saludos

Creo que te equivocas de componente. Un TDBListBox solo te debería guardar en la base de datos el elemento seleccionado de la lista, pero los elementos de la lista los tienes que especificar manualmente. De forma muy parecida a como funciona un TDBComboBox.

Imagino que el componente que estás buscando es el TDBLookupListBox. En este componente tendrás las propiedades ListSource, ListField, KeyField, para especificar los datos de la base de datos que hay que cargar en la lista, y las propiedades Datasource y DataField, para especificar en que tabla quieres almacenar el elemento seleccionado.

Saludos.

[jc]

Creo que te equivocas de componente. Un TDBListBox solo te debería guardar en la base de datos el elemento seleccionado de la lista, pero los elementos de la lista los tienes que especificar manualmente. De forma muy parecida a como funciona un TDBComboBox.

Imagino que el componente que estás buscando es el TDBLookupListBox. En este componente tendrás las propiedades ListSource, ListField, KeyField, para especificar los datos de la base de datos que hay que cargar en la lista, y las propiedades Datasource y DataField, para especificar en que tabla quieres almacenar el elemento seleccionado.

Efectivamente, cambiando el control ahora sí se comporta como yo esperaba.

Aprovecho para comentar que apenas encuentro documentación sobre este tipo de controles, me puse a hacer un ejemplo sencillo para familiarizarme con éstos controles y me está costando una barbaridad por la falta de información.

Saludos

[Marc]

Creo que te equivocas de componente. Un TDBListBox solo te debería guardar en la base de datos el elemento seleccionado de la lista, pero los elementos de la lista los tienes que especificar manualmente. De forma muy parecida a como funciona un TDBComboBox.

Imagino que el componente que estás buscando es el TDBLookupListBox. En este componente tendrás las propiedades ListSource, ListField, KeyField, para especificar los datos de la base de datos que hay que cargar en la lista, y las propiedades Datasource y DataField, para especificar en que tabla quieres almacenar el elemento seleccionado.

Efectivamente, cambiando el control ahora sí se comporta como yo esperaba.

Aprovecho para comentar que apenas encuentro documentación sobre este tipo de controles, me puse a hacer un ejemplo sencillo para familiarizarme con éstos controles y me está costando una barbaridad por la falta de información.

Saludos

La documentación de Delphi te servirá perfectamente, puesto que los componentes de la LCL de Lazarus son un clon de la VCL de Delphi.

Hay bastantes buenos libros para Delphi (algunos se pueden encontrar en redes Peer to Peer).

[robert01]

La documentación de Delphi te servirá perfectamente, puesto que los componentes de la LCL de Lazarus son un clon de la VCL de Delphi.

Yo no estoy de acuerdo, tiene muchas similitudes pero no es un clon. Un clon es una copia exactamente igual al original y creo que Lazarus no se merece que lo llamemos clon de Delphi

Saludos

[jc]

La  documentación de Delphi te servirá perfectamente, puesto que los  componentes de la LCL de Lazarus son un clon de la VCL de Delphi.

Hay bastantes buenos libros para Delphi (algunos se pueden encontrar en redes Peer to Peer).

Es cierto, fíjate, cuando empecé con Lazarus, toda la documentación que tenía eran un libro básico sobre la primera versión de Delphi y otro, una guía rápida, de Kilix. Esos dos me han sacado de muchos apuros y aun los tengo siempre a mano.

Yo no estoy de acuerdo, tiene muchas similitudes pero no es un clon. Un clon es una copia exactamente igual al original y creo que Lazarus no se merece que lo llamemos clon de Delphi

Así es, aunque tienen muchas similitudes, de momento me voy apañando bien con la documentación de Delphi, al menos me sirve como guía de cómo hacer las cosas. Aunque con los controles de bases de datos me está costando un poquito más, también debido a mi escasa experiencia con SQL, pero bueno, poco a poco

Saludos

[Marc]

La documentación de Delphi te servirá perfectamente, puesto que los componentes de la LCL de Lazarus son un clon de la VCL de Delphi.

Yo no estoy de acuerdo, tiene muchas similitudes pero no es un clon. Un clon es una copia exactamente igual al original y creo que Lazarus no se merece que lo llamemos clon de Delphi

Saludos

Bueno, no veo que sea nada peyorativo (le tengo mucha estima a Lazarus y lo último que quiero hacer es menospreciarlo).

Pero aún así, recuerda que no he dicho que Lazarus sea un clon de Delphi, sino que la LCL lo es de la VCL.

[Delphius]

Hola,

Yo no uso Lázarus pero de lo que pude enterarme hace unos años me hace pensar que la diferencia entre la LCL y la VCL debe ser relativamente modesta.
Marc, la LCL NO PUEDE SER UN CLON. De serlo estaría infringiendo, nuevamente, la licencia de la VCL (que no es libre).
Hace un tiempo el equipo de Lázarus se vió envuelto en un juicio por esto y se vio obligado a hacer unos cambios.
Quizá la LCL tenga sus bases, e inspiraciones, en la VCL pero desde el juicio yo diría que el equipo de Lázarus es más que cauteloso antes de tener otro lío.

Saludos,

[Marc]

Hola Delphius.

Hola,

Yo no uso Lázarus pero de lo que pude enterarme hace unos años me hace pensar que la diferencia entre la LCL y la VCL debe ser relativamente modesta.
Marc, la LCL NO PUEDE SER UN CLON. De serlo estaría infringiendo, nuevamente, la licencia de la VCL (que no es libre).
Hace un tiempo el equipo de Lázarus se vió envuelto en un juicio por esto y se vio obligado a hacer unos cambios.
Quizá la LCL tenga sus bases, e inspiraciones, en la VCL pero desde el juicio yo diría que el equipo de Lázarus es más que cauteloso antes de tener otro lío.

Saludos,

Con un clon me refiero a que implementa exactamente las mismas clases, propiedades y funcionalidad que implementa la VCL (aunque evidentemente todo el código interno está re-escrito desde cero). Por eso los programas Lazarus son compatibles con Delphi y viceversa (siempre que no uses componentes de terceros), y por eso la documentación de Delphi es perfectamente aplicable a Lazarus.

Saludos.

[Delphius]

Hola Delphius.

Con un clon me refiero a que implementa exactamente las mismas clases, propiedades y funcionalidad que implementa la VCL (aunque evidentemente todo el código interno está re-escrito desde cero). Por eso los programas Lazarus son compatibles con Delphi y viceversa (siempre que no uses componentes de terceros), y por eso la documentación de Delphi es perfectamente aplicable a Lazarus.

Saludos.

Ha... ahora entiendo. Esta bien,
Y debe ser así ya que tanto Delphi como Lázarus deben apegarse, lo más posible, al estándar ANSI-ISO de Pascal.
Tengo entendido que el Object Pascal que utilizamos es en realidad Object Pascal Extendido (o quizá más que extendido ya... porque con la instroducción de los genéricos y otras modificaciones ya debería haberse renovado el estándar).

Saludos,