HMGforum.com

Estoy teniendo problemas para conectar con fichero access con la versión 3.4.4.
Si compilo con la version 3.4.3 me funciona, si lo hago con la 3.4.4 me da el "Error SQLBASE/1901 Not connected"

Que puede se??

Wrong or missing password perhaps?

Serge

No necesita contraseña, y es raro que compilando con 3.4.3 funcione , y con la 3.4.4 no

Hi AidTIC,

AidTIC wrote: ↑Thu May 04, 2017 2:46 pm No necesita contraseña, y es raro que compilando con 3.4.3 funcione , y con la 3.4.4 no

It does not need a password, and it is rare that compiling with 3.4.3 works, and with 3.4.4 no

I once had a similar problem, not in HMG, i.e. a sql database which was working in my old program did not open in my new program. The sql similarly did not had any password. I solved by adding a password to it and giving the password in the connection string.

I presume that some how "password" has become must for connection. You can try it.

Regards,

Anand

El problema es que esa base de datos, no le puedo poner contraseña, pues la base de dato de la facturacion que gasta un programa comercial.

...

The problem is that this database, I can not put password, because the data base of the billing that a business program spends.

Por mas vueltas que le doy , no consigo que funcione con la Versión 3.4.4, así que me toca seguir compilando con la versión 3.4.3
.....
For more laps I give, I do not get it to work with version 3.4.4, so I have to keep compiling with version 3.4.3

Same is happend with this sample
C:\hmg.3.4.4\SAMPLES\HFCL\SQL\RDD_SQL\mdb

Try this way...

#include "hmg.ch"
#define adOpenForwardOnly 0
#define adOpenKeyset 1
#define adOpenDynamic 2
#define adOpenStatic 3
#define adLockReadOnly 1
#define adLockPessimistic 2
#define adLockOptimistic 3
#define adLockBatchOptimistic 4
#define adUseNone 1
#define adUseServer 2
#define adUseClient 3

PROCEDURE MAIN()

LOCAL oRs , cSql, cDb

oRs := win_oleCreateObject( "ADODB.Recordset" )
cDb := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb"
cSql := "SELECT * FROM test ;"
oRs:Open( cSql , cDb , adOpenForwardOnly, adLockReadOnly )
WHILE !oRs:EOF
MsgInfo( oRs:Fields( "First" ):Value )
MsgInfo( oRs:Fields( "Last" ):Value )
MsgInfo( oRs:Fields( "Age" ):Value )
MsgInfo( oRs:Fields( "HireDate" ):Value )
//? "------------------------------------"
oRs:MoveNext()
ENDDO
oRs:Close()

RETURN

AidTIC wrote: ↑Fri May 12, 2017 2:30 pm Por mas vueltas que le doy , no consigo que funcione con la Versión 3.4.4, así que me toca seguir compilando con la versión 3.4.3
.....
For more laps I give, I do not get it to work with version 3.4.4, so I have to keep compiling with version 3.4.3

Yes, I Agree. I have the same error.

Me sigue dando error al compilar con 3.4.4.

***** Traslated ******

I still give error when compiling with 3.4.4.


la linea 93 --> IF (conn1 := RDDINFO( RDDI_CONNECT, { "ODBC", aFichAcc } )) == 1
---------------------------
Program Error
---------------------------
Error BASE/1070 Argument error: ==



Called from MAIN(93)


---------------------------
Aceptar
---------------------------