Propiedades de TMySQLDataSource

[jrcsistemas]

Hola.
Tengo una base DBF con lo parametros de conexion de mi base principal de
MySQL.
Cargo los datos al iniciar el sistema en AppData y quiero usar esos datos en
todos los formularios que abren la base MySQL.
Como asigno las propiedades al objeto creado por TMySQLDataSource.
Lo ideal seria poner en las propiedades del editor las variables PERO NO LO
ACEPTA!
La idea es leer los parametros de conexion una sola vez en todo el sistema.
Que metodo puedo usar?
Gracias
Juan

[Diego Ferreira]

Hola Juan !
Yo hago lo siguiente te explico a ver si te sirve si es tu caso
En mi Ventana Principal Creo mi Data Source y leo los datos de conexion
desde SQLLite
WITH OBJECT ::oMySQL := TMySQLDataSource():New()
:cDataBase := ::oSQLLite_Conexion:DataBase
:cHost := ::oSQLLite_Conexion:Host
:cPassword := ::oSQLLite_Conexion:PassWord
:cUser := ::oSQLLite_Conexion:User
:nPort := ::oSQLLite_Conexion:Port
:nTimeOut := ::oSQLLite_Conexion:TimeOut
:lConnected := .T.
:lDisplayErrors := .T.
:Create()
END
Asigo ni DataSource a un AppData para usarlo en todo el sistema
AppData:AddData( "oMySQL", ::oMySQL )
Si quiero tomar los datos de la conexion lo puedo hacer haci
AppData:oMySQL:cHost
AppData:oMySQL:cUser
Etc
para usar el mismo data source desde otros formularios creo en el
OnInizializate del Formulario el dataset haci asignandole el DataSource al
mismo
WITH OBJECT ::oSQLQ_Monedas := TSQLQuery():New()
:oDataSource := AppData:oMySQL
:cProcess := "GENERAL"
:nLockType := adLockOptimistic
:lOpen := .T.
:cSelect := "SELECT * FROM Monedas WHERE Compania = '" +
AppData:cCompania + "' ORDER BY Valor"
:Create()
END
Y Si ya tienes creado el DataSet desde el IDE solo pasale el objecto a la
propiedad del DataSet asi
::oDataSet_Monedas:oDataSource := AppData:oMySQL
Espero Sirva cualkiercosa pega un grito !
"Juan Castañeda" <jrcsistemas@speedy.com.ar> escribió en el mensaje
news:[email=4926a353@svctag-j7w3v3j....]4926a353@svctag-j7w3v3j....[/email]
> Hola.
> Tengo una base DBF con lo parametros de conexion de mi base principal de
> MySQL.
> Cargo los datos al iniciar el sistema en AppData y quiero usar esos datos
> en todos los formularios que abren la base MySQL.
> Como asigno las propiedades al objeto creado por TMySQLDataSource.
> Lo ideal seria poner en las propiedades del editor las variables PERO NO
> LO ACEPTA!
>
> La idea es leer los parametros de conexion una sola vez en todo el
> sistema.
> Que metodo puedo usar?
>
>
> Gracias
>
> Juan
>

[jrcsistemas]

Gracias Diego
Lo implemento y te cuento
Juan

[jrcsistemas]

Diego.
Me funciona perfecto.
Solo una duda. Solamente con cambiar el estado en lConnected y lOpen me
desconecta del servidor y cierra la tabla y listo? Es que no quiero estar
todo el tiempo conectado sin necesidad, voy a tener varias conecciones
remotas simultaneas. En varios casos me gustaria leer y desconectarme.
Muchas gracias.
Juan

[Diego Ferreira]

Que gusto que te alla funcionado de esa manera (appdatas) se pueden lograr
muchas cosas .Si asi lo hace si lo mandas a desconectar lo hace pero en mi
caso preferiria quedarme conectado para asi ahorarme el tiempo de la
conexion pero si ya sabes que con ese datasourse no vas a hacer mas nada ni
modo cierralo...!
"Juan Castañeda" <jrcsistemas@speedy.com.ar> escribió en el mensaje
news:[email=492a8eef@svctag-j7w3v3j....]492a8eef@svctag-j7w3v3j....[/email]
> Diego.
>
> Me funciona perfecto.
> Solo una duda. Solamente con cambiar el estado en lConnected y lOpen me
> desconecta del servidor y cierra la tabla y listo? Es que no quiero estar
> todo el tiempo conectado sin necesidad, voy a tener varias conecciones
> remotas simultaneas. En varios casos me gustaria leer y desconectarme.
>
> Muchas gracias.
>
> Juan
>