Hola, tengo un pequeño problema que no se como solucionar en VB6
El siguiente 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!
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
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
do while not rs.eof()
if saludo(list1.ListIndex) =rs("TuCampo").value then
exit do
endif
rs.movenext
loop
saludos
HOLA!!!
CODIGO:
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!!!