28/09/2011, 18:28
|
| | | Fecha de Ingreso: junio-2011
Mensajes: 329
Antigüedad: 13 años, 7 meses Puntos: 2 | |
| llenar list box
saludos a todos...tengo un list box..el cual tiene 9 registros, necesito q ese valor q tengo en el list box, me lo compare contra una tabla en una bd y si encuentra un valor igual me devuelva un dato en un segundo list box..no se como llenar el segundo list box...aqui les envio el codigo a ver si me pueden ayudar...
este codigo me llena el segundo list box pero con los valores de 0 al 9 , es decir esta recorriendo el ciclo pero no me esta jalando los valores de la bd....
Dim MyConnection As System.Data.Odbc.OdbcConnection = New System.Data.Odbc.OdbcConnection("Driver={Progress Openedge 10.1A Driver};DSN=PROGRESS;DB=pace;UID=sysprogress;PWD=p assword;HOST=192.168.10.248;PORT=2580;")
For i As Integer = 0 To contactsListBox.Items.Count - 1
Dim MyCommand As System.Data.Odbc.OdbcDataAdapter = New System.Data.Odbc.OdbcDataAdapter("Select oritem_0.qtyrec FROM PUB.oritem oritem_0 WHERE ( oritem_0.onum = '" & contactsListBox.Items(i).ToString & "')", MyConnection)
Me.ListBox1.Items.Add(i)
Next i |