Hola buenas, estoy tratando recoger en una variable el dato de un listbox y no soy capaz.
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.