Foros del Web » Programando para Internet » ASP Clásico »

Ayuda con ASP, SQL y tablas

Estas en el tema de Ayuda con ASP, SQL y tablas en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 08/01/2010, 06:09
 
Fecha de Ingreso: enero-2010
Mensajes: 3
Antigüedad: 15 años, 2 meses
Puntos: 0
Ayuda con ASP, SQL y tablas

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!
  #2 (permalink)  
Antiguo 08/01/2010, 06:24
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 3 meses
Puntos: 126
Respuesta: Ayuda con ASP, SQL y tablas

Hola

Creo que te refieres ha hacer una grilla

Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
  #3 (permalink)  
Antiguo 08/01/2010, 08:24
 
Fecha de Ingreso: enero-2010
Mensajes: 3
Antigüedad: 15 años, 2 meses
Puntos: 0
Respuesta: Ayuda con ASP, SQL y tablas

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.
  #4 (permalink)  
Antiguo 08/01/2010, 08:38
 
Fecha de Ingreso: enero-2010
Mensajes: 3
Antigüedad: 15 años, 2 meses
Puntos: 0
Respuesta: Ayuda con ASP, SQL y tablas

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 "&nbsp;"
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!!!
  #5 (permalink)  
Antiguo 08/01/2010, 13:41
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 3 meses
Puntos: 126
Respuesta: Ayuda con ASP, SQL y tablas

Hola

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

Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
  #6 (permalink)  
Antiguo 10/01/2010, 05:28
 
Fecha de Ingreso: mayo-2009
Mensajes: 201
Antigüedad: 15 años, 10 meses
Puntos: 9
Respuesta: Ayuda con ASP, SQL y tablas

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/

Etiquetas: asp, sql, tablas
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 02:18.