¿X se encuentra en cadena separada por ';' de un campo en una BD?

[xav1]

Buenas noches a todos,

Programando me he encontrado con este problema...

Tengo un campo en una BD (rs.fields("id") y una variable llamada "cadena" tipo asi 1;2;3;9;7;

Mi intencion, si se puede, es a traves de un if decirle "Si uno de los valores separados por ';' coincide con rs.fields("id") entonces....."

¿Hay alguna manera?

Gracias.

[JuanRAPerez]

UMMM

cadena = replace(cadena,";",",")

sql = "select * from tutabla where id in(" & cadena &")"

se me ocurre

suerte

[marco_foros]

Podrías intentar con la función InStr, algo así...

If InStr(cadena, ";" & rs.fields("id") & ";") > 0 Then 'La funcion InStr te devuelve la posición de la ocurrencia.
Response.Write("El valor existe en tu cadena")
Else
Response.Write("El valor no existe")
End If

Otra cosa que podrías hacer es usar la función split para separar tu cadena por ";" y checar si en el arreglo que te genera existe el valor de tu rs.

Dim varAux
varAux = split(cadena, ";")
<Estructura de control para recorrer el arreglo (varAux) y comparar los valores con tu rs.>

Espero te sirva esto.

Saludos!

[AlZuwaga]

Puede que sea como JuanRAPerez dice, pero yo lo interpreté así:

Código:

If instr(";" & cadena, ";" & rs.fields("id") & ";") <> 0
then
'existe
else
'no existe
end if

[xav1]

Buenas,

Muchas gracias a todos.

a ver.....

If instr(";" & cadena, ";" & rs.fields("id") & ";") <> 0 then
response.write("existe")
else
response.write("NO existe")
end if
response.write(cadena)

VALORES
cadena tiene el valor 1;2;
rs.fields("id") pasa por un bucle... así que pasa del 1 al 4....

Resultado
NO existe
NO existe
NO existe
NO existe

No entra nunca en el "existe" :s

[marco_foros]

Do While Not rs.EOF
If InStr(1, ";" & cadena, ";" & rs.Fields("id").Value & ";") <> 0 Then
Response.Write("Existe")
Else
Response.Write("NO Existe")
End If
rs.MoveNext
Loop

A ver, intenta esto.

Saludos!

[xav1]

Marco_foros muchisimas gracias!!

Me funcionó perfectamente! y ya esta implementado!!

Muy agradecido de verdad!

[marco_foros]

EXCELENTE!! Caso resuelto!!

Un gusto haberte ayudado.

Saludos!