Page 3 of 3

Re: Ado Sample / ejemplo Ado

Posted: Tue Mar 22, 2016 8:27 pm
by luisvasquezcl
Estimado, Que error de arroja?.

Re: Ado Sample / ejemplo Ado

Posted: Wed Mar 23, 2016 10:59 pm
by quartz565
Thank you Luis for sharing !

Re: Ado Sample / ejemplo Ado

Posted: Thu Mar 24, 2016 12:22 am
by Steed
Thanks, works fine

For w10, and Office 2013 (64 Bits)

I has to modify the stri ng conection as show below

oConexion:ConnectionString ='Provider=Microsoft.ACE.OLEDB.12.0;'+;

but it work ok


Regards,

Ed

Re: Ado Sample / ejemplo Ado

Posted: Wed Jul 11, 2018 7:38 pm
by Ismach
My code is:

Code: Select all

     Local Rs as Object
     Local ccSQL:=""

     oPConn:= TOleauto():New('Adodb.Connection')
     oPConn:ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\myapps\gestab\versiones\L400;Extended Properties=Paradox 4.x;"
     // oPConn:ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myapps\gestab\versiones\L400;Extended Properties=Paradox 4.x;"
     oPConn:Open()

     ccSQL  := "Select Nutab, 01040, Arb82, Arb83, Arb84, Arb85 From Y932ST.db order by Nutab, ARB82;"

     Rs := TOleauto():New('Adodb.recordset')
     Rs:CursorLocation = adUseClient
     Rs:Open( ccSQL , oPConn, adOpenDynamic, adLockReadOnly )
     if  Rs:State = adStateClose
         Msgstop('Failed open table Tabla1')
         Return
     Endif

Re: Ado Sample / ejemplo Ado

Posted: Wed Jul 11, 2018 8:12 pm
by Ismach
the error is:

Date:07/11/18 Time: 17:10:34
Error WINOLE/1007 No se pudo encontrar el archivo ISAM instalable. (0x80004005): Microsoft Access Database Engine (DOS Error -2147352567)
Called from TOLEAUTO:OPEN(0)
Called from POX_CONNECT(50)
Called from MAIN(37)