Crear conexión a una BD (Base de Datos)


Para conectar con una Base de Datos, lo más recomendable es usar una conexión DSN, sin embargo si no tenemos acceso al panel de control de nuestro servidor Windows, deberemos conectar directamente con la base de datos que tengamos. En este artículo, explicamos como realizar las diferentes conexiones con diferentes BD o herramientas.

El código es muy sencillo, crea la variable de conexión oConexion, que al llamar al procedimiento AbrirConexion conectará con nuestra Base de Datos, en el ejemplo Access 2000. Si tuviésemos que conectar con otra BD, habría que reemplazar la línea:

oConexion.open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\inetpub\wwwroot\bd\db.accdb;"

Por la conexión con la Base de Datos que quisiésemos crear (en MAYÚSCULAS los datos a introducir):

B.D. (conexión)Código
Access (DSN)oConexion.open "NOMBREDSN"
Access (ODBC)oConexion.open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\DIRECTORIO\DB.MDB;"
Access (OLEDB)oConexion.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\DIRECTORIO\DB.MDB;"
Access 2007 / 20010 (OLEDB)oConexion.open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\DIRECTORIO\DB.ACCDB;"
Excel (DSN)oConexion.open "Dsn=NOMBREDSN"
Excel (OLEDB)oConexion.open "Microsoft.Jet.OLEDB.4.0;Data Source=C:\DIRECTORIO\DB.XLS;Extended Properties="Excel 8.0;HDR=Yes;IMEX=1"
Excel 2007 / 20010 (OLEDB)oConexion.open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\DIRECTORIO\DB.XLSX;Extended Properties="Excel 12.0;HDR=YES";"
SQL Server (OLEDB)oConexion.open "Provider=SQLOLEDB; Data Source=NOMBRESQLSERVER; uid=USUARIO; pwd=CONTRASEÑA; DATABASE=NOMBREDB"
SQL Server (ODBC)oConexion.open "Driver={SQL Server}; Server=NOMBRESERVER; uid=USUARIO; pwd=CONTRASEÑA; Database=NOMBREDB"
SQL Server (DSN)oConexion.open "Dsn=NOMBREDSN; uid=USUARIO; pwd=CONTRASEÑA; DATABASE=NOMBREDB"
ORACLE (ODBC)oConexion.open "Provider=MSDAORA.1; Password=CONTRASEÑA; User ID=USUARIO; Data Source=DATA.WORLD"
ORACLE (DSN)oConexion.open "dsn=NOMBREDSN; uid=USUARIO; pwd=CONTRASEÑA"
MySQLoConexion.open "Server=NOMBRESERVER; Database=NOMBREDB; uid=USUARIO; pwd=CONTRASEÑA;"


Lo ideal en este ejemplo, sería incluir este ejemplo en un include y llamarlo desde las páginas ASP que necesiten conectar con nuestra BD, un ejemplo de utilización sería algo como:

<%@ Language=VBScript %>
<!--#include virtual="/directorio_includes/db.asp"-->
<%

' Abrimos conexión
AbrirConexion()

Dim oRs

' Creamos objeto RecordSet
set oRs = createobject("ADODB.Recordset")

' Seleccionamos los campos de la "Tabla1"
oRs.Open "SELECT * FROM Tabla1", oConexion

' Recorremos todas las filas y pintamos el "Campo1"
Do While NOT oRs.EOF
    response.Write oRs("Campo1") & "<br/>"
    oRs.MoveNext
Loop

' Cerramos el RecordSet y la Conexión de BD
oRs.Close
oConexion.Close

%>


Donde "/directorio_includes/db.asp" sería la URL desde el directorio raíz del servidor donde se encontrase el código de conexión a Base de Datos.



Código:
<%
'Copyright © www.McAnam.com
'http://www.mcanam.com/articulos/ASP.php?id=8

Dim oConexion

Private Sub AbrirConexion()

    Set oConexion = Server.CreateObject ("ADODB.Connection")
    oConexion.open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\inetpub\wwwroot\bd\db.accdb;"
    
End Sub

%>

Links relacionados:
Leer, modificar e insertar datos en Excel con ADODB
Método OPEN de ADODB para un Recordset, cómo usar y tipos de parámetros. Recorrer los datos
Crear origen de datos DSN para conexión ODBC
Funciones de conexión a bases de datos
Conectarse a una Base de Datos MySQL con PHP
Ejecutar sentencias SQL a un array bidimensional con PHP
Arquitectura de software en capas


Para cualquier duda, consulta, sugerencia, opinión, colaboración, etc; no dude en ponerse en contacto con nosotros

Copyright © 2002-2017 [McAnam]. Reservados todos los derechos.
www.mcanam.com