la sentencia SQL para leer el texto de un TEXTBOX (llamado inventario) es asi:
Código:
sql2 = "select * from sub_peticiones where clave =" & "'" & inventario & "'" & "order by id_sub_peticion"
luego muestro los datos asi:
Código:
Do While Not rs.EOF
list1.Text = rs("DESCRIPCION") & vbCrLf
list1.AddItem ("AREA INCIDENCIA: ") + (rs("AREA"))
list1.AddItem ("PERSONA: ") + (rs("NOMBRE")) & " " & (rs("APELLIDOS")) & vbCrLf
list1.AddItem ("DESCRIPCION: ")
list1.AddItem (rs("DESCRIPCION")) & vbCrLf
rs.MoveNext
entonces, la funcion donde tengo el SQL esta en un boton.
Si hago un:
Código:
Private Sub List1_Click()
TextBox1 = List1.List(List1.ListIndex)
End Sub
donde pongo codigo para recoger el valor del listbox?
En la sentencia SQL como canvio "
inventario" para que me leea el valor del listbox?
Ahora mismo si hago un click en un elemento de ListBox, el Text1 me queda en blanco por lo que necesitaria aplicar la funcion del Boton.
Tambien habria que modificar la funcion SQL para quitar la palabra "inventario" y poner el elemento que se presiona en el listbox...