elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el ttwitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Recoger de un listbox cargado con consulta para despues insertarlo con un insert
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Recoger de un listbox cargado con consulta para despues insertarlo con un insert  (Leído 970 veces)
sancakoky

Desconectado Desconectado

Mensajes: 60


Ver Perfil
Recoger de un listbox cargado con consulta para despues insertarlo con un insert
« en: 1 Septiembre 2014, 20:17 »

Hola buenas, estoy tratando recoger en una variable el dato de un listbox y no soy capaz.
Código
  1. Public conexion As OleDbConnection
  2.    Public adaptador As OleDbDataAdapter
  3.    Public comando As OleDbCommand
  4.    Dim ruta As String = "C:\col.mdb"
  5.    Dim CadenaC As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
  6.    conexion = New OleDbConnection(CadenaC)
  7.    conexion.Open()
  8.    Dim tabla As DataSet
  9.    tabla = New DataSet
  10.    adaptador = New OleDbDataAdapter("select Precio_Venta_al_Cliente, libro from   Libros WHERE libro = '" & a(i) & "'", conexion) 'nombre del libro seleccionado anteriormente
  11. adaptador.Fill(tabla, "Libros")
  12.            ListBox2.DataSource = tabla.Tables(0)
  13.            ListBox2.DisplayMember = "Precio_Venta_al_Cliente"
  14.            dim preciolibro as integer= ListBox2.SelectedValue = "Id_libro"
  15.             Dim CadSQL As String = "insert into Ventas (Alumno, libros, Precio_Venta_al_Cliente) values ('" & alumno & "','" & a(i) & "','" & preciolibro & "')"
  16.            comando = New OleDbCommand(CadSQL, conexion)
  17.            comando.ExecuteNonQuery()
  18.  

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.


« Última modificación: 1 Septiembre 2014, 21:44 por Eleкtro » En línea

elezekiel

Desconectado Desconectado

Mensajes: 226


Ver Perfil
Re: Recoger de un listbox cargado con consulta para despues insertarlo con un insert
« Respuesta #1 en: 1 Septiembre 2014, 20:55 »

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

si esta cargado bastaria con esto:

Código
  1. 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.


« Última modificación: 1 Septiembre 2014, 21:47 por Eleкtro » En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.709



Ver Perfil
Re: Recoger de un listbox cargado con consulta para despues insertarlo con un insert
« Respuesta #2 en: 1 Septiembre 2014, 21:46 »

Código
  1. dim preciolibro as integer = Cint(ListBox2.SelectedItem)

No se si será eso a lo que te refieres

Saludos!
En línea


Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
consulta con un listbox
Programación Visual Basic
gaticanata 1 804 Último mensaje 9 Noviembre 2007, 14:24
por CeLaYa
Consulta recoger vector
Java
athlit 7 3,661 Último mensaje 16 Noviembre 2009, 10:42
por athlit
simple duda Consulta mysqlworkbench Insert into con 2 subconsultas
Bases de Datos
Anonymous250 1 1,647 Último mensaje 13 Junio 2012, 23:41
por Shell Root
ayuda redirigir despues de una consulta
PHP
colcrt 7 1,431 Último mensaje 11 Mayo 2014, 12:22
por Jenny T-Type
Consulta INSERT devuelva id que agregó
Bases de Datos
MiguelCanellas 5 479 Último mensaje 25 Febrero 2020, 05:27
por engel lex
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines