La Web del Programador: Comunidad de Programadores
 
    Pregunta:  1682 - COMO CREAR UN DSN
Autor:  MA. LUISA ACOSTA SAN JUAN
¿Cómo creo un dsn para hacer referencia a una base de datos que quiera yo accesar?

Si me diera algún ejemplo en ASP se lo agradecería eternamente.

  Respuesta:  Rafael Gallegos
Qui te esta el ejempo que solicitaste

<%
' http://www.arz2000.es.vg
' Coloca el buffer a true
Response.Buffer = True

' Defina la variable
Dim Password

' El password...
Password = "lawebdelprogramador"

' Comprueba que el password introducido sea igual a la variable Password.
' Si es identica, la variable 'pass' del objeto Session coge el valor.
If Request.Form("pass") = Password Then
Session("pass") = Request.Form("pass")
End If

' Comprueva que la variable 'pass' sea identica a la variable Password.
' Si no es asi, solicita el password
If Session("pass") <> Password Then
' HTML for the log in form
%>
<head>
<title>Invalid Password</title>
</head>

<form action="<%=Request.ServerVariables("URL")%>" method="post">
Password:
<input type="password" name="pass" size=25 maxlength=25>
<br><input type="Submit" value="Submit" name="Submit">
</form>
<%
' Finaliza el script, no mostrando la pagina HTML
Response.End
End If
%>

Pagina HTML...

  Respuesta:  dalp
Las siguientes lineas corresponden al código para que tu realices un query a una tabla:

strQuery="SELECT codigo, [apellido]+´, ´+[nombre] AS Usuario, email, fecharegistro AS Registro, funcion FROM usuario WHERE (((usuario.funcion)=´Membresia´)) ORDER BY " &StrSort

strProvider = "FILEDSN=cyberspace.dsn"

Set rst = Server.CreateObject("ADODB.recordset")
rst.Open strQuery, strProvider

Además el FILEDSN es un archivo que se crea mediante ODBC donde tu le especificas la base de datos que tu va a trabajar, y la ubicación fisica del mismo.

espero que te sirva si tienes alguna pregunta más no te olvides de escribirme a mi correo

  Respuesta:  Xavi
Este es el codigo:

Dim ObjBase
set ObjBase=Server.CreateObject("ADODB.Connection")
ObjBase.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("base de datos.mdb") & ";"

Asi es como se hace referencia a una base de datos Access.

Espero que te sirva.