Ayuda con ASP, SQL y tablas

akinow · #1 (**permalink**) 08/01/2010, 06:09

Hola!

Necesito un poco de ayuda con esto, ya que ando perdido.

Necesito que me muestre todo el contenido de la tabla persona, pero en columnas con cabecera.

Me se conectar a la base y que me muestre 1 campo, sin columnas ni nada.

Os pongo lo que tengo hasta ahora:

<% @ LANGUAGE="VBscript" %>
<html>
<head>
<title>ASP</title>
</head>
<body>

<%
On Error Resume Next
Set Connexio = CreateObject("ADODB.Connection")
Connexio.Open "datacenter"

sntSQL = "SELECT * FROM persona"
Set result = Connexio.Execute(sntSQL)

If Err.Description <> "" then
Response.write "<B>Error en la base de dades: " & Err.Description &" </B>"
Response.End
End If

While Not result.EOF
Response.write result ("DNI") & "<br>"
Response.Write "<tr><td> " & resultat("dni") & " </td><td>
wend

Set result = Nothing
Connexio.Close
Set Connexio = Nothing
%>
</body>
</html>

Gracias y saludos!

Adler · #2 (**permalink**) 08/01/2010, 06:24

Hola

Creo que te refieres ha hacer una grilla

Suerte

akinow · #3 (**permalink**) 08/01/2010, 08:24

Gracias por contestar!

Entonces si la base se llama Datacenter, y la tabla persona y lo que quiero es que me muestre todo el contenido con las tablas, que tendria de modificar?

Gracias!!!

Decir que la base esta en sql, no en acces.

akinow · #4 (**permalink**) 08/01/2010, 08:38

Asi la tengo ahora, y me da el siguente error:

Script error detected at line 42.
Source line: Do While not RS.EOF

Le he modificado la conexion para que coja algo, pero no funciona! Asi la tengo, que hago mal?

<%
'-----------------------------------------------------------------------------
'Grilla automatica para listar todos los campos y datos que contiene una tabla
'http://www.soloasp.com.ar/
'-----------------------------------------------------------------------------
'Simplemente Configurar el string de conexion
'y la tabla a mostrar, en las siguientes variables
On Error Resume Next
Set Connexio = CreateObject("ADODB.Connection")
Connexio.Open "Datacenter"
'-----------------------------------------------------------------------------
'Configuraciones adionales (no obligatorias)
'Tambien podes configurar los colores de los datos
color_datos = "#000000"
color_titulos = "#FFFFFF"
'los colores de fondo de la tabla
fondo_color_datos = "#cbebde"
fondo_color_titulos = "#475f70"
'la letra (font) de los datos
font_datos = "Verdana"
font_titulos = "Verdana"
'el tamaño (size) de la letra
size_datos = "11"
size_titulos = "11"
'-----------------------------------------------------------------------------
'No tocar mas abajo de esta linea si no se sabe lo que se hace
'-----------------------------------------------------------------------------

sql = "SELECT * FROM ["& Trim(tabla) & "]"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open StrConn
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, oConn, 3, 1
Response.Write vbTab & "<TABLE cellpadding='3' BORDER='1' WIDTH='100%' bordercolor='#000000'>"
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write "<TD align='center' bgcolor='"& fondo_color_titulos &"' "
Response.Write "style='color: "& color_titulos &"; font-family:"& font_titulos &"; font-size: "& size_titulos &"'><B>"
Response.Write RS.Fields(I).Name
Response.Write "</B></TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf
Do While not RS.EOF
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write "<TD align='left' bgcolor='"& fondo_color_datos &"' "
Response.Write "style='color: "& color_datos &"; font-family:"& font_datos &"; font-size: "& size_datos &"'><B>"
Response.Write RS.Fields(I)
if isnull(RS.Fields(I)) or RS.Fields(I) = "" then response.write " "
Response.Write "</B></TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf
RS.MoveNext
Loop
Response.Write vbTab & "</TABLE>"
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%>

Muchisimas gracias!!!

Adler · #5 (**permalink**) 08/01/2010, 13:41

Hola

Revisa de nuevo el articulo que te posteé y adapta la cadena conexión

Suerte

monxas · #6 (**permalink**) 10/01/2010, 05:28

Mira esto que postee hace un mes, es con la base de eso pero mejorado.

USA EL CODIGO DEL PRIMER POST

http://www.forosdelweb.com/f15/aport...online-761935/