20/04/2002, 11:08
| |||
| |||
| como hacer variables dobles 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 |
|
20/04/2002, 11:17
| ||||
| ||||
| Re: como hacer variables dobles 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"><br> Urjose</center> |
|
20/04/2002, 12:08
| |||
| |||
| Re: como hacer variables dobles 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' |
|
20/04/2002, 12:56
| ||||
| ||||
| Re: como hacer variables dobles 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"><br> Urjose</center> |
|
20/04/2002, 13:03
| |||
| |||
| Re: como hacer variables dobles 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)) |
|
20/04/2002, 13:19
| ||||
| ||||
| Re: como hacer variables dobles 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"><br> Urjose</center> |
|
20/04/2002, 15:19
| ||||
| ||||
| Re: como hacer variables dobles 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"><br> Urjose</center> |
|
20/04/2002, 16:41
| |||
| |||
| Re: como hacer variables dobles 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? |
|
20/04/2002, 16:46
| ||||
| ||||
| Re: como hacer variables dobles 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"><br> Urjose</center> |
|
20/04/2002, 17:02
| |||
| |||
| Re: como hacer variables dobles 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("<br>") Loop oConn.Close Set oRS = Nothing Set oConn = Nothing %> |
|
20/04/2002, 17:17
| ||||
| ||||
| Re: como hacer variables dobles 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("<br>") Loop por esto: For i=0 to Ubound(ASunto) Response.Write asunto(i) Response.Write "<br>" Next Saludos <center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br> Urjose</center> |
|
20/04/2002, 17:44
| |||
| |||
| Re: como hacer variables dobles 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("<br>") 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 |
|
20/04/2002, 17:47
| ||||
| ||||
| Re: como hacer variables dobles 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("<br>") Loop Bueno ahora si me retiro, espero que te funcione. Saludos <center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br> Urjose</center> |
|
20/04/2002, 18:16
| |||
| |||
| Re: como hacer variables dobles 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("<br>") asunto(i) = oRS("asunto").Value oRS.Movenext Loop Do While NOT i = 0 i = i - 1 Response.Write(asunto(i)) Response.Write("<br>") 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 |
