como hacer variables dobles

elpoli15 · #1 (**permalink**) 20/04/2002, 11:08

buenas

saco de una base el valor:
nombre = RS("nombre") y supongamos que quisiera hacerlo tantas veces como campos tiene la tabla.

he provado esto:

registros = 0
Do While NOT RS.EOF
registros = registros + 1
nombre" & registros & " = RS("nombre").Value
RS.Movenext
Loop

pero me da error

urjose · #2 (**permalink**) 20/04/2002, 11:17

i=0
Do While NOT RS.EOF
Nombre(i)=RS("nombre").Value
i=i+1
RS.Movenext
Loop

Saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"> 
Urjose</center>

elpoli15 · #3 (**permalink**) 20/04/2002, 12:08

me sigue dando error
tengo la pagina alojada en brinkster

probe definiendo la variable Dim nombre(i) pero me salio este error:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'nombre'

urjose · #4 (**permalink**) 20/04/2002, 12:25

Declara así:

Dim Nombre()

Saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"> 
Urjose</center>

elpoli15 · #5 (**permalink**) 20/04/2002, 12:52

sigue dandome el mismo error

urjose · #6 (**permalink**) 20/04/2002, 12:56

mmm entonces intenta no declararla, y si sigue igual lo mas seguro es que tengas un error por ahi, muestranos el código

saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"> 
Urjose</center>

elpoli15 · #7 (**permalink**) 20/04/2002, 13:03

sSQL = "SELECT * FROM Mensajes Where idTema Like '" & Request.Querystring("idTema") & "'"
Set oRS = oConn.Execute(sSQL)

Dim icono()
dim i
i = 0
Do While NOT oRS.EOF
icono = oRS("icono").Value
icono(i) = icono
i = i + 1
oRS.Movenext
Loop

Response.Write (icono(i))

urjose · #8 (**permalink**) 20/04/2002, 13:19

Pues yo lo haría así:

sSQL = "SELECT * FROM Mensajes Where idTema Like '" & Request.Querystring("idTema") & "'"
Set oRS = oConn.Execute(sSQL)

Dim icono()
Dim i
i = 0
Do While NOT oRS.EOF
icono(i) = oRS("icono").Value
i = i + 1
oRS.Movenext
Loop

y como te mencione anteriormente si te sigue mandando error quita las dos líneas de Dim

Saludos
Response.Write (icono(i))

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"> 
Urjose</center>

elpoli15 · #9 (**permalink**) 20/04/2002, 14:36

lsigue dando error aunque quite los DIM

urjose · #10 (**permalink**) 20/04/2002, 15:19

Shiales ,pues date un tiro

estas seguro que el error te da en el código que yo te di?

Postea el error que te manda el explorador, junto con la línea en que te lo manda. Por lo q veo en tú código puede ser que lo que este mal sea la Query.

Saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"> 
Urjose</center>

elpoli15 · #11 (**permalink**) 20/04/2002, 16:41

ya se cual era el problema:

si escribia un valor no numerico daba error pero si escribia

Dim icono(0) o Dim icono(1), etc no daba error.

¿Cómo puedo poner una variable sin que de error?

urjose · #12 (**permalink**) 20/04/2002, 16:46

Hola,

Lo que decimos por medio de esto

Dim icono()

Es que icono es un arreglo de tamaño dinámico, ahora bien si tu le pones Dim icono(1) icono solo te dejara guardar dos valores icono(0) e icono(1) es por ello que entre los parentesis no ponemos el tamaño del arreglo para que este tenga n número de elementos que es lo que tu estas creando, es decir creas un arreglo dinámico dependiendo del numero de registros que te regresa tu Query.

Saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"> 
Urjose</center>

elpoli15 · #13 (**permalink**) 20/04/2002, 17:02

escribi este codigo pero me sigue dando error:

<%

' DATOS DEL MENSAJE

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\elrincondelloco\db\lamarujad elcervantes_foro.mdb"))

sSQL = "SELECT asunto FROM Mensajes"
Set oRS = oConn.Execute(sSQL)

Dim asunto()
Dim i
i = 0

Do While NOT oRS.EOF
asunto(i) = oRS("asunto").Value
i = i + 1
oRS.Movenext
Loop

Do While NOT i = 0
i = i - 1
Response.Write(asunto(i))
Response.Write(" ")
Loop

oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>

urjose · #14 (**permalink**) 20/04/2002, 17:17

Deberias colocar el error que te manda y la linea

Al menos por lo que veo, cambia esto:

Do While NOT i = 0
i = i - 1
Response.Write(asunto(i))
Response.Write(" ")
Loop

por esto:

For i=0 to Ubound(ASunto)
Response.Write asunto(i)
Response.Write " "
Next

Saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"> 
Urjose</center>

elpoli15 · #15 (**permalink**) 20/04/2002, 17:23

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'asunto'

line 15

urjose · #16 (**permalink**) 20/04/2002, 17:33

Cual es la línea 15 en tu código?

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"> 
Urjose</center>

elpoli15 · #17 (**permalink**) 20/04/2002, 17:44

inserto este codigo:

<%

' DATOS DEL MENSAJE

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\elrincondelloco\db\lamarujad elcervantes_foro.mdb"))

sSQL = "SELECT asunto FROM Mensajes"
Set oRS = oConn.Execute(sSQL)

Dim asunto()
Dim i
i = 0

Do While NOT oRS.EOF
asunto(i) = oRS("asunto").Value
i = i + 1
oRS.Movenext
Loop

Do While NOT i = 0
i = i - 1
Response.Write(asunto(i))
Response.Write(" ")
Loop

oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>

y me sale en el mensaje de error:

Microsoft VBScript runtime error '800a0009'

Subscript out of range

line 17

la linea 17 es esta:
asunto(i) = oRS("asunto").Value

urjose · #18 (**permalink**) 20/04/2002, 17:47

Bueno pues ese error yo lo he sufrido varias veces y lo he solucionado al quitar la declaraciones es decir quitando las lineas de los DIMS

y Bueno ya te dije que esto lo tienes que modificar

Do While NOT i = 0
i = i - 1
Response.Write(asunto(i))
Response.Write(" ")
Loop

Bueno ahora si me retiro, espero que te funcione.

Saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"> 
Urjose</center>

elpoli15 · #19 (**permalink**) 20/04/2002, 18:16

muchas gracias. este es el codigo que funciona:

<%

' DATOS DEL MENSAJE

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\elrincondelloco\db\lamarujad elcervantes_foro.mdb"))

sSQL = "SELECT * FROM Mensajes"
Set oRS = oConn.Execute(sSQL)

Dim asunto(1000)
i = 0

Do While NOT oRS.EOF
i = i + 1
Response.Write(i)
Response.Write(" ")
asunto(i) = oRS("asunto").Value
oRS.Movenext
Loop

Do While NOT i = 0
i = i - 1
Response.Write(asunto(i))
Response.Write(" ")
Loop

oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>

le he asignado el valor 1000 - no creo que la tabla llegue a alcanzar los 1000 registros