Aviso que el servidor de SQL esta caído

[AIDA]

Hola feliz año 2022
Hola Antonio
Aviso que el servidor de SQL esta caído

[Antonio Linares]

Querida Aida,

gracias por el aviso

saludos

[AIDA]

Querida Aida,

gracias por el aviso

saludos

Hola

aun sigue sin funcionar

[Antonio Linares]

Querida Aida,

De momento está de baja y seguirá de baja por un tiempo

Estamos dándole vueltas a reorganizarlo de otra forma

Te pido disculpas por las molestias. Por lo que se ha comentado puedes conseguir un año gratuito en los servers de Amazon

[AIDA]

No tienes que disculparte yo soy la latosa

ya empece a dar lata

a si tengo la conexión al servidor que ya no funciona como me dijiste

Code: Select all | Expand

CONNECT oServer HOST "54.37.60.32" ;
                      USER "aida" ;
                      PASSWORD "fivetech";
                      PORT 3306 ;
                      FLAGS 0;
                      DATABASE "aida"

se conectaba muy bien

ahora me di de alta en otro servidor SQL de la misma manera

Code: Select all | Expand

CONNECT oServer HOST "sql5.freesqldatabase.com" ; 
                      USER "aida" ;
                      PASSWORD "chuchis123";
                      PORT 3306 ;
                      FLAGS 0;
                      DATABASE "aida"

pero no se conecta en ningun momento
con FiveDbu y el Navicat me conecto perfectamente
por que sera que desde el código que no modifique y que antes si funcionaba y ahora con un servidor diferente ya no funciona.

Gracias por tu ayuda
me encanto saber de ti

Saluditos

[Antonio Linares]

ya está solucionado

Te envié las instrucciones por facebook

una vez lo pruebes desde Heidi necesito que me digas que IP ó rango de IPs tenemos que autorizar

[AIDA]

salio este ip 189.217.3.201

[Antonio Linares]

ok, vuelve a intentar acceder

[AIDA]

Listo ya funciona

Muchas grax

con barba te ves muy diferente

Que este año te sea de super excito y muchas carreras de motos ganadas

ahora a trabajar duro este año

GRACIAS!

Saluditos

[AIDA]

ya guarda los datos en el servidor
pero después de guardarlos el programa se congela y después de un rato se cierra



a si lo tengo desde siempre antes no se atoraba

Code: Select all | Expand

      TRY
                      CONNECT oServer HOST "xxxxxx" ;
                      USER "xxxxxx_" ;
                      PASSWORD "*******";
                      PORT 3306 ;
                      FLAGS 0;
                      DATABASE "xxxxx_"


irNueva2:=  rNueva0
oQry := TDolphinQry():New( "SELECT * FROM materiales order by serialpc" )
oQry:gotop()

if  oQry:Seek( irNueva2,"serialpc" )=="0"

elseif oQry:cancelar=AllTrim("1")



 ? "SE TERMINARA EL PLAZO DE PRUEBA ADQUIERA SU LICENCIA"

*Registrame()
elseif oQry:cancelar="2"

? "SE TERMINO EL PLAZO DE PRUEBA ADIOS."

quit

endif

irNueva2:=  rNueva0 
oQry := TDolphinQry():New( "SELECT * FROM materiales order by serialpc" )
oQry:gotop()

if  oQry:Seek( rNueva0,"serialpc" )== 0

 aCampos :=    {'windows','fecha','hora','wusuario','serialpc','usuario', 'serial','laip','laipp','nusuario','ippublica','dias','intentos'}
 aVariables := {WinT,      tfecha, thora ,wuser     ,rNueva0   ,rNueva1  , rNueva2 ,cIp   ,cIpx   ,nuser     ,ippub      ,cTequedan,colorix}

 oServer:Insert( 'materiales', aCampos, aVariables )

else

endif

oQry = oServer:Query( "SELECT * FROM materiales ORDER BY serialpc " )
oData = oQry
oQry:SetOrder("serialpc")

if  oQry:Seek( rNueva0,"serialpc" )== 0
else

if empty(rNueva2)
  rNueva2:=""
    else
  endif
                    oQry:usuario=rNueva1
                    oQry:serial=AllTrim(rNueva2)
                    *oQry:nusuario=nuser
                    oQry:FieldPut("nusuario",nuser)
                    oQry:dias=AllTrim(Str(cTequedan))
                    *oQry:FieldPut("dias",AllTrim(Str(cTequedan)))
                    oQry:FieldPut("intentos",colorix)
                    oQry:FieldPut("final",finale)
                    oQry:FieldPut("version","1.1bJ")
                    oQry:Save()

endif

CATCH oErr
   lConectaNovamente := .t.
  
   end

if lConectaNovamente
MsgRun("No se puede conectar revice su coneccion o barrera de fuego...")
endif

RETURN .T.
 

[Antonio Linares]

Prueba a acceder usando Heidi y verifica que esten la tabla y los datos, etc

[Rick Lipkin]

Aida

Kinda a long shot answer ... many cloud applications, Att.net, Google.cm .. consider certain apps as "less secure" and you have to generate a special secure password before your application will connect ..

https://support.google.com/accounts/ans ... 0255?hl=en

Just my 2 cents worth ..

Rick Lipkin

[AIDA]

Prueba a acceder usando Heidi y verifica que esten la tabla y los datos, etc

Si los guarda con en el Navicat puedo ver la tabla con los datos

pero después que mi programita guarda los datos se queda congelado

subir fotos a google

[AIDA]

Ya encontré lo que atora al programa es esto que uso para sacar la IP

ippub:= PublicIP()

si quito el PublicIP() ya no se atora

por que pasara esto y como remediarlo?

[AIDA]

Ya encontré lo que atora al programa es esto que uso para sacar la IP

ippub:= PublicIP()

si quito el PublicIP() ya no se atora

por que pasara esto y como remediarlo?

Code: Select all | Expand

//**************************************************************
Function PublicIP()
Local cBuffer, cRequest, cResponse, nBytes, pSocket

 INetInit()
  pSocket := INetConnect( "checkip.dyndns.org", 80 )

  IF INetErrorCode( pSocket ) <> 0
   ? "Socket error:", INetErrorDesc( pSocket )
   INetCleanUp()
   QUIT
  ENDIF

  nBytes   := INetSend( pSocket, "GET / HTTP/1.1" + CRLF + "Host: checkip.dyndns.org" + CRLF + "User-Agent: HTTP-Test-Program" + CRLF + CRLF )
  cBuffer  := Space(512)
  cResponse:= ""

  WHILE ( nBytes > 0 )
   nBytes    := INetRecv( pSocket, @cBuffer )
   cResponse += Left( cBuffer, nBytes )
   cBuffer   := Space(512)
  ENDDO

  INetClose( pSocket )
 INetCleanUp()

Return( allTrim( substr( substr( cResponse, rat( "<body>", cResponse ) + 26 ), 1, At( "<", substr( cResponse, rat( "<body>", cResponse ) + 26 ) ) - 1 ) ) )