Datos De Un Campo De Una Tabla A Combobox

[Taribo007]

Prueba esto: crea un combo llmado combo1, una BD access, con una tabla llamada empleados, con un campo llmado nombre. Luego un boton llamado Command1. Luego copia este codigo:

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public rs2 As ADODB.Recordset

Private Sub Command1_Click()
If EstablecerConexion() = True Then
If GenerarRecordset("Select * from Empleados", rs) = True Then
While Not rs.EOF
MsgBox rs!nombre
Me.Combo1.AddItem rs!nombre
rs.MoveNext
Wend
End If
Else
MsgBox "Error en la conexion"
End If

End Sub

Public Function EstablecerConexion() As Boolean
' La conexión a la base de datos

Set cn = New ADODB.Connection

' Para la cadena de selección
'Dim sSelect As String

' ' Para una base de datos normal:
' sSelect = "SELECT * FROM TablaEmpleados"

cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\prueba.mdb;Uid=Admin;Pwd=;"

EstablecerConexion = True
End Function
Public Function GenerarRecordset(sSQL As String, rst As ADODB.Recordset) As Boolean
' El recordset para acceder a los datos

Set rst = New ADODB.Recordset

' Abrir el recordset de forma estática, no vamos a cambiar datos
rst.Open sSQL, cn, adOpenDynamic, adLockOptimistic

' Permitir redimensionar las columnas
'MSHFlexGrid1.AllowUserResizing = flexResizeColumns
GenerarRecordset = True
End Function


Al pulsar el boton, se te cargaran en el combo los datos de la tabla.

Has de activar la refrencia a Microsoft ActivX dataobject x.x .....

Un saludo