cargar tabla en un listbox

Hola amigoa saludos a todos .

Alguien me puede ayudar en como cargar una tabla de una base de datos en un listbox…

Gracias espero que me colaboren pronto—

Hola Jose

En la carpa de ejemplos que viene incluida con el IDE est la respuesta que buscas, especficamente la de “DataBase”. Sub la de Postgre por si no la tienes.

Ejemplos Postgre

Hola Javier, gracias por tu ayuda,
La verdad me dice que la conexion se establecio pero no se me cargan los datos de la tabla Articulos en el listbox
ya no se que hacer… este es el codigo, si me puedes ayudar a chequear para ver cual es el problema

dim db as new PostgreSQLDatabase
db = new PostgreSQLDatabase

db.Host = “localhost”
db.Port = 5432
db.UserName = “postgres”
db.Password = “jose33”
db.DatabaseName = “Factura”

If db.Connect Then
mlsConnected=True
MsgBox("¡conectado a la base de datos!")

ListBox1.DeleteAllRows
dim sql as String
sql = "SELECT * FROM Clientes"
dim data as RecordSet
data = db.SQLSelect(sql)
if data <> Nil then
  while not data.EOF
    ListBox1.AddRow(data.IdxField(1).StringValue, data.IdxField(2).StringValue, data.IdxField(3).StringValue, data.IdxField(4).StringValue)
    data.MoveNext
  wend
  data.Close
end if

Else
MsgBox("Error de conexión a la base de datos: ")// Use the database

End If

perdon la tabla anterior era de los clientes que quiero cargar al listbox1

,Pero tengo otro problema quiero cargarle a un Popupmenu1 los productos de mi tabla de Articulos y no me sale nada, estoy muy mal he pasado ya 2 semanas tratando de hacer esto y no puedo
Por favor ayudame…
el codigo con el que estado tratando de cargar los productos es…

If Not lsConnected Then
MsgBox(“Connect to the database first.”)
Return
End If
Popupmenu1.DeleteAllRows

Dim sql As String
sql = “SELECT * FROM Articulos”

Dim data As RecordSet
data= db.SQLSelect(sql)

If data <> Nil Then
While Not data.EOF
PopupMenu1.AddRow(data.IdxField(2).StringValue)
data.MoveNext
Wend
data.Close
End If

Que tal amigo Jose Luis Zhicay Bonilla;

El mtodo ADDROW del Listbox no funciona as como lo ests describiendo:

ListBox1.AddRow(data.IdxField(1).StringValue, data.IdxField(2).StringValue, data.IdxField(3).StringValue, data.IdxField(4).StringValue)

Prueba de esta manera:

ListBox1.addrow data.IdxField(1).StringValue, data.IdxField(2).StringValue, data.IdxField(3).StringValue, data.IdxField(4).StringValue

Recuerda que tienes que asignar el recordset a la variable data:

dim data as RecordSet = db.sqlSelect(“Select * from mitabla”)

Atentamente

Juan Man
Un nefito ms en XOJO

Hola Jose Luis,

Aunque est basado en SQLite, la mecnica es exactamente la mismapor lo que igual encuentras interesante reproducir este tutorial en el que se ve paso a paso, entre otras cuestiones, como poblar un ListBox.

Javier

jajajaja.

La persona que pregunto tiene 4 aos que no entra al foro. Como para que contestar hilos tan viejos?

Forum for Xojo Programming Language and IDE. Copyright © 2021 Xojo, Inc.