MODULO IV: Conectarse a un SQL Server

TEMA 1: Comenzando con ADO - ActiveX Data Objects

Definición

ADO en ActiveX Data Objets es un modelo de objetos de acceso a datos que se apoya sobre OLEDB. Permite dirigir los datos que vienen de bases de datos relacionales (SQL Server, Oracle…), o de otras fuentes de datos no relacionales como ficheros de texto, fuentes de datos que no son de Microsoft, etc. Es un medio para acceder uniformemente a todos los tipos de datos. En cierta manera podemos decir que ODBC permite acceder a bases de datos relacionales, mientras que OLEDB permite el acceso a todos los tipos de datos, sean relacionales o no.

Este modelo de objetos se ha introducido como modelo de acceso de datos para IIS. Sus principales características son las siguientes:

Mínimo tráfico en la red Thread Safe (soportando accesos concurrentes o multithread) Número mínimo de capas entre las aplicaciones y los datos. Facilidad de utilización: modelo de objetos automatizado Tiene en cuenta los conocimientos adquiridos por los desarrolladores sobre la otras tecnologías como DAO o RDO

Arquitectura tecnológica

OLEDB es una tecnología que tiene como objetivo resolver ciertas restricciones de ODBC. Esta tecnología autoriza el acceso a todo tipo de datos, permitiendo administrar el aspecto de tener distribuidas las fuentes de datos, y tiene en cuenta las restricciones de la web. Esta tecnología tiene como objetivo reemplazar a la tecnología ODBC. ADO es el modelo de objetos que permite simplificar el acceso a esta tecnología.
Un proveedor OLEDB implementa las interfaces OLEDB. Permite a un usuario OLEDB alcanzar todo tipo de fuentes de datos de una manera uniforme a través de este juego de interfaces documentado. En cierto sentido, un proveedor OLEDB es similar a un driver ODBC que proporciona un mecanismo uniforme de acceso a los datos relacionales. Los proveedores OLEDB no sólo proporcionan un mecanismo uniforme de acceso a los datos relacionales, si no que también a datos no relacionales. Además, los proveedores OLEDB se construyen sobre la base del modelo COM (Component Objet Model) mientras que los drivers ODBC están basados en una especificación de APIs de C.

El modelo de objetos ADO

El esquema siguiente muestra los objetos y las relaciones existentes entre los objetos y el modelo.

Los objetos Connection, Recordset y Command son los objetos más significativos de este modelo. Clásicamente, una aplicación las utiliza como:

La colección Properties proporciona la información sobre las características de los diferentes objetos Connection, Command, Recordset y Field. Cada objeto de Property es accesible a través de la colección Properties de cada uno de estos objetos.

Colección Properties

Aunque ADO es un modelo del tipo jerárquico, los objetos de ADO, excepto Error, Field y Property pueden crearse de forma autónoma, es decir, sin hacer referencia al objeto relacionado. Esto es diferente de los objetos DAO y RDO, que requieren en la mayoría de los casos la creación del objeto Parent (por ejemplo, un objeto DAO.Connection necesita un objeto DAO.Workspace para poder crearse).

ADO es un modelo de objetos que permite una gran flexibilidad al programador. Por consiguiente, hay distintas posibilidades para lograr la misma tarea. Por ejemplo, para ejecutar una consulta, es posible usar el método Execute del objeto Command o bien el del objeto Connection.

En resumen, este es un diagrama que muestra las relaciones entre los diferentes objetos que constituyen ADO:

Ejemplos de ADO

Abrir y cerrar una conexión con una base de datos SQL Server usando el proveedor por defecto que es el proveedor de OLEDB para ODBC

Sub ConnectionExample1()
 Dim cn As ADODB.Connection
 Set cn = New ADODB.Connection
 
 ' Abrir la conexión, especificando el nombre del origen de datos,
 ' id de usuario, y contraseña.
 cn.Open "DSNPubs", "sa", ""
 
 ' Si la conexión está abierta, lo muestra.
 If cn.State = adStateOpen Then
 Debug.Print "Conexión abierta."
 End If
 
 ' Cerrar la conexión.
 cn.Close
 
End Sub

Abrir y cerrar una conexión con una base de datos SQL Server usando el proveedor OLEDB para SQL Server que es el proveedor recomendado

Private Sub ConnectionExemple2()
 Dim cn As New ADODB.Connection

 cn.Provider = "SQLOLEDB"
 cn.Open "Data Source=MySQLServerName;Initial Catalog=pubs;", "sa", ""

 ' Si la conexión está abierta, lo muestra.
 If cn.State = adStateOpen Then
 Debug.Print "Conexión abierta."
 End If

 ' Cerrar la conexión.
 cn.Close
 Set cn = Nothing

End Sub

 Abrir y cerrar un Recordset

 
 Sub RecordsetExample() Dim rs As
 
 New ADODB.Recordset ' Abrir el recordset, especificando la 
 sentencia SQL ' y la cadena
 de conexión. rs.Open "Select * fromtitles","DSN=pubs;UID=sa"
 
 ' Bucle a través del recordset e impresión del primer campo.
 Do While Not rs.EOF
 Debug.Print rs(0)
 rs.MoveNext
 Loop
 
 ' Cerrar el recordset.
 rs.Close
End Sub

 Usar el método Execute del objeto Command para ejecutar una consulta de tipo texto

