OleDll "DACDataAccessHelper"

DACDataAccessHelper Versión: 0.1.25
Daniel A. Calvin Daniel A. Calvin - Consultor

GUID	Nombre
{00020430-0000-0000-C000-000000000046}	OLE Automation
{2A75196C-D9EB-4129-B803-931327F72D5C}	Microsoft ActiveX Data Objects 2.8 Library
{25486E03-4830-47EB-8CD0-76F7DAE0B0DF}

Índice:

GMUSQLHelper

SQLHelper

SqlHelperCaches

SQLHelperCommand

Module "GMUSQLHelper"

Público:

Propiedades:
Global SQLHelper As DACDataAccessHelper. SQLHelper
Global SqlHelperCaches As New DACDataAccessHelper. SqlHelperCaches

Privado:

Documentación:

Class "SQLHelper"

Encapsula los mecanísmos relacionados al acceso a Datos vía ADO.
SQLHelper es la cara visible de este helper para el desarrollador.
Autor: dcalvin
Versión: 1.0

Público:

Métodos:
Public Function ExecuteNonQuery ( SqlConnection As ADODB. Connection,  commandType As ADODB. CommandTypeEnum,  commandText As String,  parameters ) As Long
Public Function ExecuteReader ( SqlConnection As ADODB. Connection,  commandType As ADODB. CommandTypeEnum,  commandText As String,  Optional parameters ) As ADODB. Recordset
Public Function ExecuteRowReader ( SqlConnection As ADODB. Connection,  commandType As ADODB. CommandTypeEnum,  commandText As String,  Optional parameters ) As ADODB. Fields
Public Function ExecuteScalar ( SqlConnection As ADODB. Connection,  commandType As ADODB. CommandTypeEnum,  commandText As String,  Optional parameters ) As Variant
Public Function GetSQLConnection ( ) As ADODB. Connection
Public Function IsTransactionActive ( ) As Boolean

Privado:

Propiedades:
Private WithEvents mSQLConnection As ADODB. Connection
Private mTransactionActive As Boolean
Métodos:
Private Sub Class_Initialize ( )
Private Sub Class_Terminate ( )
Private Sub mSQLConnection_BeginTransComplete ( ByVal TransactionLevel As Long,  ByVal pError As ADODB. Error,  adStatus As ADODB. EventStatusEnum,  ByVal pConnection As ADODB. Connection )
Private Sub mSQLConnection_CommitTransComplete ( ByVal pError As ADODB. Error,  adStatus As ADODB. EventStatusEnum,  ByVal pConnection As ADODB. Connection )
Private Sub mSQLConnection_RollbackTransComplete ( ByVal pError As ADODB. Error,  adStatus As ADODB. EventStatusEnum,  ByVal pConnection As ADODB. Connection )

Documentación:

Public Function ExecuteNonQuery ( SqlConnection As ADODB. Connection, commandType As ADODB. CommandTypeEnum, commandText As String, parameters ) As Long

Encapsula la invocación de Store Procedures que no retornan filas.
Si el Procedimiento invocado tiene parámetros de salida los mismos se retornan en parametros, junto a los valores de entrada si existieran.

SqlConnection - Conexión ADODB, puede estar abierta o no. Si esta cerrada el helper invocará al metodo Open, en ese caso la conexión volvera con State = adStateOpen.
commandType -
commandText -
parameters - Contiene las referencias a los valores de entrada y salida para la ejecución de commandText y como resultado de la misma.
Puede ser una Collection, un Array, una string que separe parametros por ; o un Int o Long. Siempre debe resrvar la primer posición para el valor de retorn del procedimiento invocado.
Devuelve Long - Indica la cantidad de filas afectadas.

módulo| índice| atrás| arriba

Public Function ExecuteReader ( SqlConnection As ADODB. Connection, commandType As ADODB. CommandTypeEnum, commandText As String, Optional parameters ) As ADODB. Recordset

Encapsula la invocación de Store Procedures para lo obtención un conjunto de registros.
Se obtiene un ADODB.Recordset que contiene el resultado de la ejecución.

