PROBLEMILLA DE CONEXION...
Hola:
He leido el foro, pero no he encontrado la información detallada, de cómo debo de poner el driver para conectarme con la base de datos de Access.
Tengo Access 2000, pero no he podido conectarme a la base de datos a través de ASP.
He hecho toda la instalación correcta, ve todas las páginas a las que se envían las variables y las instrucciones, pero a la hora de mostrar los datos de las tablas, no me hace ni caso.
UNA AYUDITA, POR FAVOR ....
He leido el foro, pero no he encontrado la información detallada, de cómo debo de poner el driver para conectarme con la base de datos de Access.
Tengo Access 2000, pero no he podido conectarme a la base de datos a través de ASP.
He hecho toda la instalación correcta, ve todas las páginas a las que se envían las variables y las instrucciones, pero a la hora de mostrar los datos de las tablas, no me hace ni caso.
UNA AYUDITA, POR FAVOR ....
Prueba con esto :
<%Set Cn = Server.CreateObject("ADODB.Connection")
Cn.ConnectionTimeout = 15
Cn.CommandTimeout = 15
Cadena= "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;data Source=c:inetpubwwwrootsisesistema.mdb"
Cn.open Cadena
Set RsAlumnos = Server.CreateObject("ADODB.RecordSet")
RsAlumnos.ActiveConnection = Cn
Wsql = "select nombre, apellido from Alumno"
RsAlumnos.open Wsql
if (not RsAlumnos.eof) then
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<% Do While not RsAlumnos.EOF%>
</BODY>
<td><%=RsAlumnos("Apellido")%></td><br>
<%
RsAlumnos.MoveNext
Loop
%>
</HTML>
<%end if%>
<%Set Cn = Server.CreateObject("ADODB.Connection")
Cn.ConnectionTimeout = 15
Cn.CommandTimeout = 15
Cadena= "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;data Source=c:inetpubwwwrootsisesistema.mdb"
Cn.open Cadena
Set RsAlumnos = Server.CreateObject("ADODB.RecordSet")
RsAlumnos.ActiveConnection = Cn
Wsql = "select nombre, apellido from Alumno"
RsAlumnos.open Wsql
if (not RsAlumnos.eof) then
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<% Do While not RsAlumnos.EOF%>
</BODY>
<td><%=RsAlumnos("Apellido")%></td><br>
<%
RsAlumnos.MoveNext
Loop
%>
</HTML>
<%end if%>