border
VB 6
 
 
/

Retroceder   VB-MUNDO - Visual Basic, y mucho mas > Programacion > Visual Basic 6.00
Olvidó Password? Registrarse!
Registrarse FAQDonate Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

El Mejor Hosting .NET Framework 4.0

En VB-MUNDO usamos el increible servicio de SmarterASP

Respuesta
 
LinkBack Herramientas
  #1 (permalink)  
Antiguo 19-01-2011, 14:08:32
Buena Participación en el Foro
 
Registrado: dic 2009
Posts: 69
Créditos: 2.221
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: 7.001
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.400
Créditos: 77.942
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: 2.221
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.397
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 11:59:01.

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


right
Inactive Reminders By Icora Web Design