SqlConnection - Conexión ADODB, puede estar abierta o no. Si esta cerrada el helper invocará al metodo Open, en ese caso la conexión volvera con State = adStateOpen.
commandType -
commandText -
parameters - Contiene las referencias a los valores de entrada y salida para la ejecución de commandText y como resultado de la misma.
Puede ser una Collection, un Array, una string que separe parametros por ; o un Int o Long. Siempre debe resrvar la primer posición para el valor de retorn del procedimiento invocado.
Devuelve ADODB.Recordset - Conjunto de registros retornados por la ejecución de commandText

módulo| índice| atrás| arriba

Public Function ExecuteRowReader ( SqlConnection As ADODB. Connection, commandType As ADODB. CommandTypeEnum, commandText As String, Optional parameters ) As ADODB. Fields

Encapsula la invocación de Store Procedures para lo obtención un registro único.
Se obtiene una collection ADODB.Fields que contiene el resultado de la ejecución.
Si el commandText ejecutado retorna mas de un registro o fila se genera un eror en tiempo de ejecución

SqlConnection - Conexión ADODB, puede estar abierta o no. Si esta cerrada el helper invocará al metodo Open, en ese caso la conexión volvera con State = adStateOpen.
commandType -
commandText -
parameters - Contiene las referencias a los valores de entrada y salida para la ejecución de commandText y como resultado de la misma.
Puede ser una Collection, un Array, una string que separe parametros por ; o un Int o Long. Siempre debe resrvar la primer posición para el valor de retorn del procedimiento invocado.
Devuelve ADODB.Fields - Colección de Campos que contiene los valores correspondientes a la fila devuelta por la ejecución de commandText.

módulo| índice| atrás| arriba

Public Function ExecuteScalar ( SqlConnection As ADODB. Connection, commandType As ADODB. CommandTypeEnum, commandText As String, Optional parameters ) As Variant

Encapsula la invocación de Store Procedures para lo obtención de un valor único.
El valor retornado es el del primer campo del primer registro obtenido, el resto se descarta.

SqlConnection - Conexión ADODB, puede estar abierta o no. Si esta cerrada el helper invocará al metodo Open, en ese caso la conexión volvera con State = adStateOpen.
commandType -
commandText -
parameters - Contiene las referencias a los valores de entrada y salida para la ejecución de commandText y como resultado de la misma.
Puede ser una Collection, un Array, una string que separe parametros por ; o un Int o Long. Siempre debe resrvar la primer posición para el valor de retorn del procedimiento invocado.
Devuelve Variant - Valor del primer campo del primer registro obtenido por la ejecución del commandText.

módulo| índice| atrás| arriba

Public Function GetSQLConnection ( ) As ADODB. Connection

Retorna una instancia de ADODB.Connection
El objeto retornado informa al Helper y por intermedio del método IsTransactionActive() al consumidor del mismo si hay una transacción activa.

Devuelve ADODB.Connection - Una Instancia nueva o existente de un ADODB.Connection

módulo| índice| atrás| arriba

Public Function IsTransactionActive ( ) As Boolean

Informa si hay una transación activa.
Si no se ha obtenido una referencia a la conexión mediante el método GetSQLConnection() se producirá un error en tiempo de ejecución.

Devuelve Boolean - Verdadero si se ha hecho un BeginTransaction y
no se ha finalizado, ya sea mediante Conmit o Rollback

módulo| índice| atrás| arriba

Class "SqlHelperCaches"

Encapsula la lógica para el cache de parámetros de Procedimientos almacenados
Autor: dcalvin
Versión: 1.0

Público:

Métodos:
Public Sub CacheParameterSet ( sqlConnectionString As String,  spName As String,  spParameters As ADODB. parameters )
Public Function GetAndCacheParameterSet ( SqlConnection As ADODB. Connection,  spName As String ) As ADODB. parameters
Public Function GetCacheParameterSet ( sqlConnectionString As String,  spName As String ) As ADODB. parameters
Public Function GetParameterSet ( SqlConnection As ADODB. Connection,  spName As String ) As ADODB. parameters

Privado:

