Asunto: ¿Cómo conectar y mostrar registros mediante ODBC y asp?
¿Cómo puedo conectarme a una base de datos utilizando un origen de datos ODBC y asp? Me gustaría conectarme a una base de datos Microsoft SQL Server mediante ODBC, accediendo con ASP (vía web). Tengo instalado IIS (Internet Information Server) 6.0. Utilizo SQL Server Desktop 2000
Publicado:
Vie Sep 22, 2006 12:37 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: ¿Cómo conectar y mostrar registros mediante ODBC y asp?
Anuncios
asp escribió:
¿Cómo puedo conectarme a una base de datos utilizando un origen de datos ODBC y asp? Me gustaría conectarme a una base de datos Microsoft SQL Server mediante ODBC, accediendo con ASP (vía web). Tengo instalado IIS (Internet Information Server) 6.0. Utilizo SQL Server Desktop 2000
En primer lugar tendrás que dar de alta el origen de datos correspondiente a SQL Server. Después deberás crear un fichero .asp (con el contenido que te indicamos a continuación) y ubicarlo en la carpeta de tu sitio web.
A continuación te indicamos el contenido de un fichero asp de ejemplo que accede a un origen de datos llamado "prueba_conexion" y muestra el valor de dos campos (campo1 y campo2) de todos los registros de la tabla "nombre_tabla":
Código:
<%
Dim conexion, rsTabla
'creamos un objeto de tipo "connection" para la
'conexión con el origen de datos ODBC
set conexion = Server.CreateObject("ADODB.Connection")
'nos conectamos al origen de datos ODBC "prueba_conexion"
conexion.Open "prueba_conexion","usuariobd","contraseña_usuario"
'creamos un objeto de tipo "recordset" (tabla)
Set rsTabla = Server.CreateObject("ADODB.Recordset")
consultaSQL ="SELECT * from nombre_tabla"
'asignamos al objeto "rsTabla" el resultado de la ejecución de
'la consulta SQL
rsTabla.Open consultaSQL, conexion, 1
'Recorremos todos los registros del objeto recordsetL y mostramos su valor
while not rstabla.eof then
valorCampo1 = rstabla("campo1")
valorCampo2 = rstabla("campo2")
Response.Write "Campo 1:" & valorCampo1 & "<br>"
Response.Write "Campo 2:" & valorCampo2 & "<br>" & "<br>" & "<br>"
rstabla.MoveNext
wend
'cerramos el recordset y la conexión
rsTabla.close
conexion.close
'liberamos los objetos
Set conexion = Nothing
Set rsTabla = Nothing
%>
Este ejemplo puede servir practicamente para cualquier motor de base de datos, sólo es necesario tener instalado el driver ODBC correspondiente al motor que queramos utilizar (Oracle, MySQL SQL Server, Access, DB2, Firebix, Interbase, etc).
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A