Xailer & OZ Software

Agradecería que alguien me ayudara, porque estoy un poco encallado
configurando el servidor mysql para que accedan el resto de usuarios de mi
red interna.
Utilizo mi ordenador de desarrollo como servidor mysql, y tengo instalado
WampServer
En MySQL he configurado el usuario root como accesibles desde todos los
servidores %
He añadido una excepción a mi Firewal para que acepte cualquier petición TCP
del puerto 3306 dentro de mi red local
En tiempo de diseño, puedo abrir la conexión y ver tablas y registros.
Cuando ejecuto, no logra crearse el formulario.
Subsistema: BASE
Código de error: 1066
Estado: .F.
Descripción: Argument error
Operación: conditional
Argumentos: [ 1] = Tipo: U Valor: NIL
Fichero:
Código error SO: 0
Pila de llamadas:
TUSUARIOS:CREATEFORM (3)
TUSUARIOS:NEW (36)
(b)TINICIO:CREATEFORM (44)
TMENUITEM:ONCLICK (0)
TMENU:DOACTION (231)
TMENU:DOACTION (236)
TINICIO:WMCOMMAND (890)
RUNFORM (0)
TAPPLICATION:RUN (246)
MAIN (25)
Gracias
Karl Svensson

Karl.
Te comento mi experiencia. Yo manejo MySQL a nivel inicial, pero no tengo
ningun problema.
Yo tengo en una pequeña base DBF la configuracion del server, IP, usuario,
password, nombre de la base. Tambien podrias cargarlo en un .INI
Al iniciar el sistema leo esos datos, los guardo en AppData y los cargo en
WITH OBJECT ::oBasedeDatos := TMySQLDataSource():New()
:cDataBase := AppData:cDataBase
:cHost := AppData:cHost
:cPassword := AppData:cPassWord
:cUser := AppData:cUser
:nPort := 3306
:nTimeOut := 1000
:lConnected := .F. // para no tener abierta siempre la conexion
:lDisplayErrors := .T.
:Create()
END
luego la abro y cierro cuando quiero con ::oBasedeDatos:lConnected
Lo he probado local, en red local , sobre internet, y funciona perfecto.
Juan Castañeda

Gracias Juan, tu código me servirá. Intuyo que tengo un problema de
configuración del sql, o los puertos de mi equipo.
A ver si algun compañero me da alguna luz más.
Karl
"Juan Castañeda" <jrcsistemas@speedy.com.ar> escribió en el mensaje
news:4ad5b5ad$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Karl.
> Te comento mi experiencia. Yo manejo MySQL a nivel inicial, pero no tengo
> ningun problema.
> Yo tengo en una pequeña base DBF la configuracion del server, IP, usuario,
> password, nombre de la base. Tambien podrias cargarlo en un .INI
> Al iniciar el sistema leo esos datos, los guardo en AppData y los cargo en
> WITH OBJECT ::oBasedeDatos := TMySQLDataSource():New()
> :cDataBase := AppData:cDataBase
> :cHost := AppData:cHost
> :cPassword := AppData:cPassWord
> :cUser := AppData:cUser
> :nPort := 3306
> :nTimeOut := 1000
> :lConnected := .F. // para no tener abierta siempre la conexion
> :lDisplayErrors := .T.
> :Create()
> END
>
> luego la abro y cierro cuando quiero con ::oBasedeDatos:lConnected
> Lo he probado local, en red local , sobre internet, y funciona perfecto.
>
> Juan Castañeda
>
>
>

Karl,
Generalmente es un problema de puertos. Comprueba que tienes abierto el
puerto 3306 en el equipo servidor.
Saludos
Jose Alfonso Suarez Moreno
Karl Svensson escribió:
> Gracias Juan, tu código me servirá. Intuyo que tengo un problema de
> configuración del sql, o los puertos de mi equipo.
> A ver si algun compañero me da alguna luz más.
> Karl
>
> "Juan Castañeda" <jrcsistemas@speedy.com.ar> escribió en el mensaje
> news:4ad5b5ad$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Karl.
>> Te comento mi experiencia. Yo manejo MySQL a nivel inicial, pero no tengo
>> ningun problema.
>> Yo tengo en una pequeña base DBF la configuracion del server, IP, usuario,
>> password, nombre de la base. Tambien podrias cargarlo en un .INI
>> Al iniciar el sistema leo esos datos, los guardo en AppData y los cargo en
>> WITH OBJECT ::oBasedeDatos := TMySQLDataSource():New()
>> :cDataBase := AppData:cDataBase
>> :cHost := AppData:cHost
>> :cPassword := AppData:cPassWord
>> :cUser := AppData:cUser
>> :nPort := 3306
>> :nTimeOut := 1000
>> :lConnected := .F. // para no tener abierta siempre la conexion
>> :lDisplayErrors := .T.
>> :Create()
>> END
>>
>> luego la abro y cierro cuando quiero con ::oBasedeDatos:lConnected
>> Lo he probado local, en red local , sobre internet, y funciona perfecto.
>>
>> Juan Castañeda
>>
>>
>>
>
>

Karl,
el problema está en otra parte.
> Pila de llamadas:
> TUSUARIOS:CREATEFORM (3)
> TUSUARIOS:NEW (36)
Mira el método New() en el XFM y comprueba si se está llamando a
CreateForm() así­:
::CreateForm( .T. )
Si no recuerdo mal, es un error que apareció al recompilar un proyecto de
la 1.9 con la 2 beta.
Saludos,
José Lalí­n

Gracias José, tenías razón. Al utilizar la clase TFormFolder hacía la
llamada sin el parámetro.
Todo lo demás ya estaba bien configurado y ha funcionado a la primera!
Karl
"José Lalín" <dezac_quitaesto_@corevia.com> escribió en el mensaje
news:4ad5bf39$[email=2@svctag-j7w3v3j....]2@svctag-j7w3v3j....[/email]
Karl,
el problema está en otra parte.
> Pila de llamadas:
> TUSUARIOS:CREATEFORM (3)
> TUSUARIOS:NEW (36)
Mira el método New() en el XFM y comprueba si se está llamando a
CreateForm() así:
::CreateForm( .T. )
Si no recuerdo mal, es un error que apareció al recompilar un proyecto de
la 1.9 con la 2 beta.
Saludos,
José Lalín