Manejar multi conexiones

[Francisco ji]

Saludos estimados.

Quisiera ver si alguien tiene experiencia y como lo manejan el poder manejar en un sistema 3 sgbd, ej. Firebird, SqlSever y Mysql.

Esto sería elegible en el sistema, y de ahi en adelante, el sistema tome la base de datos que se eligío (lógicmanete en cada instalación se eligirá la base de datos a utilizar)

Estoy pensando manejar condiciones tal vez con un CASE cada vez que arme la cadena para solicitar información a la base de datos.

Espero sus comentarios, de antemano, gracias.

[Víctor Hugo Espínola Domínguez]

Hola Francisco

Es posible implementar tu idea, pero tiene un costo: Debes renunciar al uso de Stored procedures y Triggers porque los lenguajes no están estandarizados.

Para la capa de negocios debes usar una clase basada en Cursor adapter. Una dificultad con la que tendrás que lidiar es el control de transacciones pues el comando para iniciarlas tampoco está estandarizado.

Puedes bajar algunos ejemplos de los siguientes enlaces:

http://www.mediafire.com/download/e384t2gmg1d87c0/ClientServerVfpCa.rar

http://www.mediafire.com/download/h784bbor5brkbej/GenForm2.rar

http://www.mediafire.com/download/qfaj6sbj20smxwj/CaCabDetPrg.rar

Saludos,

Víctor.

[Luis Mata]

Un lio, funcionalmente un problema, pero conectarse? no se que problemas encuentras, un combo con una simple tabla con los datos de conexión y listo.

[Jairo Miranda]

Echale un vistazo a:

 

http://ant.onio.org/2013/04/10/modelo-vista-controlador-adaptado-a-la-web.html

 

JM

