No tengo muy claro si entendi, asi que te explico lo que hace este codigo que te paso y ya ves si te srive o hay que modificarlo.
-Llegan una serie de valores que metemos en un vector (vectorActividad)
-Hacemos un select de la tabla ActGenEmpresas sin poner condiciones. De este select sacamos solo el campo codigo de TODOS los registros
-Luego, para cada codigo obtenido del codigo, lo convertimos en cadena y vemos cual es el primer caracter de esa cadena (primeraLetraCodigo)
-hacemos un bucle para ver si esa letra primera del codigo esta entre las que se supone que debemos listar (o sea, las codigos de actividad que tenemos guardados en el vector)
-Si no lo es el bucle coge el siguiente codigo y hace lo mismo
-Si es un codigo de los que buscamos, pues llamamos a una funcion que utilizad el codigo de ese registro (se lo pasamos como parametro) para copiar el resgistro en la tabla temporal que mencionas
Código:
<%
vectorActividad = split("3,12,16,1",",")
Set rs_actividad=createobject("ADODB.Recordset")
rs_actividad.cursortype = 3
rs_actividad.LockType = 2
sql_actividad = "Select codigo From ActGenEmpresas"
rs_actividad.open sql_actividad,"DSN=prueba"
do while (not rs_actividad.eof)
primeraLetraCodigo = Left(CStr(rs_actividad.fields("codigo")),1)
encontrado = 0
i = 0
'utilizo un while en vez de un for por que el for me obliga a recorrer todo el
'vector, mientras que con el while optimizamos velocidad saliendo del bucle
'cuando la la condicion de encontrado=1
do while (CInt(i) <= CInt(Ubound(vectorActividad)))
if (CSTr(primeraLetraCodigo) = CSTr(vectorActividad(i))) then
encontrado = 1
end if
i = i + 1
loop
if (CInt(encontrado) = 1) then
'Aqui llama a una funcion que tendras hecha que lo que hace es copiar
'el registro, cuyo codigo es el que le pasas, en la tabla temporal esa que
'mencionas
'copiaRegistroATablaTemp(rs_actividad.fields("codigo"))
response.write "<br>Este si vale"&rs_actividad.fields("codigo")
end if
rs_actividad.moveNext
loop
%>
Con 100 registros no hay problema.........pero bueno, con 16000 no lo se, es cuestion de probar pa ver si va lento....no te lo puedo decir por que no suelo trabajar con tablas "tan grandes"......si otro forero a trabajado a este nivel quizas te pueda orientar en la velocidad de ejecucion....
ToKaTa.
P.D.: sip, basicamente si acerte con lo de los caracteres
, somos tos iguales
