** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Recuperar datos de un registro
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoRecuperar datos de un registro

 Responder Responder
Autor
Mensaje
DAVID666 Ver desplegable
Nuevo
Nuevo


Unido: 29/Junio/2006
Estado: Sin conexión
Puntos: 1
Enlace directo a este mensaje Tema: Recuperar datos de un registro
    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.
Arriba
Emilio Ver desplegable
Administrador
Administrador

Santander

Unido: 08/Agosto/2004
Localización: España
Estado: Sin conexión
Puntos: 18836
Enlace directo a este mensaje Enviado: 14/Marzo/2009 a las 08:11
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)
Saludos a todos desde Huelva

http://www.mvp-access.es/emilio/
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: La Gloria
Estado: Sin conexión
Puntos: 3663
Enlace directo a este mensaje Enviado: 07/Abril/2009 a las 16:33
Sin respuesta del interesado, se cierra el hilo.
 
Luis
El Búho es un pajarraco
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable