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.