Problema al unir dos arreglos (2)

[Fenris]

Hola

Necesito ayuda, estoy tratando de hacer algo que vi precisamente en este tema del foro, pero tengo problemas, resulta que tengo 2 arreglos misma situacion que lo que se ha demostrado aqui con la diferencia de que ambos arreglos son rellenados de una BD, lo que pasa es que el procedimiento funciona pero solo para un argumento, como puedo agregar mas elementos al RecordSet mas .Fields(OTRO ELEMENTO") y asi sucesivamente

les dejo el codigo que estoy trabajando donde me arroja el error

Código:

With rs
	.CursorLocation = adUseClient
	.CursorType = adOpenDynamic
	.Fields.Append "ID_", adInteger
	.Fields.Append "CODIGO_", adVarChar
	.Fields.Append "DESCRIPCION_", adVarChar
	.Fields.Append "VALOR_", adInteger
	.open

	for i = 0 to pos-1
		.AddNew
		.Fields("ID_") = arrPrestaciones(i,0)
		.Fields("CODIGO_") = arrPrestaciones(i,3)
		.Fields("DESCRIPCION_") = arrPrestaciones(i,1)
		.Fields("VALOR_") = arrPrestaciones(i,2)		
		.update
	next

El error me aparece en el .Fields.Append "CODIGO_",adVarChar

Descripcion de error
ADODB.Fields (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.

[AlZuwaga]

Hola Fenris. Primer comentarte que es preferible que inicies un tema nuevo (más allá que tenga relación con otro). Es por ello que "separé" tu mensaje del otro tema dejando un enlace al mismo.

Ahora bien, no estás mostrando todo el código, por lo tanto no sé si definiste las constantes para el tipo de dato adVarChar. Las constantes, en el otro tema, estaban definidas así:

Código:

CONST adInteger = 3
CONST adOpenDynamic = 2
CONST adUseClient = 3

Y no recuerdo del todo bien, pero creo que a adVarChar le corresponde el número 200.
Por lo tanto, la definición de constantes debería quedarte así:

Código:

CONST adInteger = 3
CONST adOpenDynamic = 2
CONST adUseClient = 3
CONST adVarChar = 200 

Igual, la definición de constantes las podés obviar incluyendo en tu script el archivo adovbs.inc (que personalmente nunca uso) o directamente utilizando los valores correspondientes. Por ejemplo:

Código:

.Fields.Append "CODIGO_", 200 

Un saludo

[Adler]

Hola

Una muy pequeña aportación. Aquí están todas las constantes ado

[Fenris]

ME SIGUE NOTIFICANDO DEL MISMO PROBLEMA A PESAR DE QUE HE DECLARADO LA CONSTANTE PARA ADVARCHAR, Y LO RARO ES QUE SI QUITO ESTOS DATOS
.Fields.Append "CODIGO_", adVarChar
.Fields.Append "DESCRIPCION_", adVarChar
Y DEJO SOLO LOS 2 DATOS CON TIPO ADINTEGER FUNCIONA BIEN, DONDE ESTA MALO


GRACIAS A AMBOS POR LA AYUDA MUY BUENO EL ENLACE A LAS CONSTANTES ADO, YA HE RESUELTO EL PROBLEMA. EL PROBLEMA ESTABA EN QUE NO DEFINI LA LONGITUD DE CARACTERES PARA EL TIPO DE DATO ADVARCHAR.

ASI DEBERIA SER:
.Fields.Append "CODIGO_", adVarChar, 255
.Fields.Append "DESCRIPCION_", adVarChar, 255

255 ES LA LONGITUD DE CARACTERES PARA LA INFORMACION QUE CONTENDRA ESTE CAMPO NO ES NECESARIO QUE SEA 255 PUEDE SER MENOR ESO DEPENDERA DE CUANTOS CARACTERES TENGA EL VALOR A CARGAR.

DE NUEVO REITERO LAS GRACIAS ME HA MUY UTIL LA INFORMACION Y TRATARE DE COOPERAR LO MAS QUE PUEDA EN ESTE FORO

[AlZuwaga]

Bien Fenris, me alegro lo hayas solucionado