PC Toledo

... vez que testei, usei esta conexão

FUNCTION ADSConnection( cPath )

LOCAL oConexao := win_OleCreateObject( "ADODB.Connection" )

oConexao:ConnectionString := "Provider=Advantage OLE DB Provider;" + ;
"Mode=Share Deny None;" + ;
"Show Deleted Records in DBF Tables with Advantage=False ...

... LOCAL cnConnection

Default( @cPort, '5432')

If InternetCheca()

cnConnection := CreateObject( "ADODB.Connection" )

cnConnection:ConnectionString := "Driver={PostgreSQL ODBC Driver(UNICODE)}"+;
";Server=" + cServer +;
";Port=" + cPort+;
";Database=" + cDatabase +;
";Uid=" + cUser ...

... teste sem a classe, se funcionar sem a classe também funciona com a classe.


oConexao := win_OleCreateObject( "ADODB.Connection" )
oConexao:ConnectionString := "string" // conforme o odbc
oConexao:CursorLocation := 3
oConexao:Open()
oRs := oConexao:Execute( "SELECT 10 AS QTD" )
? oRs:Fields( "QTD ...

... SQL Server"

if nProvedor=3
cServer:="mysql.xxx.com.br"
cPassword="xxx"
cPorta="3306"
cDriver="MariaDB ODBC 3.1 Driver"
endif

cnSQL:ConnectionString := "DRIVER=" + cDriver +";SERVER=" + cServer + ";Database=" + cDatabase + ";UID=" + cUser + ";PWD=" + cPassword + ";PORT=" + cPorta
cnSQL ...

... xxx"
LOCAL cDatabase :="xxx"
LOCAL cUser :=""
LOCAL cPassword :="xxx"
Local cPorta :="1039"
Local cDriver :="SQL Server"

cnSQL:ConnectionString := "DRIVER=" + cDriver +";SERVER=" + cServer + ";Database=" + cDatabase + ";UID=" + cUser + ";PWD=" + cPassword + ";PORT=" + cPorta

cnSQL ...

... xxx"
LOCAL cDatabase :="xxx"
LOCAL cUser :=""
LOCAL cPassword :="xxx"
Local cPorta :="1039"
Local cDriver :="SQL Server"

cnSQL:ConnectionString := "DRIVER=" + cDriver +";SERVER=" + cServer + ";Database=" + cDatabase + ";UID=" + cUser + ";PWD=" + cPassword + ";PORT=" + cPorta

cnSQL ...

... xxx"
LOCAL cDatabase :="xxx"
LOCAL cUser :=""
LOCAL cPassword :="xxx"
Local cPorta :="1039"
Local cDriver :="SQL Server"

cnSQL:ConnectionString := "DRIVER=" + cDriver +";SERVER=" + cServer + ";Database=" + cDatabase + ";UID=" + cUser + ";PWD=" + cPassword + ";PORT=" + cPorta

cnSQL ...

Estou com um problema em uma única máquina com Windows 10.


x := win_OleCreateObject( "ADODB.Connection" )
x:ConnectionString := "xxxxx"


O objeto não está sendo criado.

Pelo HeidiSQL, que NÃO USA ADO, também não conecta.

Alguém já teve esse problema?

Tá parecendo antivírus, ou segurança, ou ...

Estou com um problema em uma única máquina com Windows 10.


x := win_OleCreateObject( "ADODB.Connection" )
x:ConnectionString := "xxxxx"


O objeto não está sendo criado.

Pelo HeidiSQL, que NÃO USA ADO, também não conecta.

Alguém já teve esse problema?

Tá parecendo antivírus, ou segurança, ou ...

Olá.
Com o CreateObject() é possível abrir qq banco de dados, usando Drives das Fontes ODBC do Windows, setando "ConnectionString" com o "Provider" da Fonte Driver.

Pergunto aos amigos de tem como fazer o mesmo processo para abrir um PDF, assim como por exemplo, abrimos um .DOC, .XLS também, sendo ...

... www.postgresql.org/ftp/odbc/versions/msi/
//http://fivewin.com.br/index.php?/topic/21765-driver-odbc-para-dbf-xharbour/page/2/ - DBF
//http://connectionstrings.com/

#include "ADO.CH"
#define AD_USE_CLIENT 3

Function Main()
Local oCn, mExecute, oRs, msg, cString

Begin Sequence

oCN ...

... CRLF+;
cl_getError(oError),;
MB_OK|MB_ICONERROR )
//lOk:=.f.
Break
END

//Abrindo a PLanilha
If ".XLSX" $ Upper(mArq_)
oConexao:ConnectionString := ;
[Provider=Microsoft.ACE.OLEDB.12.0;Data Source=] + mArq_ +;
[;Extended Properties="Excel 12.0 Xml; HDR=Yes";] //IMEX=1";]
Else ...

... ADODB.Connection")
LOCAL cServer :="mysql.xxx.com.br"
LOCAL cDatabase :="xxx"
LOCAL cUser :="xxx"
LOCAL cPassword :="xxx"

cnSQL:ConnectionString := "DRIVER={MariaDB ODBC 3.1 Driver};TCPIP=1;SERVER=" + ;
cServer + ";Database=" + cDatabase + ";UID=" + cUser + ";PWD=" + cPassword + ";PORT ...

... ADODB.Connection")
Local cServer :="mysql.xxx.com.br"
Local cDatabase :="xxx"
Local cUser :="xxx"
Local cPassword :="xxx"

oCn:ConnectionString := "DRIVER={MariaDB ODBC 3.1 Driver};TCPIP=1;SERVER=" + ;
cServer + ";Database=" + cDatabase + ";UID=" + cUser + ";PWD=" + cPassword + ";PORT ...

... ADODB.Connection")
Local cServer :="mysql.xxx.com.br"
Local cDatabase :="xxx"
Local cUser :="xxx"
Local cPassword :="xxx"
...

oCn:ConnectionString := "DRIVER={MariaDB ODBC 3.1 Driver};TCPIP=1;SERVER=" + ;
cServer + ";Database=" + cDatabase + ";UID=" + cUser + ";PWD=" + cPassword + ";PORT ...