Juntar 2 arrays

[Butulia]

Hola, expongo el caso:

Tengo un array lleno de elementos que obtengo de una consulta mediante el método getrows del recordset:

vectorPrincipal21=rs.getrows


Tengo un 2º array que cargo de la misma manera con otra consulta:

vectorPrincipal22=rs.getrows

Las filas de ambas consultas tienen el mismo número de campos. Ambos vectores son de 2 dimensiones.

Lo que quiero hacer es unir ambos vectores en uno sólo. ¿Cúal es la manera más sencilla?

[Adler]

Hola

Algo como esto debería de funcionar

Código ASP:

IndiceArr1 = Int(UBound(Arr1)+1)
SumaArr = Int(UBound(Arr2) + IndiceArr1)
 
contador = 0 
For x = IndiceArr1 to SumaArr
Redim preserve Arr1(SumaArr) ' Redimensonamos "Arr1()" 
Arr1(x) = Arr2(contador) ' Cada elemento de "Arr2()" lo metemos en "Arr1()"
Next 'x
contador = Int(contador+1)
 
Response.Write "<b>Arreglos Unidos:" & Join(Arr1,", ")
 

Suerte

[Butulia]

Muchas gracias por la respuesta, al final lo solucioné con algo parecido:

Código:

function array_merge(byVal firstArray, byVal secondArray)
	  
	if not isArray(firstArray) then
		firstArray = Array(firstArray)
	end if 

	if not isArray(secondArray) then
 		secondArray = Array(secondArray)
	end if

'Comprueba que ambos arrays no son nulos.
comprobar1=IsBlank(firstArray)
comprobar2=IsBlank(secondArray)

if not comprobar1 and not comprobar2 then
	
	totalSize = uBound(firstArray,2) + uBound(secondArray,2) + 1
	
	combinedArray = firstArray
	redim preserve combinedArray(uBound(firstArray,1),totalSize)
		
	for i = 0 to uBound(secondArray,2)
 		for j=0 to uBound(firstArray,1)
		'response.Write(j)
			combinedArray(j,uBound(firstArray,2) + 1 + i) = secondArray(j,i)		
		next		
	next
	

else

	if  not comprobar1 then
		combinedArray = firstArray
	elseif  not comprobar2 then
	
		combinedArray = secondArray
	else
		combinedArray=""
		resultados2=0
	end if

end if	
	array_merge = combinedArray	
end function