llenar list box

[mrprogman]

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

[CristianPR]

El problema esta en que no estas guardando el dato en ninguna variable, y al hacer .Add(i) solo estas llenando con el valor actual de "i".

Te paso un link donde podes ver como recuperar datos de una bd:

http://www.elguille.info/NET/ADONET/cuando_usar_ExecuteNonQuery_o_ExecuteScalar.htm

Espero que te sirva. Saludos.

[mrprogman]

Alguna otra idea o ejemplo mejor..?

[Aquaventus]

xq no llenas un dataset con ese System.Data.Odbc.OdbcDataAdapter con su metodo fill(TuDataSet) y lluego extraes el valor de tu dataset?.Saludos!.

[mrprogman]

algo asi..como esto...?..pero esta asi bien ligado al listbox..por q lo corro y se queda pensando...q estara mal.?..saludos

'Dim supid As String
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)

Dim DS As DataSet = New DataSet
MyCommand.Fill(DS, "ord")
ListBox2.DataSource = DS.Tables("ord").DefaultView
GridView2.DataBind()
'GridView4.Visible = False

[Aquaventus]

No me referia a que le pases de lleno todo el datasource al listbox xq lo chancaría.

Código vb:

'...
MyCommand.Fill(DS, "ord")
If DS.Tables("ord").Rows.Count > 0 Then
ListBox2.Items.add(DS.Tables("ord").Rows(0).Item(0).ToString())
Else
MessageBox.Show("No se encontro ningun registro con los datos proporcionados","Mensaje")
End If
 

De esa manera. Saludos!.

[mrprogman]

se queda ciclado..al igual que con el segundo codigo que puse... q podra estar pasando..?..saludos...

[Aquaventus]

te arroja algun mensaje de error?

[rikakashi]

En el ejemplo de Aquaventus unicamente llena el list con
ListBox2.DataSourse=DS.tables(0)
y listo

Espero que este sea la solucion.

Suerte

[Aquaventus]

No rikakashi, eso solo chancaria el llenado anterior mostrando solo 1 dato, lo que el quiere es que si al existir un dato se agregue.

[mrprogman]

se quede pensado y asi sigue..como si estuviera ciclado..

[Aquaventus]

usa los breakpoints e indicanos en que parte se traba

[rikakashi]

Aquaventus esa es la manera en que yo lleno los list en mi aplicacion y no solo me toma un dato sino todo el dataset, posiblemente el error sea desde su dataset que no contiene ningun dato

[Aquaventus]

Claro lo que tu dices solo sirve para llenar todos los datos en 1 jalada, pero si te das cuenta si solo pasas el dataset en cada for, solo tomará el listbox el último valor, por motivo por el cual primero hago que llene, luego consulto si tiene 1 registro que agregue al listbox, sino que no haga nada y pase al siguiente numero con que se va a comparar para que vaya llenando el listbox.

[rikakashi]

Código vb:

dim i,j,k as integer
k=0
for i = 0 to  contactsListBox.Items.Count - 1
for j =0 to DS.tables.rows.count - 1
if (contactsListBox.selectitem= i) =DS.tables(0).rows(j).item(0) then
listbox2.items.insert(k,dato a agregar)
k+1
endif
next j
next i