Como realizar una conexión OLEDB

Set cl = Server.CreateObject("ADODB.Connection")
cl.ConnectionString="DRIVER={Microsoft Access Driver
(*.mdb)}; DBQ=" & server.mappath("tuarchivo.mdb")
cl.Open
set ob_rs=server.CreateObject("ADODB.RECORDSET")


Eso es válido para access.

<%
Dim strCnn
strCnn = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" &
Server.Mappath("BASEDEDATOS.mdb")
Set Conexion = CreateObject("ADODB.Connection")
conexion.Open strCnn
Set rs = Server.CreateObject("ADODB.Recordset")

If Err.Description <> "" then
Response.Write "<B>Error en Base de Datos: " & Err.Description & "</B>"
Else
Response.Write "<B>Conexión realizada con éxito</B>"
End If

Conexion.Close
Set Conexion = Nothing
%>

FF
www.francofigun.com.ar
www.microsofties.com.ar
UIN: 305336919
MSN:

"Sandra y María Claudia" escribió en el mensaje
news:
Mostrar la cita

Hola amigos:
Pues eso, como es que se hace. Yo uso conexiones ODBC pero, al menos que

me
Mostrar la cita

equivoque, más rapidas y seguras con las conexiones OLEDB sin embargo no

se
Mostrar la cita

como realizar dichas conexiones. Yo tengo mis archivos de base de datos
fuera de la raíz del wwwroot (trabajo con IIS).

Muchas gracias

Sandra y María Claudia