cargar tabla en un listbox

  1. 4 years ago

    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---

  2. Hola Jose

    En la carpa de ejemplos que viene incluida con el IDE está la respuesta que buscas, específicamente la de "DataBase". Subí la de Postgre por si no la tienes.

    Ejemplos Postgre

  3. 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

  4. 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

  5. 6 months ago

    Que tal amigo Jose Luis Zhicay Bonilla;

    El método ADDROW del Listbox no funciona así como lo estás 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 Mañón
    Un neófito más en XOJO

  6. Javier M

    Aug 2 Pre-Release Testers, Xojo Pro AprendeXojo - Europe, Spain

    Hola Jose Luis,

    Aunque está basado en SQLite, la mecánica es exactamente la misma… por lo que igual encuentras interesante reproducir este tutorial en el que se ve paso a paso, entre otras cuestiones, como poblar un ListBox.

    Javier

  7. Ivan T

    Aug 2 Pre-Release Testers

    jajajaja.

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

or Sign Up to reply!