Obtengo un GPF
Publicado: Dom May 17, 2015 2:27 am
Hola amigos:
Recién me estoy integrando a este foro, he copiado un ejemplo de la web, compila bien
pero al ejecutarse obtengo un GPF del cual muestro la imagen, cual puede ser el error?
Gracias por el apoyo a este novato
Recién me estoy integrando a este foro, he copiado un ejemplo de la web, compila bien
pero al ejecutarse obtengo un GPF del cual muestro la imagen, cual puede ser el error?
Código: Seleccionar todo
Procedure Main()
SET CENTURY ON
SET DATE BRITISH
SET DECIMALS TO 2
Application:cTitle := "Conectar"
Application:oIcon := "AppLogo.Ico"
Conectar()
Application:Run()
Return
FUNCTION Conectar()
AppData:AddData("Base",TMySQLDataSource():Create())
WITH OBJECT AppData:Base
:cDataBase := "SapWin"
:cHost := "localhost"
:cUser := "root"
:cPassword := "91502127"
:lDisplayErrors := (.F.)
:nTimeOut := 1000
IF ! :Connect()
MsgStop("No se logró la conexión !")
QUIT
ELSE
MsgInfo("Conexión correcta !")
ENDIF
END WITH
RETURN NIL
Gracias por el apoyo a este novato