Cambiar comas por saltos de linea
Buenas:
Tengo un registro de la base de datos de access con varios datos separados por comas. Quiero que despues de una consulta me muestre el resultado en un listbox, ¿habria alguna manera de poder ir tomando cada uno de los datos e ir insertandolos en el listbox? Seria que hiciera un salto de linea cuando se encontrara una coma.
Un saludo
Tengo un registro de la base de datos de access con varios datos separados por comas. Quiero que despues de una consulta me muestre el resultado en un listbox, ¿habria alguna manera de poder ir tomando cada uno de los datos e ir insertandolos en el listbox? Seria que hiciera un salto de linea cuando se encontrara una coma.
Un saludo
Puedes utilizar la funcion split para descomponer el campo a un array y luego añadirlo al listbox.
Un ejemplo, inserta un listBox y este código:
Private Sub Form_Load()
Dim datos As String, arrayDatos() As String
Dim i As Integer
datos = "dato1,dato2,dato3,dato4" 'Esta variable representa lo que tienes en la BD
arrayDatos = Split(datos, ",") 'Se obtiene un array partiéndola por las comas
For i = 0 To UBound(arrayDatos)
List1.AddItem arrayDatos(i) 'Se añade cada elemento del array al listbox
Next i
End Sub
Private Sub Form_Load()
Dim datos As String, arrayDatos() As String
Dim i As Integer
datos = "dato1,dato2,dato3,dato4" 'Esta variable representa lo que tienes en la BD
arrayDatos = Split(datos, ",") 'Se obtiene un array partiéndola por las comas
For i = 0 To UBound(arrayDatos)
List1.AddItem arrayDatos(i) 'Se añade cada elemento del array al listbox
Next i
End Sub
