
No inicia aplicación de fivewin
Publicado por Luis Adolfo (1 intervención) el 22/12/2013 02:18:19
Hola a todos, tengo el siguiente un programa que compilado con Verce funciona perfectamente, ahora bien al querer utilizar xedit 3.0 lo enlaza perfectamente, carga el programa en memoria pero no me muestra nada. Y tengo que quitarlo de la misma usando el administrador de tareas.
Ya estoy utilizando xedit con otros programas y no tengo problemas (hechos para dbf)
Este en particular estoy utilizando la librería Mysql de Willian Wormar, y quiero poder utilizar el utilitario xEdit, pero me encuento con este inconveniente. Si alguien tiene alguna sugerencia.
Muchas gracias
Luis
Pd:
Hasta "hola" el mensaje se muestra el "hola1" queda el programa colgado sin mostrarlo
oMySQL:= TMySQLServer():New( "localhost", "root", "", 3306 )
If oMySQL:NetErr()
MsgMySQLError( oMySQL, "Error conectando con el servidor " + "localhost" + "!" )
oMySQL:End()
Return .F.
EndIf
oDBase := oMySQL:SelectDB( "gomadb" )
If oMySQL:NetErr()
MsgMySQLError( oMySQL, "Error abriendo base de datos " + "gomadb" + "!" )
oMySQL:End()
Return .F.
EndIf
? "hola"
SET 3DLOOK ON // Se activa vista en 3¦ Dimensi¢n.
DEFINE FONT oFont NAME "MS SANS SERIF" SIZE 0,-10
define icon surge resource "icon_1"
? "hola1"
DEFINE WINDOW oVentPrinc FROM 1, 1 TO 22, 75;
Ya estoy utilizando xedit con otros programas y no tengo problemas (hechos para dbf)
Este en particular estoy utilizando la librería Mysql de Willian Wormar, y quiero poder utilizar el utilitario xEdit, pero me encuento con este inconveniente. Si alguien tiene alguna sugerencia.
Muchas gracias
Luis
Pd:
Hasta "hola" el mensaje se muestra el "hola1" queda el programa colgado sin mostrarlo
oMySQL:= TMySQLServer():New( "localhost", "root", "", 3306 )
If oMySQL:NetErr()
MsgMySQLError( oMySQL, "Error conectando con el servidor " + "localhost" + "!" )
oMySQL:End()
Return .F.
EndIf
oDBase := oMySQL:SelectDB( "gomadb" )
If oMySQL:NetErr()
MsgMySQLError( oMySQL, "Error abriendo base de datos " + "gomadb" + "!" )
oMySQL:End()
Return .F.
EndIf
? "hola"
SET 3DLOOK ON // Se activa vista en 3¦ Dimensi¢n.
DEFINE FONT oFont NAME "MS SANS SERIF" SIZE 0,-10
define icon surge resource "icon_1"
? "hola1"
DEFINE WINDOW oVentPrinc FROM 1, 1 TO 22, 75;
Valora esta pregunta


0