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.
Lo que pasa que vos queres tomar el valor del listbox ya cargado, cierto?
si esta cargado bastaria con esto:
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.
dim preciolibro as integer = Cint(ListBox2.SelectedItem)
No se si será eso a lo que te refieres
Saludos!