Mostrar registros en un list

[jclaurian]

¿Cómo puedo mostrar los registros de un campo en un List?, ya agrege un data, en el cual ya esta enlazada a la base de datos y a la tabla que corresponde.
El List lo modifique en su propiedad RecorSourse y DataField.
Espero que me puedan ayudar.

[vbx3m]

Bueno yo lo he llenado con adodb, si lo quieres hacer asi seria:

Option Explicit
Dim myConn As ADODB.Connection
Dim myRecSet As ADODB.Recordset

Private Sub Form_Load()
Set myConn = New ADODB.Connection
Set myRecSet = New ADODB.Recordset
myConn.CursorLocation = adUseClient
myConn.Open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source=ruta.mdb;"
Call Fill_listbox("tabla", "campo", , List1, "campo") 'ordenado por campo o si quieres usas este otro

' Call Fill_listbox("tabla", "campo", , List1) 'no ordenado
End Sub

Public Sub Fill_listbox(ByVal sbTableName As String, ByVal sbFieldName As String, _
Optional ByRef comboName As ComboBox, Optional ByRef listName As ListBox, _
Optional ByVal sbOrder As String)
On Error Resume Next
If sbOrder = "" Then sbOrder = sbFieldName
listName.Clear
DoEvents
myRecSet.CursorLocation = adUseClient
myRecSet.Open "SELECT " & sbFieldName & " FROM " & sbTableName & " order by " & sbFieldName & ";", myConn, adOpenKeyset, adLockReadOnly
With myRecSet
Do Until .EOF
listName.AddItem .Fields(sbFieldName)
.MoveNext
Loop
End With
myRecSet.Close
Set listName = Nothing
End Sub

Espero te sirva...

[jclaurian]

Gracias
¿Pero si utilizo el control DATA?, ¿cómo sería?

[xochitemol]

hola si realmente quieres programar te recominedo ADO ya que es la tecnologia ACTUAL claro antes de ado.net y bueno a ver si te funciona esto


en un boton seria algo asi



Private Sub Command5_Click()
Data1.RecordSource = "SELECT *FROM nombrebasededatos"
If Data1.Recordset.EOF Then
MsgBox "no hay registros"
Exit Sub
Else
If Not (Data1.Recordset.EOF And Data1.Recordset.BOF) Then
Do While Not Data1.Recordset.EOF
List1.AddItem Data1.Recordset("nombredelcampodelatabla")
Data1.Recordset.MoveNext
Loop
End If
End If
End Sub

se supone que tu data esta conectado a una base y tu recordsource a una tabla de la base
espero que te ayude y por favor conestame para ver si lo que hago es bueno

por cierto se me olvidaba no es necesario con pongas las propiedades del list es decir eso de datafiel y tanta cosa solo pasa el codigo que te pongo y te aseguro que funciona comprobado no enlaces el list1

[OYEME]

ma facil utiliza un datalist
sus propiedades rowsource,listfiled y boundcolumn