Enlace entre access y un página web
De favor me podría ayudar a enlazar una base de datos creada en access a una página web. Necesito que dentro de mi página web pueda visualizar los datos contenidos en las tablas de access. Que debo de utilizar, ¿tengo qué instalar una maquina como servidor o no? - Si me pudieras orientar al respectote lo agradecería mucho de antemano.
[email protected]
[email protected]
1 Respuesta
Respuesta de masterlui
1
Necesitas una maquina que tenga el access y que tenga un servidor web (el iis puede servir)
En una carpeta cualquiera, pones tu base de datos y tus páginas asp. Las compartes para el IIS y creas un código con la estructura más o menos como esta aquí:
'Se establece la conexion
Set miconex=Server.CreateObject("ADODB.Connection")
miconex.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("Chat.mdb")
querysql="select login from login where login='"+ cstr(login) + "'"
Set RecSet= Server.CreateObject("ADODB.Recordset")
RecSet.Open querysql,miconex,dbOpenDynaset
if (RecSet.EOF ) then 'no hay nadie con ese login, se puede insertar
querysql="insert into login values ('" + cstr(login) + "', '" + cstr(pass) + "')"
miconex.Execute querysql
'Se cierran y se liberan recursos tanto para los objetos recordset como para el connection
RecSet.Close
Set RecSet=nothing
miconex.Close
Set miconex=nothing
%>
En una carpeta cualquiera, pones tu base de datos y tus páginas asp. Las compartes para el IIS y creas un código con la estructura más o menos como esta aquí:
'Se establece la conexion
Set miconex=Server.CreateObject("ADODB.Connection")
miconex.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("Chat.mdb")
querysql="select login from login where login='"+ cstr(login) + "'"
Set RecSet= Server.CreateObject("ADODB.Recordset")
RecSet.Open querysql,miconex,dbOpenDynaset
if (RecSet.EOF ) then 'no hay nadie con ese login, se puede insertar
querysql="insert into login values ('" + cstr(login) + "', '" + cstr(pass) + "')"
miconex.Execute querysql
'Se cierran y se liberan recursos tanto para los objetos recordset como para el connection
RecSet.Close
Set RecSet=nothing
miconex.Close
Set miconex=nothing
%>