[MALKASOFT ADPI: http://www.developervfp.blogspot.com/]

Hola es muy sencillo manejar lo que dices yo tengo una herramienta que trabaja sin problema con cualquier motor de base de datos, si necesita asesoramiento envíame un correo o visita mi blog para que tengas una idea de como hacerlo.

Pd.: Descargate mi grilla que tiene multiples funciones como filtrar, multiseleccion, búsqueda, etc del siguiente link http://www.developervfp.blogspot.com/p/gridlibre-v35.html. Ahora también puedes bajarte mi ultima herramienta Busqueda Incremental con un TEXTBOX http://developervfp.blogspot.mx/p/busqueda-incremental-con-un-textbox.html  las herramientas viene con código fuente, ojo no hacer mal uso por favor. 

Saludos; 

Ing. Russvell Jesus Soto Gamarra 

http://developervfp.blogspot.mx/

San Juan del Rio - Queretaro - Mexico 

Nextel.: 52*133750*16

rycjesusrj @ hotmail.com

Framework Multi-conexion version 6.0 (nueva)

http://www.youtube.com/watch?v=PCCZvCaet74

[Alfonso Ramirez Diaz]

No es muy complicado, yo uso varios motores que puedo elegir al momento de instalar mi software el cual se conecta la primera vez y crea toda la estructura en el motor seleccionado.

[Francisco ji]

Gracias, revice tu blog, pero no veo donde descargar el framework que comentas.

---

Date: Wed, 31 Jul 2013 14:30:34 -0700
From: rycj...@gmail.com
To: publice...@googlegroups.com
CC: fiba...@hotmail.com
Subject: [vfp] Re: Manejar multi conexiones

[Francisco ji]

Gracias, revisaré los enlaces.

Luis, la situación no es hacer solo las conexiones, es fácil como comentas, el detalle son las consultas para cada motor de base de datos.

De cualquier forma, reviso lo que me indican, gracias.

---

From: sandrae...@gmail.com
To: publice...@googlegroups.com
Subject: RE: [vfp] Manejar multi conexiones
Date: Wed, 31 Jul 2013 13:10:21 -0500

[Francisco ji]

Hola Alfonso, no creo que sea complicado como comentas, lo sé.
La pregunta practicamente es que me aconsejaran o dieran algun ejemplo de como hacerlo, tengo en mente algunas, epro siempre las diferentes experiencias enrriquecen.

Saludos.

---

Date: Wed, 31 Jul 2013 18:44:24 -0700
From: aerd...@gmail.com

To: publice...@googlegroups.com
CC: fiba...@hotmail.com
Subject: [vfp] Re: Manejar multi conexiones

[elkin dario uribe torres]

En mi caso lo que hice para poder manejar algo parecido a lo que tu expresas sobre un programa ya elaborado y listo fue.

- Modificar en el PRG el tipo de conexion y almacenarla ej.

***Programa conectarservidor

DO case

CASE baseconexion = "VFP"

DO conectarservidorvfp

CASE baseconexion = "MSSQL"

DO conectarsql

CASE baseconexion = "MYSQL"

DO conectarservidorMysql

OTHERWISE 

ENDCASE

- Modificar los formularios para utilizar comandos Sql comunes a los motores (hay que investigar), al momento de armar la instruccion y mandarla al servidor este con base en la variable almacenada sabrá a que motor llamar y mandar la instruccion Ej

LcFactura = SUBSTR(factura,1,5)

set textmerge on TO memvar lcStringSQL noshow

\select * from detfacturas where prefijo =

\\'<<LcFactura>>'

\ and numero = 

\\'<<LcFactura>>'

\ order by NUMCUOTA 

set textmerge to

DO conectarservidor

STORE sqlexec(controlador,lcStringSQL,'detfacturas') TO a

SQLDISCONNECT(0)

En los casos que los comandos difieran un poco hay que armar la instruccion antes de enviarla al servidor, preguntando antes por la variable 'baseconexion' almacenada en el programa principal.

- No utilice procedimientos almacenados, no he podido entenderlos y seria casi imposible utilizarlo en este caso estoy totalmente de acuerdo con lo expresado por Victor Hugo Espínola.

Saludos

Elkin Uribe

[Andrés Oscar Gimbatti]

yo cree funciones que me pasan los comandos al motor de base de datos, teniendo una variable o propiedad con el motor de base de datos que estas usando, dentro de la función metes un case con el comando especifico para cada boton.

Ejemplo para empezar la transaccion

if not comenzartrans()

  dio error

  return

endif

prcedure comenzartrans

do case

 case motor="pos"

  lok = sqlexec(conexion, "BEGIN")

 case motor="my"

  lok = sqlexec(conexion, "comando en mysql")

endcase

if lok < 0

  dio error la consulta

endif

return iif(lok<0,.f.,.t.)

asi tengo para las consultas, crear cursores con la estructura de las tablas vacias, insertar registros, modificar registros, cancelar transaccion, aceptar transaccion, la fecha y hora del motor de base de datos, etc etc

espero te sirva la idea

saludos

[Francisco ji]

Elkin, agradezco tu consejo, presisamente es como tenia pensado esto, distinguir la base de datos seleccionada y en base a este valor crear las consultas.

---

Date: Thu, 1 Aug 2013 08:05:17 -0500
Subject: Re: [vfp] Manejar multi conexiones
From: eduri...@gmail.com
To: publice...@googlegroups.com

[Luis Mata]

Un consulta, la idea que tienes es en las bases de datos solo tener datos? osea no aprovechar los jobs, triguers, procedimientos almacenados, funciones, permisos, validaciones.

y hacerlo todo en el front end? osea toda la codificacion va a ir en el FrontEnd?

 

From: Francisco ji

Sent: Thursday, August 01, 2013 10:06 AM

To: publice...@googlegroups.com

Subject: RE: [vfp] Manejar multi conexiones

 

[Francisco ji]

No Luis, actualmente tengo un sistema que esta en el 90% en Firebird, utilizando triggers, SP, Vistas, generadores, etc.

Este mismo sistema, quisiera tener la opción para manejarlo en SqlServer, MySql, Maria, etc.

Se perfectamente que cada SGDB tiene su forma especifica de manejarlas, es por eso que era la pregunta de como lo manejaban las personas que manejan diferentes bases de datos del mismo sistema.

---

From: lm...@cclf.com.pe
To: publice...@googlegroups.com

Subject: Re: [vfp] Manejar multi conexiones

Date: Thu, 1 Aug 2013 10:08:50 -0500

[Douglas Sánchez]

Yo tengo una clase y segun la necesidad pues se me hizo facil asi:


Lparameters typebackend
SYS(987,.T.)
SET VARCHARMAPPING OFF   
CURSORSETPROP("MapVarChar", .F., 0)   
CURSORSETPROP("MapBinary",  .T., 0)
Local iTipo As Integer
iTipo = typebackend
Do Case
Case iTipo=1
    *This.verificamysql()
    This.openmysql()
Case iTipo=2
    This.verificasqlserver()
    This.opensqlserver()
Case iTipo=3
    This.verificaoracle()
    This.openoracle()
Otherwise
    =Messagebox("Driver de Conexión no Soportado...",0+16,"Advertencia")
    Return .F.
Endcase

Al rato esto te da alguna idea, verificar es si esta instalado el driver odbc de cada uno.

Saludes

Douglas

--
Ing. Douglas Sánchez Guillén

      Consultor Informatico

Claro: 505 88495476

[Francisco ji]

Gracias Douglas, supongo que el mismo esquema se hará para cada consulta que se haga a la base de datos.

Te agradzco el consejo.

---

Date: Thu, 1 Aug 2013 15:25:37 -0600

Subject: Re: [vfp] Manejar multi conexiones

From: dougl...@gmail.com
To: publice...@googlegroups.com

[Víctor Hugo Espínola Domínguez]

Hola Francisco

Si usaras cursor adapter, sólo para la conexión y las transacciones te preocuparías por el origen de datos, en todo lo demás se usa una sola instrucción.

En el load de la clase formulario abm:

With This

If Type( "_Screen.oApp" ) = "O"

If Pemstatus( _Screen.oApp, "AccesMode", 5 )

.AccesMode  = _Screen.oApp.AccesMode

.MyDatabase = _Screen.oApp.MyDatabase

Endif

Endif

If Upper( .AccesMode ) == "DBF"

.oCaMainTable = Createobject( [MiCursorAdapter], "NATIVE", .MyDatabase )

Else

.oCaMainTable = Createobject( [MiCursorAdapter], "ODBC", Filetostr( "Datos\Conexion.cnx" ) )

Endif

.crsAlias  = "crs" + .MainTable

.oCaMainTable.CrearCursor( .MainTable, .crsAlias, .KeyField, .T., .T. )

.nConexion = .oCaMainTable.DataSource

Endwith

Si no usarás dbfs entonces es más simple aún:

With This

.oCaMainTable = Createobject( [MiCursorAdapter], "ODBC", Filetostr( "Datos\Conexion.cnx" ) )

.crsAlias  = "crs" + .MainTable

.oCaMainTable.CrearCursor( .MainTable, .crsAlias, .KeyField, .T., .T. )

.nConexion = .oCaMainTable.DataSource

Endwith

El archivo de texto "Conexion.cnx" contiene el string de conexión, para Sql Server 2005 Express tiene:

Driver={SQL Server};Server=LocalHost\sqlexpress;Database=VheDat;Trusted_Connection=yes;

En el método grabar:

If Upper( .cOrigenDatos ) == "DBF"

Begin Transaction

Else

SQLExec( .nConexion, 'BEGIN TRANSACTION' )

SQLSetprop( .nConexion, 'Transactions', 2 )

Endif

Aquí es donde hay diferencias entre algunos SGBD.

Saludos,

Víctor.

[Francisco ji]

Gracias Victor, el detalle que no manejo cursor adapter, y la aplicación ya la tengo en un 90%.

Te agradezco.

---

Date: Thu, 1 Aug 2013 20:54:10 -0400

Subject: Re: [vfp] Manejar multi conexiones

From: vich...@gmail.com
To: publice...@googlegroups.com

[Víctor Hugo Espínola Domínguez]

Hola Francisco

No es ningún drama que no uses cursor adapter, igual puedes implementar una clase para el manejo de datos y esta clase debe ser el puente entre tus formularios y el SGBD.

Puedes bajar unos ejemplos del siguiente enlace:  http://www.mediafire.com/download/6jkkux4kfs77vci/ClientServerVFP.rar

Fijate en la carpeta "ThreeTierSPT", ahí está la clase "DataTier", creada por Les Pinter y con algunas modificaciones agregadas por mí.

También está incluido el excelente aporte de Walter Ojeda: "SqlDemo"

Saludos,

Víctor.

[Francisco ji]

Victor, gracias, estudiaré la clase, que seguramente me servirá.

---

Date: Fri, 2 Aug 2013 00:23:42 -0400

[Antonio Meza]

Hola Francisco!!

Y como manejas actualmente o con que motor de base de datos tienes tu sistema, ya que comentas que lo tienes en un 90%, te lo pregunto porque veo que no manejas casi nada de lo que te dicen aquí, para poder darte una pequeña opinión mas acertada en base a lo que manejas.

saludos

Antonio Meza

[Francisco ji]

Que tal Antonio, en mi primer correo expuse que es en Firebird.
El detalle es que lo empece a hacer solo para manejar una base de datos, en este caso Firebird, pero ahora quiero tenerlo diponible para varias bases de datos.

Gracias por el interes.

---

Date: Fri, 2 Aug 2013 08:47:57 -0700
From: solv...@gmail.com
To: publice...@googlegroups.com
CC: fiba...@hotmail.com

[Antonio Meza]

Ok, pero que usas para manejar los datos, sqlexec, cursoradaptaer, vistas remotas? y si tienes un ejemplo de como agregas un registro para ver como lo usas.

saludos