Programacion orientada a objeto avanzada con xHarbour (VII)

La clase PersistenciaConexion

Esta clase es la encargada de conectar con el motor de datos correspondiente. En este caso conecta con en dataSource para SqlLite de Xailer. Como todo, puede ser mejorada y seguramente reducida para un funcionamiento más optimizado.

CLASS PersistenciaConexion

PROTECTED:
DATA conexion
DATA passwd
DATA dataSource

EXPORTED:
METHOD conectar()
METHOD desconectar()
METHOD getDataSource()
METHOD creaDataSet( cConsulta )
METHOD execute()

END CLASS

METHOD conectar() CLASS PersistenciaConexion

::conexion  := e”.\\Data\\chequelibro.db”
::passwd    := “”

WITH OBJECT ::dataSource := TSQLiteDataSource():New()
:cConnect      := ::conexion
:cPassword     := ::passwd
:lDateAsString := .T.
:lConnected    := .T.
:Create()
END WITH

RETURN self

METHOD desconectar() CLASS PersistenciaConexion
::dataSource:End()
::datasource := nil
RETURN nil

METHOD getDataSource() CLASS PersistenciaConexion
RETURN ::dataSource

METHOD creaDataSet( consulta ) CLASS PersistenciaConexion

local dS

IF Empty( ::dataSource )
::conectar()
END IF

WITH OBJECT dS := TSqlQuery():New()
: oDataSource  := ::dataSource
:cProcess     := “GENERAL”
:nCursorType  := adOpenDynamic
:nLockType    := adLockOptimistic
:cSelect      := consulta
:lOpen        := .T.
:create()
END IF

RETURN dS

METHOD execute( command )

IF Empty( ::dataSource )
::conectar()
END IF

::getDataSource:Execute( command )

::desconectar()

RETURN self

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: