
Para efectuar una conexión debemos crear una base de datos llamada tus_datos.mdb o descargarla desde el boton de descarga de codigos (Access 2000 en archivo comprimido .Zip )
Vamos a utilizar ADO (ActiveX Data Objects), ADO son un conjunto de objetos que nos permiten acceder a la base de datos independientemente del motor de base de datos que usemos, así pues estos ejemplos usan MS Access pero funcionarían igual si el motor de Base de Datos fuese MS SQL Server.
Pasamos a explicar el codigo
Algo muy importante en Asp es la declaración de las variables, puesto que aceleramos nuestros codigos
Dim conexion
Creamos el objeto de conexión con la siguiente lineaSet conexion = Server.CreateObject("ADODB.Connection")
Abrimos la Base de datos indicando el Path exacto donde se encuentra, en este caso la llamamos tus_datos.mdb y esta ubicada en la carpeta llamada tu_carpeta, lo que sería u_carpeta us_datos.mdb
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(" u_carpeta us_datos.mdb"))
Si la conexión se ha realizado con exito mostramos un mensaje, en caso contrario el servidor mostrá un errorResponse.Write("Se ha conseguido conectar Satisfactoriamente a la base de datos.!!")
Algo siempre muy importante es cerrar nuestras conexiones a la base de datos.conexion.Close
set conexion = nothing
Este sería el primer paso para hacer una simple conexión a base de datos access utilizando ADO.
<% 'Codigo ofrecido por Tutores.org %>
- <%
- Dim conexion
- Set conexion = Server.CreateObject("ADODB.Connection")
- conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(" u_carpeta us_datos.mdb"))
- Response.Write("Se ha conseguido conectar Satisfactoriamente a la base de datos.!!")
- conexion.Close
- Set conexion = Nothing
- %>
<a title="Tutores.org - Simple conexión a base de datos access ( ADO )" href="http://www.tutores.org/codigo/1406/" target="_blank">Simple conexión a base de datos access ( ADO )</a>
<!-- Final enlace Tutores.org -->
gracias.
Desde ya muchas Gracias
<html>
<html>
<%
Dim codigo,nombre,apellido,direccion,ciudad,telefono
codigo=request.QueryString("codigo")
nombre=request.QueryString("nombre")
apellido=request.QueryString("apellido")
direccion=request.QueryString("direccion")
ciudad=request.QueryString("ciudad")
telefono=request.QueryString("telefono")
set c = server.CreateObject("ADODB.Connection")
c.open "Provider=Microsoft.Jet.OleDB.4.0;Data source=" & server.MapPath("ASP.mdb")
set r = server.createObject("ADODB.Recordset")
r.addnew
With R
.open "SELECT * FROM USUARIOS" ,c
c.execute "insert into usuarios values ('" & codigo & "','" & nombre & "','" & apellido & "','" & direccion & "','" & ciudad & "','" & telefono & "')"
r.update
END WITH
%>
</html>
No se si me puedan ayudar.
Gracias
espero que este link les sirva.. a mi me ayudo muchisimo el ejemplo
si me pueden ayudar porfa es urgente
gracias