Propiedades:
Private parametersCache As Collection
Métodos:
Private Sub Class_Initialize ( )
Private Sub Class_Terminate ( )

Documentación:

Public Sub CacheParameterSet ( sqlConnectionString As String, spName As String, spParameters As ADODB. parameters )

Agrega la colección de parámetors al cache

sqlConnectionString - Cadena de conexion
spName - Nombre del procedimiento almacenado
spParameters - Colección de parámetros

módulo| índice| atrás| arriba

Public Function GetAndCacheParameterSet ( SqlConnection As ADODB. Connection, spName As String ) As ADODB. parameters

Obtiene los parámetros y guarda en la cache, de ser necesario, los parámetros de un procedimiento almacenado.

SqlConnection -
spName - Nombre del procedimiento almacenado
Devuelve ADODB.parameters - Colección de parámetros

módulo| índice| atrás| arriba

Public Function GetCacheParameterSet ( sqlConnectionString As String, spName As String ) As ADODB. parameters

Obtiene los parámetros del procedimiento almacenado desde la collection de cache.

sqlConnectionString - Cadena de conexion
spName - Nombre del procedimiento almacenado
Devuelve ADODB.parameters - Colección de parámetros

módulo| índice| atrás| arriba

Public Function GetParameterSet ( SqlConnection As ADODB. Connection, spName As String ) As ADODB. parameters

Obtiene los parámetros del procedimiento almacenado desde el proveedor OLEDB.

SqlConnection -
spName - Nombre del procedimiento almacenado
Devuelve ADODB.parameters - Colección de parámetros

módulo| índice| atrás| arriba

Class "SQLHelperCommand"

Encapsula la lógica para el pasaje de valores entre la colección de parámetros del procedimiento almacenado y los parametros de invocación.
Autor: dcalvin
Versión: 1.0

Público:

Métodos:
Public Function AssignParameterValues ( ByRef SqlParameters As ADODB. parameters,  Optional parameterValues As Variant )
Public Function GettingParameterValues ( ByRef SqlParameters As ADODB. parameters,  Optional parameterValues As Variant )
Public Function PrepareCommand ( ByRef SqlCommand As ADODB. Command,  SqlConnection As ADODB. Connection,  commandType As ADODB. CommandTypeEnum,  commandText As String,  ByRef SqlParameters As ADODB. parameters )

Privado:

Propiedades:
Private WithEvents cnn As ADODB. Connection
Private cursorLocation As ADODB. CursorLocationEnum
Private mustCloseConnection As Boolean
Métodos:
Private Sub Class_Terminate ( )
Private Sub cnn_ConnectComplete ( ByVal pError As ADODB. Error, adStatus As ADODB. EventStatusEnum, ByVal pConnection As ADODB. Connection )

Documentación:

Public Function AssignParameterValues ( ByRef SqlParameters As ADODB. parameters, Optional parameterValues As Variant )

Asigna los valores de invocación a los ADODB.parameters correspondientes

SqlParameters - Colección de parámetros del procedimiento almacenado
parameterValues - Parámetros de invocación
Devuelve Variant -

módulo| índice| atrás| arriba

Public Function GettingParameterValues ( ByRef SqlParameters As ADODB. parameters, Optional parameterValues As Variant )

Asigna los valores de los ADODB.parameters a los parámetros de invocación.
Se utiliza para recuperar los parámetros de salida de los procedimmientos almacenados.

SqlParameters - Colección de parámetros del procedimiento almacenado
parameterValues - Parámetros de invocación
Devuelve Variant -

módulo| índice| atrás| arriba

Public Function PrepareCommand ( ByRef SqlCommand As ADODB. Command, SqlConnection As ADODB. Connection, commandType As ADODB. CommandTypeEnum, commandText As String, ByRef SqlParameters As ADODB. parameters )

Inicializa las propiedades correctas del objeto ADODB.Command para su posterior ejecución

SqlCommand - Objeto a inicializar
SqlConnection -
commandType -
commandText -
SqlParameters -
Devuelve Variant -

módulo| índice| atrás| arriba

Build on Domingo, 26 de Junio de 2005 by Daniel A. Calvin