Ver Mensaje Individual
  #1 (permalink)  
Antiguo 31/08/2010, 16:38
junnior
 
Fecha de Ingreso: julio-2007
Mensajes: 58
Antigüedad: 16 años, 10 meses
Puntos: 0
generar recorset y dejarlos en un arreglo

estimados,

necesito ayuda con este iten.

necesito traer registros de mi base de datos y dejarlos en un arreglo, el problema es que tengo que usar redim preserve y no se como se usa, me pueden hechar una amano.

m conexion esta lista

set objRS = Server.CreateObject("ADODB.Recordset")

objRS.open "SELECT distinct person1euid from pub.journal order by person1euid asc", oConn

'for each campo in objRS.fields
'response.write("<td><b>" & campo.name & "</b></td>"&"<br>")
'next

dim objRS
dim tabid()
redim tabid(10)
'val =100

valores = objRS.GetRows