|
Responder ![]() |
Autor | |
DAVID666 ![]() Nuevo ![]() Unido: 29/Junio/2006 Estado: Sin conexión Puntos: 1 |
![]() Enviado: 14/Marzo/2009 a las 08:01 |
Hola que tal.
Espero me puedan ayudar, estoy trabajando con un formulario, y ya logre conectarme a una base de datos y y poder cargar los datos de un campo a un combobox, les pongo el codigo como lo hice:
Private Sub UserForm_Activate()
Dim cnnProducto As New ADODB.Connection Dim rstProducto As New ADODB.Recordset Set cnnProducto = New ADODB.Connection
Set rstProducto = New ADODB.Recordset cnnProducto.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=C:\BD FEDERAL.mdb" rstProducto.Open "Select nombreContribuyente, rfcContribuyente, numOficio From DatosContribuyente ", _ cnnProducto, adOpenKeyset, _ adLockOptimistic, adCmdText rstProducto.MoveFirst Do While Not rstProducto.EOF
ComboBox3.AddItem rstProducto.Fields(0).Value rstProducto.MoveNext Loop End Sub ....., ahora lo que no se, es como hacerle al momento de seleccionar en el combobox un valor me regrese todos los campos que tiene ese registro que seleccione. De antemano les agradesco.
|
|
![]() |
|
Emilio ![]() Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador ![]() Santander Unido: 08/Agosto/2004 Localización: España Estado: Sin conexión Puntos: 18836 |
![]() |
Hola!
ese cuadro combinado, con ese código solo contiene el nombrecontribuyente, es el unico dato que cargas en el.
Intentalo así
Do While Not rstProducto.EOF
ComboBox3.AddItem rstProducto.Fields(0) & "," rstProducto.Fields(1) & "," rstProducto.Fields(2) rstProducto.MoveNext Loop Para recuperar los datos puedes hacerlo con la propiedad column del cuadro combinado.
ComboBox3.Column(0), ComboBox3.Column(1), ComboBox3.Column(2)
|
|
![]() |
|
lbauluz ![]() Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador ![]() ![]() Unido: 29/Marzo/2005 Localización: La Gloria Estado: Sin conexión Puntos: 3663 |
![]() |
Sin respuesta del interesado, se cierra el hilo.
Luis
|
|
El Búho es un pajarraco
|
|
![]() |
Responder ![]() |
|
Tweet
|
Ir al foro | Permisos de foro ![]() Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |