PC Toledo

... SQLMIX" )
LOCAL nCon := rddInfo( RDDI_CONNECT, { "POSTGRESQL","host=hostremoto.net port=1234 dbname=tabelas user=joao sslmode=require password=ABCDEXYZ"})
IF nCon == 0
hwg_msginfo("Não conectou no Postgres: " + Str(nCon) )
RDDSETDEFAULT( cRdd )
lRet := .F.
ENDIF
Return lRet

Postando ...

... segunda posição do array
nCon := rddInfo( RDDI_CONNECT, { "POSTGRESQL", "host=111.111.111.111 port=0000 dbname=database user=xyz sslmode=require password=abcde" } )

IF nCon == 0
hwg_MsgInfo("Não conectou no Postgres: " + Str(nCon) )
ELSE
hwg_MsgInfo("Conectou no Postgres: " + Str(nCon) )
ENDIF ...

... só um exemplo para testes mínimos, não vou encher de dados.


itamar@itamar-I7:~/dev/hb32$ psql -h abc.abc.abc.abc -p xyz -U itamar -d database
Password for user itamar:
psql (18.4 (Ubuntu 18.4-0ubuntu0.26.04.1), server 17.10 (Ubuntu 17.10-0ubuntu0.25.10.1))
SSL connection (protocol: TLSv1.3 ...

... lAdd := .F.

rddSetDefault( "SQLMIX" )
nConnection := rddInfo( RDDI_CONNECT, { "ODBC", "Server=127.0.0.1;Driver={MariaDB};dsn=;User=itamar;password=@itamar;database=test;" } )

IF nConnection == 0
hwg_msgstop("Unable connect to server" +hb_eol() + rddInfo( RDDI_ERRORNO ) + hb_eol() + rddInfo ...

... for root@localhost |
+----------------------------------------------------------------------------------------------------------------------------------------+
| GRANT ALL PRIVILEGES ON *.* TO 'root'@'localhost' IDENTIFIED BY PASSWORD '*23AE809DDACAF96AF0FD78ED04B6A265E05AA257' WITH GRANT OPTION |

... SafeRefresh( oEdSenhaNew )
SafeSetText( oEdSenhaConf, "" ) ; SafeRefresh( oEdSenhaConf )

SafeEnable( oEdUsuario )

ForceGetPassword( oEdSenhaOld, "*", 10 )
ForceGetPassword( oEdSenhaNew, "*", 10 )
ForceGetPassword( oEdSenhaConf, "*", 10 )

IF cModo == "novo"

g_cUsuOrig ...

... 1. Conecta no banco padrão postgres */
conn := PQconnectdb( ;
"dbname='postgres' " + ;
"host='localhost' " + ;
"user='postgres' " + ;
"password='postgres' " + ;
"port=5432" )

IF PQstatus( conn ) != CONNECTION_OK
? "Connection error:"
? PQerrorMessage( conn )
RETURN
ENDIF

/* 2 ...

... 1
'SMTP Server username
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "you@your-email-here.com"
'SMTP Server password
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPasswordHere"
'Out going SMTP server
.Fields("http://schemas ...

... require "hbmysql"

#include "inkey.ch"

PROCEDURE Main( ... )

LOCAL cTok
LOCAL cHostName := "localhost"
LOCAL cUser := "root"
LOCAL cPassWord := ""
LOCAL cDataBase, cTable, cFile
LOCAL aDbfStruct, i
LOCAL lCreateTable := .F.
LOCAL oServer, oTable, oRecord

Set( _SET_DATEFORMAT ...

... TOOLTIP win_ansitoOem("Digite aqui o número da empresa (1 a 9) pra usar no SiCCA v3.7") // harbour 3.4 6/1/21w
// ONCHANGE DoMethod("Login","PassWord","SetFocus")
// ONENTER { || fUSUA ( LOGIN.UserName.Value ) , MsgExclamation("usuário inválido") } // Nil
// ONENTER iif (( LOGIN.UserName.Value ...

... prg.
Adicionar o nome -> name="cEmail" e name="cSenha"

<input type="email" id="email" name="cEmail" placeholder="Email" required>
<input type="password" id="password" name="cSenha" placeholder="Senha" required>

É como se fosse o GET ai do PRG GET cEMAIL e GET cSENHA
Agora vamos criar o arquivo ...

... br/oauth/token" -X POST
-H "content-type: multipart/form-data; boundary=----WebKitFormBoundary7MA4YWxkTrZu0gW"
-F "username=USER123"
-F "password=USER@123"

Fazer download de um arquivo pelo protocolo FTP

curl -u FTP_USERNAME:FTP_PASSWORD ftp://ftp.example.com/file.tar.gz

Para fazer ...

... local cSQL;


cSQL := "UPDATE password SET "
cSQL += "password.CARGO = '" + oBrowse1:aArray[oBrowse1:nCurrent, 4] +"', "
cSQL += "password.SITUACAO = '" + oBrowse1:aArray[oBrowse1 ...

... If Upper(Right(cCert, 4)) # [.PFX]
MsgExclamation([Não é um Arquivo PFX.], [Erro])
Return (.F.)
Endif

If GetProperty([f_Certifica], [Text_Password], [Value]) == NIL .OR. Empty(GetProperty([f_Certifica], [Text_Password], [Value]))
MsgExclamation([Erro assinatura: Falta senha do arquivo PFX ...

... TOleAuto():New( "ADODB.Connection" )
oConn:Open( "Provider=SQLOLEDB;Data Source=SERVER_NAME;Initial Catalog=DATABASE_NAME;User ID=USERNAME;Password=PASSWORD;" )

IF oConn:State <> 1
MsgStop( "Falha ao conectar ao banco de dados", "Erro de Conexão" )
RETURN NIL
ENDIF
```

### 2. Verifique a ...