Hacer un Select con ListBox

International Español
1

Buen dia a todos.
Tengo un dilema que me he resuelto.
Necesito hacer una consulta, pero un parametro viene de una columa del listbox. como lo hago?

Ejemplo:

[code]RS=Oracle.SQLSelect(“Select Columna1 FROM Tabla1 WHERE Columna2=3 AND Columna3=’”+Trim(MiColumnaDeListBox)+"’")

Lo Hice Con Un For…Next asi

For i As Integer = 0 To MiListBox.RowCount -1
Dim RS As RecordSet
RS=Oracle.SQLSelect(“Select Columna1 FROM Tabla1 WHERE Columna2=3 AND Columna3=’”+Trim(MiListBox.List(i))+"’")
ListBoxDestino.Addrow(RS.Field(“Columna1”).StringValue)
Next
[/code]
Pero no me trae los datos que quiero :frowning:

2

Hola.
Proba con

ListBoxDestino.Addrow(RS.IdxField(1))

3

Gracias por ayudar Javier

No me funciona Javier, Mira te adjuto imagen de mi base de datos y que quiero extraer.

Quiero Extraer los datos de EXTINTOR_PARAM Si notas que por cada FOLIO ejemplo: E001-0001 Tiene sus parametros y siempre varian, 8, 9 0 7 por cada folio. Ese total de parametros lo quiero agregar a un ListBox, Ya que TODOS LOS FOLIO ya los tengo en un un listbox dieferente y es ese ListBox que utilizo como parametro para realizar mi consulta, no se si me explique.

4

Puedes usar http://www.scout-soft.com/xlistbox/, se puede hacer directamente el Select al listbox

5

Y si probas…

RS=Oracle.SQLSelect(“Select Columna1 FROM Tabla1 WHERE Columna2=3 AND Columna3=’”+Trim(MiColumnaDeListBox)+"’")

If rs <> Nil Then
While Not data.EOF

    listbox2.AddRow( RS.idxfield(1).StringValue , RS.IdxField(3).StringValue)
    
    data.MoveNext

Wend

data.Close

End If

6

Perdon donde puse 3 va 5

ListBoxDestino.AddRow( RS.idxfield(1).StringValue , RS.IdxField(5).StringValue)