In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
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?
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
lo más probable es que el problema esté causado por la versión de la DLL de MySql que tengas instalada. Yo te aconsejo cambiar el TMySqlDatasource por un TMariaDBDatasource, y usar las DLL de MariaDB, aunque el servidor sea MySQL. Son compatibles, y el hecho de usar la DLL de MariaDB te permite incluso no tener que pagar por MySQL.
