FoxPro/Visual FoxPro - Conexión automática de Vfp9 a MySql

SERVERMYSQL	= "127.0.01"   &&Es el IP de tu maquina local

	USUARIO 	= "root"

	CLAVE   	        = "saaaa"

	BD 			= "TuBaseDatos"

	lcStringCnxLocal = "DRIVER={MySQL ODBC 3.51 Driver};" + ;

	                   "SERVER="+SERVERMYSQL+";" + ;

	                   "UID="+USUARIO+";" + ;

	                   "PWD="+CLAVE+";" + ;

	                   "DATABASE="+BD+";" + ;

	                   "OPTIONS='';"

	SQLSETPROP(0,"DispLogin" , 3 )

	CnxSde = SQLSTRINGCONNECT(lcStringCnxLocal)

IF CnxSde < 0

	 AERROR(laErr)

 	 MESSAGEBOX("No se pudo conectar a mySQL. Error: " + CHR(13) + laErr[2])

 	 CLEAR ALL

 	 CLOSE ALL

 	 CANCEL

 	 QUIT

ENDIF

xcodigoempresa = '01'

SET ENGINEBEHAVIOR 70    &&Sirve para el SUM() de SELECT SQL

        *Se Genera el Script para MYSQL

	lcSQLcommand = ""

	 TEXT TO lcSQLcommand NOSHOW

		SELECT * FROM TuTabla a

		WHERE a.empresa = ?xcodigoempresa;

	ENDTEXT

	cmd = SQLEXEC(CnxSde,lcSQLcommand,"TuCursor")

****************FIN ****************************************

*----------- Variables De Sistema --------------*

PUBLIC CnxSge, Acc_Per, Xniveles

*** Declaracion de los SETS

*******************************

SET BRSTATUS OFF

SET CENTURY  ON

SET EXCLUSIVE OFF

SET ECHO      OFF

SET TALK OFF

*------------------------------*

DO Conx_Sge

Application.Visible=.F.

Acc_Sge=" UGEL Nº03 - ÁREA DE ESCALAFÓN - A.G.A. "

If Activo1(Acc_Sge)

   messagebox('No Puede Habrir Dos Seciones Simultaneamente',16,Ventana)

   Close all

   Quit

else

   Do Form Acc_Sge

   Read Event

   ON ERROR  && Restaura el controlador de errores del sistema.

endif

*---------------------------------------------------------------------------------------------------*

Function Activo1

lparameters WS_LOC

LOCAL lResult

DECLARE INTEGER FindWindow in WIN32API STRING cNULL, STRING cWinName

actventana=FindWindow(0, alltrim(WS_LOC))

IF (actventana # 0)   && Si está activo

   return .t.

ELSE

   return .f.

ENDIF

*---------------------------------------------------------------------------------------------------*

PROCEDURE MiError1

PARAMETER Merror, mess, mess1, mprog, mlineno,linw,colw

Define wind Werror1 from linw,colw to linw+9,colw+90 title '      Mensaje de Error              "Presiona la Tecla [Enter] para Continuar"';

               FONT 'Arial',8

Activ wind Werror1

CLEAR

@0,1 say '  Número de error  : ' 

@1,1 say '  Mensaje de error : ' 

@2,1 say '  Línea de código   : '

@3,1 say '  Programa             :'

@4,1 say '  Número de línea   : ' 

set color to rgb(255,0,0)

@0,21 say LTRIM(STR(merror))

@1,21 say mess

@2,21 say mess1

@3,21 say mprog

@4,21 say LTRIM(STR(mlineno))

set color to rgb(0,0,255)

@6,20 say'Copie  el mensaje de  error de  las Primeras  5 Lineas '

@7,20 say'y comuniquese con Area de Informática de su Institución'

set color to

wait ''

Release wind  Werror1

Procedure Conx_Sge

STORE SQLCONNECT('SIGAE2014','root','pbase2014') TO CnxSge   

IF CnxSge <= 0

   = MESSAGEBOX('NO SE PUEDE HACER LA CONEXIÓN', 16, 'SQL Connect Error')

ELSE

   = SQLEXEC(CnxSge,"SELECT * FROM Acc_Per","Acc_Per")

ENDIF

Procedure Conx_Sge

  SERVERMYSQL = "10.4.1.7"           Si aki le pongo el nombre Localhost si carga el sistema en el mismo servidor

  USUARIO = "root"

  CLAVE = "e2014"

  BD = "SIGAE2014"

lcStringCnxLocal = "DRIVER={MySQL ODBC 5.3 Unicode Driver};" + ;

  "SERVER="+SERVERMYSQL+";" + ;

  "UID="+USUARIO+";" + ;

  "PWD="+CLAVE+";" + ;

  "DATABASE="+BD+";" + ;

  "OPTIONS='';"

  SQLSETPROP(0,"DispLogin" , 3 )

  CnxSge = SQLSTRINGCONNECT(lcStringCnxLocal)

  IF CnxSge<= 0

     AERROR(laErr)

     MESSAGEBOX("No se pudo conectar a mySQL. Error: " + CHR(13) + laErr[2])

     CLEAR ALL

     CLOSE ALL

     CANCEL

     QUIT

  ELSE

	 = SQLEXEC(CnxSge,"SELECT * FROM Acc_Per","Acc_Per")

  ENDIF