Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: UNFORMAT en 22 Agosto 2010, 12:23 pm

Título: Cualquier caracter en visual basic
Publicado por: UNFORMAT en 22 Agosto 2010, 12:23 pm

Hola, tengo un pequeño problema que no se como solucionar en VB6
El siguiente código:

Código

ElseIf saludo(list1.ListIndex) = "http://bit.ly/" & "NOSESABE" Then

lo que quiero es alguna funcion o algo... para poder hacer una "especie" de asterisco * en las consultas de access, ya que no se sabe que viene detrás, ¿como puedo hacerlo?

he probado con %, *.... y nada... saludos y gracias!

Título: Re: Cualquier caracter en visual basic
Publicado por: Kasi en 22 Agosto 2010, 14:01 pm

Pégale un vistazo a este enlace a ver si te sirve de algo.

http://msdn.microsoft.com/en-us/library/swf8kaxw.aspx

Un saludo

Título: Re: Cualquier caracter en visual basic
Publicado por: goldarg en 30 Agosto 2010, 16:00 pm

si utilizas consultas sql para traer los datos al recorset seria asi

"Select * from TuTabla Where TuCampo like 'http://bit.ly/*'"

este intrucion te va a traer todos los registros que empiecen con "http://bit.ly/"

si tiene varios registros tenes que recorrer el recorset

Código:

do while not rs.eof()
     if saludo(list1.ListIndex) =rs("TuCampo").value then
         exit do
     endif
     rs.movenext
loop

saludos

Título: Re: Cualquier caracter en visual basic
Publicado por: 79137913 en 30 Agosto 2010, 16:23 pm

HOLA!!!

CODIGO:

Código

ElseIf Mid(saludo(list1.ListIndex), 1, Len("http://bit.ly/")) = "http://bit.ly/" Then

Anda perfecto, si necesitas alguna explicacion sobre el cambio que aplique avisame y lo explico mas detalladamente.

GRACIAS POR LEER!!!