Busqueda SOLUCION Al fin
Publicado por carlos pulga (136 intervenciones) el 15/03/2007 20:31:49
Bueo el plantemiento que hice desde ayer y hasta hace como media hora era una busqueda en una tabla de nombres y apellidos y que la misma (estamos hablando de la busqueda) no discriminara los acentos:
por ejemplo que yo escriba jose en la busqueda y el resultado seria ejemplo:
José
Josefina
Joselo
José María
Josencoka
... etc
bueno prometido es deuda problema resualto, aqui les dejo el codigo con que resolvi el problema
Enter1 = "select * from ConsultaMedico"
medicos1.Open Enter1, conexion, adOpenDynamic, adLockOptimistic
Do While Not medicos1.EOF
Apellido = Replace(medicos1!Apellidos, "Á", "A")
Apellido = Replace(Apellido, "É", "E")
Apellido = Replace(Apellido, "Í", "I")
Apellido = Replace(Apellido, "Ó", "O")
Apellido = Replace(Apellido, "Ú", "U")
If Me.txtApellidomedico.Text Like Left(Apellido, contador2) Then
lp = lp + 1
Set Xtm = lstMedicos.ListItems.Add(, , lp)
Xtm.SubItems(1) = medicos1!Apellidos
Xtm.SubItems(2) = medicos1!Nombres
Xtm.SubItems(3) = medicos1!Especialidad
Xtm.SubItems(4) = medicos1!Consultorio
Xtm.SubItems(5) = medicos1!Consultas_Horarios
Xtm.SubItems(6) = medicos1!Directo
Xtm.SubItems(7) = medicos1!Extencion
Xtm.SubItems(8) = medicos1!Celular
Xtm.SubItems(9) = medicos1!E_Mail
Xtm.SubItems(10) = medicos1!Id_Medico
End If
medicos1.MoveNext
Loop
medicos1.Close
gracias a los que me quisieron ayudar... y me aportaron ideas... si no es por ustedes no llego a esta solucion!!!
por ejemplo que yo escriba jose en la busqueda y el resultado seria ejemplo:
José
Josefina
Joselo
José María
Josencoka
... etc
bueno prometido es deuda problema resualto, aqui les dejo el codigo con que resolvi el problema
Enter1 = "select * from ConsultaMedico"
medicos1.Open Enter1, conexion, adOpenDynamic, adLockOptimistic
Do While Not medicos1.EOF
Apellido = Replace(medicos1!Apellidos, "Á", "A")
Apellido = Replace(Apellido, "É", "E")
Apellido = Replace(Apellido, "Í", "I")
Apellido = Replace(Apellido, "Ó", "O")
Apellido = Replace(Apellido, "Ú", "U")
If Me.txtApellidomedico.Text Like Left(Apellido, contador2) Then
lp = lp + 1
Set Xtm = lstMedicos.ListItems.Add(, , lp)
Xtm.SubItems(1) = medicos1!Apellidos
Xtm.SubItems(2) = medicos1!Nombres
Xtm.SubItems(3) = medicos1!Especialidad
Xtm.SubItems(4) = medicos1!Consultorio
Xtm.SubItems(5) = medicos1!Consultas_Horarios
Xtm.SubItems(6) = medicos1!Directo
Xtm.SubItems(7) = medicos1!Extencion
Xtm.SubItems(8) = medicos1!Celular
Xtm.SubItems(9) = medicos1!E_Mail
Xtm.SubItems(10) = medicos1!Id_Medico
End If
medicos1.MoveNext
Loop
medicos1.Close
gracias a los que me quisieron ayudar... y me aportaron ideas... si no es por ustedes no llego a esta solucion!!!
Valora esta pregunta


0