By Daniel A. Calvin

Quick start

Acerca de ...

	Generalidades
	Proyecto
	DACDataAccessHelper

Documentos

DACDataAccessHelperAPI

Links relacionados

DACLogHelper

Links de Interés

	El sitio de Angel "Java" Lopez
	MUG de Argentina

Por donde empiezo?

Recomendación inicial 

Es importante destacar que el paquete incluye una completa aplicación de ejemplo. 
Creemos que la forma más simple de comenzar es ejecutando y leyendo esta aplicación. (DAHQuickStart)

Primer paso

Agregar las referencias necesarias al proyecto:

Segundo paso

Crear una conexión ADODB e inicializarla, por ejemplo:

    Dim SqlConnection As ADODB.Connection
    
    'Obtener una instancia desde el helper
    '(Solo si queremos supervisar transacciones)
    Set SqlConnection = GetSQLConnection()
    On Error GoTo cnnError
    SqlConnection.ConnectionString = MiStringDeConnecion
    SqlConnection.CursorLocation = adUseClient

Tercer paso

Elegir el  método de acceso a datos del helper que mejor se adapte a nuestras necesidades.

Ejemplo:

1. ExecuteNonQuery
   Obtiene los valore de retorno de los parámetros de salida.
   (Elementos de un array o de una Collection)
2. ExecuteReader
   Obtiene el resultado como un conjunto de registros.
   (ADODB.Recordset)
3. ExecuteRowReader
   Obtiene el resultado de una única Row.
   (ADODB.Fields)
4. ExecuteScalar
   Retorna un valor único. Es el valor del primer campo de la primer Row retornada por el comando.
   (Algún tipo base de Visual Basic)
5. GetSQLConnection
   Retorna un objeto ADODB.Connection único, si es la primer vez que se invoca instancia el objeto, si no, retorna la instancia existente.
   Evita declarar conexiones globales o pasarla como parámetro en cada método.
   Permite supervisar el estado de las transacciones.
6. IsTransactionActive
   Retorna verdadero si se ha ejecutado un BeginTrans.

Algunos ejemplos de uso

Obtener un ADODB.Recordset utilizando strores procedures.
(Pasar parámetros desde un array)

    Dim SqlDataReader As ADODB.Recordset
    Set SqlDataReader = ExecuteReader(SqlConnection, _
        adCmdStoredProc, _
        "getProductsByCategory", _
        Array(0, 1))

Ejecutar un store procedure y obtener los parámetros de salida.
(Pasando los parámetros en una VB.Collection)

    'Valor de retorno del SP
    parameters.Add 0, "ReturnValueDelSP"
    'Parámetro de entrada
    parameters.Add 3, "ProductID"
    'Parámetro de salida
    parameters.Add "", "ProductName"
    'Parámetro de salida
    parameters.Add 0#, "UnitPrice"
    'Parámetro de salida
    parameters.Add "", "QtyPerUnit"
    
    affected = ExecuteNonQuery(SqlConnection, adCmdStoredProc, _
        "getProductDetails", parameters)

Cómo continua esto?

...

EN CONSTRUCCIÓN