border
VB 6

Miembros:
Mensajes:
Temas:
Online:

Ultimo Miembro:

 
 
  #1 (permalink)  
Antiguo 19-01-2011, 14:08:32
Buena Participación en el Foro
 
Registrado: dic 2009
Posts: 69
Créditos: 1.967
Pabloegues Aun no valorado
Predeterminado Buscar en un ComboBox enlazado a una base de datos

Estimados
Tengo un ComboBox enlazado a una base de datos, lo que necesito es que cuando escriba las primeras letras automáticamente se desplace alfabéticamente en la lista.
Intente en el evento change, pero no funciona correctamente, no se si debo modificar la función que me trae el campo o programar el evento.
la funcion es:

Cita:
Private Sub Trae_Actividad1()

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "Select idactividad, actividad FROM actividades ORDER BY actividad", cn, adOpenForwardOnly, adLockReadOnly, adCmdText
REFRESCAR rs
With cmbactividad1
Do Until rs.EOF
.AddItem rs("actividad")
.ItemData(.NewIndex) = rs("idactividad")
rs.MoveNext
Loop
End With
Set rs = Nothing
End Sub
La lista posee mas de 400 artículos, por lo que seria muy importante simplificar la busqueda.
Saludos
Pablo
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 19-01-2011, 14:12:51
Gran Participación en el Foro
 
Registrado: sep 2006
Posts: 285
Créditos: 6.268
El_Principiante Valoración +2
Predeterminado Re: Buscar en un ComboBox enlazado a una base de datos

y por que no usas mejor un textbos si lo que deseas es buscar cierta información para que no se te carge un Combobox con tanta información algo asi seria:

Agregas un Textbox y colocas este codigo:

Código:
rs.Open "Select idactividad, actividad FROM actividades WHERE actividad = '" & TuTextBox.Text & "' ORDER BY actividad", cn, adOpenForwardOnly, adLockReadOnly, adCmdText
if Rs.Recorcount = 0 then
msgbox "No existen datos con la petición requeridad"
else
'Llenamos los campos o grillas o lo que tu quieras eso ya tu sabes 
end if
End Sub
Espero te sirva y si no por aqui andamos para cualquier cosa
__________________
Solo Tendre Todo de Dios, Cuando El Tenga Todo de Mi...
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 19-01-2011, 16:10:41
Avatar de J.M.Movilla
Administrador
 
Registrado: dic 2002
Ubicación: BURGOS - ESPAÑA
Posts: 9.164
Créditos: 72.090
J.M.Movilla ha deshabilitado la reputación
Predeterminado Re: Buscar en un ComboBox enlazado a una base de datos

A mí tampoco me gusta usar el Combobox para realizar las búsquedas directamente a partir de su texto; pero creo que sí te funcionaría así:

Código:
Private Sub cmbactividad1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        rs.MoveFirst
        rs.Find ("Actividad like '" & cmbactividad1.Text & "%'")
        cmbactividad1.Text = rs!Actividad
    End If
End Sub
__________________
José María Movilla Cuadrado
______________________
Normas del foro
www.foro.vb-mundo.com
www.vb-mundo.com
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 20-01-2011, 12:13:24
Buena Participación en el Foro
 
Registrado: dic 2009
Posts: 69
Créditos: 1.967
Pabloegues Aun no valorado
Predeterminado Re: Buscar en un ComboBox enlazado a una base de datos

Muchisimas gracias, voy a probar ambas rutinas
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #5 (permalink)  
Antiguo 20-01-2011, 16:34:36
Gran Participación en el Foro
 
Registrado: feb 2009
Ubicación: Vigo (España)
Posts: 416
Créditos: 2.177
HAL2001 Aun no valorado
Predeterminado Re: Buscar en un ComboBox enlazado a una base de datos

Te respondo un poco tarde, pero también te podría valer esto:

Autocompletar un combo a medida que se escribe

Un saludo.
__________________
"Deseo proponer a la favorable consideración del lector una doctrina que, me temo, podrá parecer
desatinadamente paradójica y subversiva. La doctrina en cuestión es la siguiente: no es deseable creer una proposición cuando no existe fundamento para suponer que sea cierta."
[Bertrand Russell]
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado



La franja horaria es GMT. Ahora son las 15:36:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios
© VB-MUNDO CO. Todos los derechos reservados
Tutoriales Premium | Juegos Online 


right

Programacion, vb 6, visual basic, foro programacion

Inactive Reminders By Icora Web Design