Ver Mensaje Individual
  #23 (permalink)  
Antiguo 18/01/2008, 06:33
black_unicorn
 
Fecha de Ingreso: enero-2008
Mensajes: 30
Antigüedad: 16 años, 2 meses
Puntos: 0
Re: --- ¿¿¿ Como Puedo Hacerlo ??? ---

Hola, cambié una vez más el código como me lo mencionaron.
Ahora el error es el siguiente:

************************************************** **********
Microsoft Office Access Database Engine error '80004005'
Error no especificado

/pruebaA.asp, línea 15

************************************************** *************

Y el código de mi página ASP, es la nueva conclusión de todos sus aportes:

------------------------------------------------------------------------------------------------------
<HTML>
<HEAD><TITLE>Leyendo una base de datos de Access con ASP</TITLE></HEAD>
<BODY>

<TABLE BORDER="1">
<TD><B>Nombre<B></TD>
<TD><B>Email<B></TD>
<TD><B>Url<B></TD>

<%
Dim conexion, registros, basedatos

Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Provider="Microsoft.ACE.OLEDB.12.0"
conexion.Open("c:\Prueba\ejemplo.accdb")--->Ésta es la línea 15

Set registros = conexion.Execute("SELECT * FROM Ejemplo ORDER BY Ejemplo.Nombre")


Do While Not registros.EOF

%>

<TR>
<TD><%= registros.Fields.item("Nombre").Value %></TD>
<TD><%= registros.Fields.item("Email").Value %></TD>
<TD><%= registros.Fields.item("URL").Value %></TD>
</TR>

<%
registros.MoveNext

Loop

registros.Close

Set registros = Nothing

conexion.Close

Set conexion = Nothing

%>

</TABLE>
</BODY>
------------------------------------------------------------------------------------------------------

Para quitar el error que les mencionaba lo que hice fue:

1. Cómo me recomendó Shiryu_Libra quitar la línea: Persist Security Info=False;
2. Quitar todos los ";" que habían.

De nuevo estancado, alguna idea para ayudarme una vez más?