| |
 |
|
| |
 |
| |
|
Este es un ejemplo de conexión a una base de datos Acces de la versión 2007 de Microsoft Office.
Utilizaremos como ejemplo la siguiente base de datos con los correspondientes campos y registros:
|
| |
 |
| |
|
| |
|
Realizaremos un script ASP para conectarnos con la base de datos Access 2007 y obtener los datos de la misma:
|
|
|
|
<%
Option Explicit
'Declaracion de variables
Dim cnn, base, StrSql, rstSearch
'Creacion objeto ADODB
set cnn = Server.CreateObject("ADODB.Connection")
'Ubicacion de la base de datos
base = server.mappath("twaccess2007.accdb")
'Conexion a la base con el provider compatible para Access 2007
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & base & ";Mode=Share Exclusive"
StrSql = "Select * from Usuarios"
Set rstSearch = cnn.Execute(strSql)
'Loop through the recordset
Do While not rstSearch.EOF
'Write the HTML to display the current record in the recordset
Response.Write ("<br>")
Response.Write ("Usuario: " & rstSearch.Fields("Users").value)
Response.Write ("<br>")
Response.Write ("Clave: " & rstSearch.Fields("passwords").value)
Response.Write ("<br>")
'Move to the next record in the recordset
rstSearch.MoveNext
Loop
'Cierro y vacio los objectos utilizados
rstSearch.Close
cnn.Close
Set rstSearch = Nothing
Set cnn = Nothing
%> |
|
|
|
|
| |
| |
| |
|
|
|
