Visual Basic - Busqueda SOLUCION Al fin

Life is soft - evento anual de software empresarial
 
Vista:

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!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Busqueda SOLUCION Al fin

Publicado por Medicis (1 intervención) el 15/03/2007 23:35:28
Pues, francamente ( y sin intención de ofender), me parece que la "SOLUCION Al fin" es una completa chapuza que un programador que se precie, nunca lo haría.
Pero bueno, tiene que haber de todo en esta vida (incluso pseudoprogramadores)
Si funcionó y sirve para lo que quieres ¡ENHORABUENA!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Busqueda SOLUCION Al fin

Publicado por carlos pulga (136 intervenciones) el 16/03/2007 04:23:47
Bueno sin animo de molestar ni nada por el estilo.... tienes otra solucion mas viable ?... donde (y disculpen la esprecion) carajo estabas tu cuando yo tenia la duda... sabes tu no comensastes sabio... tu primero gateas y despues caminas.. en vez de dar una critica destructiva... por que no mejor me dices por que el codigo no es una solucion viable!? o mejor... por que no colocas un codigo de tu aportacion que solucione el problema!? ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar