Varios Registros en TextBox

[_cronos_]

Hola amigos tengo la siguiente duda, que la consulta me liste los registros de un campo en un textbox multiline.

lo probe de la siguiente manera pero no me funciono

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Open "SELECT Rol FROM datos", conn
Set Historial.DataSource = rs

Historial es el textbox

alguien sabe que puede faltar?

saludos.

[ComprasDesdeCasa]

Hola,

por experiencia, el trabajar con el datasource de los elementos suele dar bastantes problemas, aunque es una forma fácil y rápida de obtener resultados.

Te recomiendo que recorras tú el cursor y que rellenes el textbox por tu cuenta con los valores obtenidos. Te llevará algunas líneas más de código pero conseguirás que te funcione.

Saludos!

[Avellaneda]

Iniciado por _cronos_

Hola amigos tengo la siguiente duda, que la consulta me liste los registros de un campo en un textbox multiline.

lo probe de la siguiente manera pero no me funciono

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Open "SELECT Rol FROM datos", conn
Set Historial.DataSource = rs

Historial es el textbox

alguien sabe que puede faltar?

saludos.

Hola, faltaría asignar la propiedad "DataFied" al TextBox, pero aún así solamente mostraría el primer registro (aunque el TextBox sea multiline).

Puedes hacer algo como esto:

Código:

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .LockType = adLockReadOnly
    .Open "SELECT Rol FROM datos", conn
End With
Do Until rs.EOF
    Historial.Text = Historial.Text & rs!Rol & vbNewLine
    rs.MoveNext
Loop