27/04/2006, 05:40
|
| | | Fecha de Ingreso: abril-2006 Ubicación: Bizkaia
Mensajes: 70
Antigüedad: 19 años Puntos: 0 | |
| Aupa Dsandar, haber si te sirve esto:
<code>
sql="SELECT * FROM TPRODUCTO where IDTIPOPRODUCTO="&numArray
Set rs=CreateObject("ADODB.Recordset")
rs.CursorType=1
rs.Open sql, con
if not rs.eof then
numElem =rs.recordcount
'Definicion del array
redim preserve numArray(numElem)
c=0
do while not rs.eof
numArray(i)=rs("NOMBRE")
c= c+1
rs.movenext
loop
else
numero_contactos= 0
end if
cerrarRS(rs)
</code> |