Sub CommandExample()
 Dim cmd As New ADODB.Command
 Dim rs As New ADODB.Recordset

 ' Establecer el comando conexión usando una cadena de conexión.
 cmd.ActiveConnection = "DSN=pubs;UID=sa"
 ' Establecer el comando texto, y especificar que es
 ' una sentencia SQL.
 cmd.CommandText = "Select * from titles"
 cmd.CommandType = adCmdText

 ' Crear un recordset.
 Set rs = cmd.Execute()
 
 ' Bucle a través del recordset e impresión del primer campo.
 Do While Not rs.EOF
 Debug.Print rs(0)
 rs.MoveNext
 Loop
 
 ' Cerrar el recordset.
 rs.Close

End Sub

 Usar el método Execute del objeto Command para ejecutar un procedimiento de almacenado

Sub ParameterExample() 
    Dim cmd As New ADODB.Command 
    Dim rs As New ADODB.Recordset 
    Dim prm As ADODB.Parameter 

 ' Establecer el comando conexión usando una cadena de conexión.
cmd.ActiveConnection = "DSN=pubs;uid=sa" 

 ' Establecer el comando texto, y especificar que es
 ' una sentencia SQL.
cmd.CommandText = "byroyalty" 
cmd.CommandType = adCmdStoredProc 

' Establecer un nuevo parámetro para el procedimiento guardado.
Set prm = cmd.CreateParameter("Royalty", adInteger, adParamInput, , 50) 
cmd.Parameters.Append prm 

 ' Crear un recordset.
Set rs = cmd.Execute 

 ' Bucle a través del recordset e impresión del primer campo.
Do While Not rs.EOF Debug.Print rs(0) 
        rs.MoveNext 
Loop 

' Cerrar el recordset. 
rs.Close

End Sub
      

Almacenar los resultados de una consulta Access en un fichero Excel

Private Sub Command1_Click()
Dim cn As ADODB.Connection

Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=
     c:\bd1.mdb" cn.Execute "Select * into 
            [Excel8.0];Database=c:\Test1.xls;Hdr=Yes].[Sheet3] From Clients"
    cn.Close
    Set cn = Nothing
End Sub
 
' Explorar la colección Errors.
Sub ErrorExample()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
On Error GoTo AdoError
 
' Abrir la conexión usando un DSN que no existe.
cn.Open "MissingDSN", "sa", ""
 
    Exit Sub

AdoError:
    Dim Errs As ADODB.Errors
    Dim errLoop As Error
Dim strError As String

' Bucle hasta el objeto Error en la
' colección Errors y muestra las propiedades.
Set Errs = cn.Errors
For Each errLoop In Errs
        Debug.Print errLoop.SQLState
        Debug.Print errLoop.NativeError
        Debug.Print errLoop.Description
Next

End Sub

Enumerar los campos (nombre, tipo y valor) de un recordset

 Sub FieldExample()
 Dim rs As ADODB.Recordset
 Dim fld As ADODB.Field

 Set rs =  
 New ADODB.Recordset ' Abrir el recordset, especificando la 
 sentencia SQL ' y la cadena
 de conexión. rs.Open "Select * fromauthors","DSN=pubs;UID=sa"
 
 Debug.Print "Fields in Authors Table:" & vbCr

 ' Bucle hasta el objeto Field en la
 ' Colección Fields de la tabla y muestra las propiedades.
 For Each fld In rs.Fields
 Debug.Print "Name: " & fld.Name & vbCr & _
 "Type: " & fld.Type & vbCr & _
 "Value: " & fld.Value
 Next fld

 ' Cierre del recordset.
 rs.Close

End Sub

Mostrar los valores de ciertas propiedades de una conexión (el curso de la colección de Properties)

Sub PropertyExample() 
    Dim cn As New ADODB.Connection 
Dim cmd As New ADODB.Command 
Dim rs As New ADODB.Recordset 

' Abrir la conexión, especificando el nombre del origen de datos,
' id del usuario, u contraseña.
cn.Open "pubs", "sa" 

' Establecer el comando conexión usando una cadena de conexión.
Set cmd.ActiveConnection = cn 
' Establecer el comando texto, especificando que es una sentencia SQL. 
cmd.CommandText = "Select * from titles" 
cmd.CommandType = adCmdText 

' Crear el recordset. 
Set rs = cmd.Execute() 

' Muestra la propiedad ConnectionTimeout de la conexión. 
Debug.Print cn.Properties("Connect Timeout")

' Muestra la propiedad  CommandTimeout del comando. 
Debug.Print cmd.Properties("Command Time out") 

' Muestra la propiedad  Updatability del recordset. 
Debug.Print rs.Properties("Updatability") 

' Cierra el recordset. 
rs.Close
End Sub

Las cadenas de conexión

Si necesita escribir una cadena de conexión, existe una manera de generarla con el asistente de creación de una conexión de datos.

Se puede usar esta herramienta de creación de conexiones de datos en VB:

• Utilize el menú Ver y seleccione Ventana de la vista Datos
• Cree un Entorno de datos haciendo clic en el botón derecho en la ventana de datos.
• En la ventana Entorno de datos, hacer clic en el botón derecho sobre Connection1 para ver las características de la conexión (el proveedor, DSN, las propiedades específicas).
• Probar la conexión antes de hacer clic en el botón de Aceptar
• Entrar en la ventana de propiedades y seleccionar el objeto Connection1: La propiedad DataSource contiene la cadena de conexión necesaria.

< Programa             Tema2 >