No consigo conectar y leer base datos access

02/12/2004 - 19:03 por DeimoXXX | Informe spam
Hola amigos:

Estoy intentando conectar a una base de datos Access con ASP y hacer la
selección de dos registros.
Despues de muchos días intentandolo de todas las maneras y buscando por la
red toda clase de tutoriales, no lo he conseguido. :'(

Lo más cercano que he estado a conseguirlo es con este código. Pero al
ejecutarlo no aparece nada de nada.
No aparece ningún registro de la base de datos, pero tampoco ningún error.
:o

A ver si alguién puede echarme una mano. Muchas gracias.

(Utilizo DreamWeaver)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Documento sin t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Dim con as New ADODB.connection
Dim cadena_DSN AS string

cadena_DSN="Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=c:\inetpub\wwwroot\basedatos.mdb;" & _
"Uid=Admin; Pwd="

con.Open cadena_DSN

'creamos la sentecia SQL
sSQL="Select * From NombreTabla"

'Ejecutamos la orden
set RS=Con.Execute(sSQL)

'Mostramos los registros
%>

<table align="center">
<tr>
<th>Nombre</th>
<th>Teléfono</th>
</tr>
<%
Do While Not RS.Eof
%>
<tr>
<td><%=RS("campo1")%></td>
<td><%=RS("campo2")%></td>
</tr>
<%
RS.MoveNext
Loop

'Cerramos el sistema de conexion
Con.Close
%>

</table>

<div align="center">
<a href="insertar.html">Añadir un nuevo registro</a><br>
<a href="actualizar1.asp">Actualizar un registro existente</a><br>
<a href="borrar1.asp">Borrar un registro</a><br>
</div>
</body>
</html>

Preguntas similare

Leer las respuestas

#1 Matias Iacono
02/12/2004 - 20:02 | Informe spam
Ese codigo que posteas es de Visual Basic, o de ASP.net

Si lo que quieres hacer es ASP normal, en www.aspfacil.com hay de todo un
poco.

Saludos

Matias Iacono
Microsoft MVP



"DeimoXXX" wrote in message
news:gOIrd.4096500$
Hola amigos:

Estoy intentando conectar a una base de datos Access con ASP y hacer la
selección de dos registros.
Despues de muchos días intentandolo de todas las maneras y buscando por la
red toda clase de tutoriales, no lo he conseguido. :'(

Lo más cercano que he estado a conseguirlo es con este código. Pero al
ejecutarlo no aparece nada de nada.
No aparece ningún registro de la base de datos, pero tampoco ningún error.
:o

A ver si alguién puede echarme una mano. Muchas gracias.

(Utilizo DreamWeaver)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Documento sin t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Dim con as New ADODB.connection
Dim cadena_DSN AS string

cadena_DSN="Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=c:\inetpub\wwwroot\basedatos.mdb;" & _
"Uid=Admin; Pwd="

con.Open cadena_DSN

'creamos la sentecia SQL
sSQL="Select * From NombreTabla"

'Ejecutamos la orden
set RS=Con.Execute(sSQL)

'Mostramos los registros
%>

<table align="center">
<tr>
<th>Nombre</th>
<th>Teléfono</th>
</tr>
<%
Do While Not RS.Eof
%>
<tr>
<td><%=RS("campo1")%></td>
<td><%=RS("campo2")%></td>
</tr>
<%
RS.MoveNext
Loop

'Cerramos el sistema de conexion
Con.Close
%>

</table>

<div align="center">
<a href="insertar.html">Añadir un nuevo registro</a><br>
<a href="actualizar1.asp">Actualizar un registro existente</a><br>
<a href="borrar1.asp">Borrar un registro</a><br>
</div>
</body>
</html>



Respuesta Responder a este mensaje
#2 DeimoXXX
03/12/2004 - 15:23 | Informe spam
Gracias por la información. Con el código de esa página al fin he podido
conectarme.

Pero utilizando el código de paginación que aparece, me da un error. A ver
si puedes orientarme un poco.

El código que yo utilizo (el que aparece en la página de aspfacil...):


..
<html>
<head>
<title>Documento sin t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Dim con, rs, sSQL
Dim PaginaActual 'en qué pagina estamos
Dim PaginasTotales 'cuantas páginas tenemos
Dim TamPagina 'cuantos registros por página
Dim CuentosRegistros

'MODIFICAR AQUI PARA CAMBIAR NÚMERO REGISTROS POR PAGINA
TamPagina

'Leemos qué página mostrar. La primera vez será la incial.
if Request.QueryString("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.QueryString("pagina"))
end if

set con=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Connection")

con.Open "DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=C:\Inetpub\wwwroot\basedatos.mdb;"
sSQL="Select * from Articulo;"

'Abro el recordset
rs.Open sSQL, con, 1, 2

'Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina

'Cuento las páginas
PaginasTotales=rs.PageCount

'Compruebo que la página actual está en el rango
if PaginaActual<1 then
PaginaActual=1
end if
if PaginaActual>PaginasTotales then
PaginaActual=PaginasTotales
end if

'Por si la consulta no devuelve registros
if PaginasTotales=0 then
Response.Write("No se encontraron resultados")
else
'vamos a paginar
rs.AbsolutePage=PaginaActual
Response.Write("Página " & PaginaActual & " de " & PaginasTotales)
Response.Write("<br><br>")
Response.Write("TABLE BORDER=""1"" ALIGN=""center"">")
Response.Write("<TR><TD COLSPAN=""3""><B>RESULTADOS</B></TD>")
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
'Pinto una linea de la tabla por cada registro
Response.Write("<TR>"&VbCrLf)
Response.Write("<TD>"&rs.Fields("campo1")&"</TD>")
Response.Write("<TD>"&rs.Fields("campo2")&"</TD>")
Response.Write("<TD>"&rs.Fields("campo3")&"</TD>")
Response.Write("</TR>")
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
Response.Write("</TABLE>")

end if
rs.Close
con.Close
set rs=nothing
set con=nothing

'Muestro los enlaces
Response.Write("<hr>")
if PaginaActual > 1 then
Response.Write("<A HREF=rspagina.asp?pagina="& PaginaActual-1& _
">10 Anteriores</A> ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=rspagina.asp?pagina=" & PaginaActual+1 & _
">10 Siguientes</A>")
end if
%>
</body>
</html>

...

Como resultado de este código, el Explorer me da el siguiente error:

_____________________________________________
Hay un problema con la página que está intentando ver y no se puede
mostrar.


Please try the following:

a.. Haga clic en el botón Actualizar o inténtelo de nuevo más tarde.

b.. Abra la página principal de pcunai y, a continuación, busque
vínculos a la información que desea.
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server


Información técnica (para personal de soporte técnico)

a.. Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01BE)
El objeto no acepta argumentos con nombre: 'PageSize'
/bdd.asp, línea 35


b.. Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR
1.1.4322)

c.. Página:
GET /bdd.asp

d.. Hora:
viernes, 03 de diciembre de 2004, 15:19:09


e.. Más información:
Soporte técnico de Microsoft


__________________________________________________________

¿Que es lo que estoy codificando mal? Muchas gracias por adelantado.

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