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

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$
Mostrar la cita

Hola a todos.

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

para
Mostrar la cita

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
Mostrar la cita

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

por
Mostrar la cita

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

Gracias.

Saludos.
José Carlos
www.siadv.com

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#
Mostrar la cita

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
Mostrar la cita

> 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.?
Mostrar la cita

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

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$
Mostrar la cita

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,
Mostrar la cita

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

separado
Mostrar la cita

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

'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$
Mostrar la cita

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,
Mostrar la cita

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

separado
Mostrar la cita

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