Recoger de un listbox cargado con consulta para despues insertarlo con un insert

[sancakoky]

Hola buenas, estoy tratando recoger en una variable el dato de un listbox y no soy capaz.

Código (vbnet,14,15) [Seleccionar] Expandir


Public conexion As OleDbConnection
   Public adaptador As OleDbDataAdapter
   Public comando As OleDbCommand
   Dim ruta As String = "C:\col.mdb"
   Dim CadenaC As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
   conexion = New OleDbConnection(CadenaC)
   conexion.Open()
   Dim tabla As DataSet
   tabla = New DataSet
   adaptador = New OleDbDataAdapter("select Precio_Venta_al_Cliente, libro from   Libros WHERE libro = '" & a(i) & "'", conexion) 'nombre del libro seleccionado anteriormente
adaptador.Fill(tabla, "Libros")
           ListBox2.DataSource = tabla.Tables(0)
           ListBox2.DisplayMember = "Precio_Venta_al_Cliente"
           dim preciolibro as integer= ListBox2.SelectedValue = "Id_libro"
            Dim CadSQL As String = "insert into Ventas (Alumno, libros, Precio_Venta_al_Cliente) values ('" & alumno & "','" & a(i) & "','" & preciolibro & "')"
           comando = New OleDbCommand(CadSQL, conexion)
           comando.ExecuteNonQuery()


Lo que esta en rojo resaltado es lo que esta mal y no se como cambiarlo para que me recoja el precio del libro del libro seleccionado.
Decir que los precios no se repiten y por eso solo va a existir un precio como variable.
¿Como recojer en dim preciolibro el textbox1 cargado que corresponde al precio del libro?



[MOD]: Los códigos deben ir en su respectiva etiqueta, si quieres resaltar algo utiliza la sintaxis adecuada.

[elezekiel]

Lo que pasa que vos queres tomar el valor del listbox ya cargado, cierto?

si esta cargado bastaria con esto:

Código (vbnet) [Seleccionar] Expandir

miVar = ListBox2.SelectedItem.ToString


"miVar" obtendria el valor seleccionado en el listbox.

Fijate porque no tengo para probar y confirmar..

salud!



[MOD]: Los códigos deben ir en su respectiva etiqueta.

[Eleкtro]

Código (vbnet) [Seleccionar] Expandir

dim preciolibro as integer = Cint(ListBox2.SelectedItem)

No se si será eso a lo que te refieres

Saludos!