mostrar varias columnas sql al hacer un select desde una página asp.

16/12/2003 - 16:31 por José Carlos | Informe spam
Hola a todos.

Tengo una base de datos SQL, desde una página web introduzco el select para
que me muestre los datos que quiero. Tambien tengo un campo de texto para
decirle la columna que quiero me muestre.
Mi duda es la siguiente:
¿Cómo puedo hacer para que me muestre más de una columna, es decir, que
yo ponga en el campo de texto dos campos o tres o los que sea, separado por
comillas por ejemplo y que me muetre esos campos del select que he echo.?

Gracias.

Saludos.
José Carlos
www.siadv.com

Preguntas similare

Leer las respuestas

#1 Jhonny Vargas P. [MVP]
16/12/2003 - 16:38 | Informe spam
Muestranos el código que tienes para darte una mejor ayuda.



Saludos,
Jhonny Vargas P. [MS MVP]
Santiago de Chile

"José Carlos" wrote in message
news:brn8ho$o1p$
Hola a todos.

Tengo una base de datos SQL, desde una página web introduzco el select


para
que me muestre los datos que quiero. Tambien tengo un campo de texto para
decirle la columna que quiero me muestre.
Mi duda es la siguiente:
¿Cómo puedo hacer para que me muestre más de una columna, es decir,


que
yo ponga en el campo de texto dos campos o tres o los que sea, separado


por
comillas por ejemplo y que me muetre esos campos del select que he echo.?

Gracias.

Saludos.
José Carlos
www.siadv.com


Respuesta Responder a este mensaje
#2 José Carlos
16/12/2003 - 17:01 | Informe spam
Este es mi código:

<%
dim oConn
dim rs
dim sql

'Server.ScriptTimeout = 600
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
oConn.open application("bbdd")
sql = Request.Form("sql")
campostok = Request.Form("campostok")
'campostok = campostok
rs.open sql, oConn
While not rs.eof
%>
<table border = 1 bordercolor="#006699" align="center" width="600">
<tr>
<td bordercolor="#FFFFFF" width="100" class="titulo"><% Response.Write
campostok %></td>
<td bordercolor="#FFFFFF" width="500" class="datos"><%
Response.Write(rs.fields (campostok) & "<br>") %></td>
</tr>
</table>
<%
rs.movenext
Wend
rs.close
oConn.close
set rs = nothing
set oConn = nothing
%>

Haber si os ayuda y me podeis echar una mano.

"Jhonny Vargas P. [MVP]" escribió en el
mensaje news:Ohbu$p#

Muestranos el código que tienes para darte una mejor ayuda.



Saludos,
Jhonny Vargas P. [MS MVP]
Santiago de Chile

"José Carlos" wrote in message
news:brn8ho$o1p$
> Hola a todos.
>
> Tengo una base de datos SQL, desde una página web introduzco el select
para
> que me muestre los datos que quiero. Tambien tengo un campo de texto


para
> decirle la columna que quiero me muestre.
> Mi duda es la siguiente:
> ¿Cómo puedo hacer para que me muestre más de una columna, es decir,
que
> yo ponga en el campo de texto dos campos o tres o los que sea, separado
por
> comillas por ejemplo y que me muetre esos campos del select que he


echo.?
>
> Gracias.
>
> Saludos.
> José Carlos
> www.siadv.com
>
>


Respuesta Responder a este mensaje
#3 Jhonny Vargas P. [MVP]
16/12/2003 - 17:15 | Informe spam
Okay...

Puedes decir que separen por una coma los campos ingresados en el textbox...
y hacer lo siguiente:

<%
dim oConn
dim rs
dim sql

'Server.ScriptTimeout = 600
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
oConn.open application("bbdd")
sql = Request.Form("sql")
campostok = Request.Form("campostok")
'campostok = campostok
rs.open sql, oConn
While not rs.eof
%>
<table border = 1 bordercolor="#006699" align="center" width="600">
<tr>
<td bordercolor="#FFFFFF" width="100" class="titulo"><% Response.Write
campostok %></td>
<td bordercolor="#FFFFFF" width="500" class="datos"><%

'CODIGO NUEVO
Dim aCampos, Item
aCampos = Split(campostok, ",") 'Creo un array con todos los campos
For Item = LBound(aCampos, 1) To UBound(aCampos, 1)
Response.Write(rs.fields ( aCampos(Item) ) & "<br>")
Next

'FIN CODIGO NUEVO
%></td>
</tr>
</table>
<%
rs.movenext
Wend
rs.close
oConn.close
set rs = nothing
set oConn = nothing
%>

