
03/05/2005, 06:58
|
| | Fecha de Ingreso: mayo-2005
Mensajes: 98
Antigüedad: 20 años Puntos: 0 | |
Ayuda!!: Error de coneccion con Base de Datos Necesito ayudaaaaaa..
Llevo toda la mañana intentando crear una conexion sin DSN para conectar con una sencilla base de datos de Access 2000, que posee una tabla llamada usuarios con dos campos: "login" y "clave". Pues bien, por mas que he cambiado de formas de acceso: con DSN,sin DSN, con Path... no me llega ha ralizar la coneccion y evidentemente tp me muestra tabla que quiero ver.
El error que me da el navegador es el siguiente: Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access]Error general No se puede abrir la clave 'Temporary (volatile) Jet DSN for process 0x4f4 Thread 0xbbc DBC 0x79c064 Jet' del Registro.
/bd/usuarios.asp, línea 11 El codigo de la pagina que estoy realizando es la siguiente:
<HTML>
<HEAD>
<TITLE>Ejemplo BD01: selección de una tabla</TITLE>
</HEAD>
<BODY>
<%
Dim conn, RS
'conectamos a la tabla.
Set conn = Server.CreateObject ("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\bd\icsme.mdb"
'Abrmios el RecordSet (accedemos a los datos de la BD).
Set RS = Server.CreateObject ("ADODB.RecordSet")
'entre " " va el nombre de la tabla, y luego de la "," se indica la BD que contiene esa tabla.
'El número que le sigue, el "1", es la forma de abrir la tabla.
RS.Open "usuarios", conn, 1
'Mostramos los campos hasta que nuestro RS no termine.
'Cuando termine... sale del bulcle automaticamente.
IF RS.EOF THEN
Response.Write ("<CENTER><H1>NO EXISTEN REGISTROS</H1></CENTER>")
ELSE
%>
<TABLE BORDER="1" ALIGN="CENTER">
<TR>
<TH>Código</TH>
<TH>Producto</TH>
<TH>Precio</TH>
<TH>Stock</TH>
</TR>
<%
DO WHILE NOT RS.EOF
%>
<TR>
<TD align="right"><%= RS("CodProducto") %></TD>
<TD><%= RS("Nombre") %></TD>
<TD align="right"><%= RS("Precio") & " €" %></TD>
<TD align="right"><%= RS("Stock") %></TD>
</TR>
<%
RS.MoveNext
LOOP
%>
</TABLE>
<%
END IF
RS.Close
conn.Close
SET RS = Nothing
SET Conn = Nothing
%>
</BODY>
</HTML> |