Saludos,
Jhonny Vargas P. [MS MVP]
Santiago de Chile



"José Carlos" wrote in message
news:brna9t$5b2$
Este es mi código:

<%
dim oConn
dim rs
dim sql

'Server.ScriptTimeout = 600
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
oConn.open application("bbdd")
sql = Request.Form("sql")
campostok = Request.Form("campostok")
'campostok = campostok
rs.open sql, oConn
While not rs.eof
%>
<table border = 1 bordercolor="#006699" align="center" width="600">
<tr>
<td bordercolor="#FFFFFF" width="100" class="titulo"><% Response.Write
campostok %></td>
<td bordercolor="#FFFFFF" width="500" class="datos"><%
Response.Write(rs.fields (campostok) & "<br>") %></td>
</tr>
</table>
<%
rs.movenext
Wend
rs.close
oConn.close
set rs = nothing
set oConn = nothing
%>

Haber si os ayuda y me podeis echar una mano.

"Jhonny Vargas P. [MVP]" escribió en el
mensaje news:Ohbu$p#
>
> Muestranos el código que tienes para darte una mejor ayuda.
>
>
>
> Saludos,
> Jhonny Vargas P. [MS MVP]
> Santiago de Chile
>
> "José Carlos" wrote in message
> news:brn8ho$o1p$
> > Hola a todos.
> >
> > Tengo una base de datos SQL, desde una página web introduzco el select
> para
> > que me muestre los datos que quiero. Tambien tengo un campo de texto
para
> > decirle la columna que quiero me muestre.
> > Mi duda es la siguiente:
> > ¿Cómo puedo hacer para que me muestre más de una columna, es


decir,
> que
> > yo ponga en el campo de texto dos campos o tres o los que sea,


separado
> por
> > comillas por ejemplo y que me muetre esos campos del select que he
echo.?
> >
> > Gracias.
> >
> > Saludos.
> > José Carlos
> > www.siadv.com
> >
> >
>
>


Respuesta Responder a este mensaje
#4 Sashka
16/12/2003 - 17:37 | Informe spam
'Imprimir los nombres de campo
<%
Response.Write "<tr>"
'Por cada columna de la fila actual...
For i = 0 to (rs.Fields.Count - 1)
' escribir el nombre de campo.
Response.Write "<th>" & rs(i).Name & "</th>"
Next
Response.Write "</tr>"
While not rs.eof
Response.Write "<tr>"
'Por cada columna de la fila actual...
For i = 0 to (rs.Fields.Count - 1)
' escribir los datos del campo.
Response.Write "<td>" & rs(i) & "</td>"
Next
Response.Write "</tr>"
rs.MoveNext
wend

Sashka

"José Carlos" escribió en el mensaje
news:brna9t$5b2$
Este es mi código:

<%
dim oConn
dim rs
dim sql

'Server.ScriptTimeout = 600
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
oConn.open application("bbdd")
sql = Request.Form("sql")
campostok = Request.Form("campostok")
'campostok = campostok
rs.open sql, oConn
While not rs.eof
%>
<table border = 1 bordercolor="#006699" align="center" width="600">
<tr>
<td bordercolor="#FFFFFF" width="100" class="titulo"><% Response.Write
campostok %></td>
<td bordercolor="#FFFFFF" width="500" class="datos"><%
Response.Write(rs.fields (campostok) & "<br>") %></td>
</tr>
</table>
<%
rs.movenext
Wend
rs.close
oConn.close
set rs = nothing
set oConn = nothing
%>

Haber si os ayuda y me podeis echar una mano.

"Jhonny Vargas P. [MVP]" escribió en el
mensaje news:Ohbu$p#
>
> Muestranos el código que tienes para darte una mejor ayuda.
>
>
>
> Saludos,
> Jhonny Vargas P. [MS MVP]
> Santiago de Chile
>
> "José Carlos" wrote in message
> news:brn8ho$o1p$
> > Hola a todos.
> >
> > Tengo una base de datos SQL, desde una página web introduzco el select
> para
> > que me muestre los datos que quiero. Tambien tengo un campo de texto
para
> > decirle la columna que quiero me muestre.
> > Mi duda es la siguiente:
> > ¿Cómo puedo hacer para que me muestre más de una columna, es


decir,
> que
> > yo ponga en el campo de texto dos campos o tres o los que sea,


separado
> por
> > comillas por ejemplo y que me muetre esos campos del select que he
echo.?
> >
> > Gracias.
> >
> > Saludos.
> > José Carlos
> > www.siadv.com
> >
> >
>
>


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida