Ado Sample / ejemplo Ado

HMG Samples and Enhancements

Moderator: Rathinagiri

User avatar
luisvasquezcl
Posts: 1079
Joined: Thu Jul 31, 2008 3:23 am
Location: Chile
Has thanked: 13 times
Been thanked: 14 times
Contact:

Re: Ado Sample / ejemplo Ado

Post by luisvasquezcl » Tue Mar 22, 2016 8:27 pm

Estimado, Que error de arroja?.

User avatar
quartz565
Posts: 502
Joined: Mon Oct 01, 2012 12:37 pm
Location: Thessaloniki, Greece
Has thanked: 138 times
Been thanked: 13 times
Contact:

Post by quartz565 » Wed Mar 23, 2016 10:59 pm

Thank you Luis for sharing !
Best Regards,
Nikos.

os: Windows Server 2012 - 64
hw: HP Server E5606, 2.13GHz, 8.00 GB - Intel Xeon CPU

User avatar
Steed
Posts: 321
Joined: Sat Dec 12, 2009 3:40 pm
Been thanked: 2 times

Post by Steed » Thu Mar 24, 2016 12:22 am

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

User avatar
Ismach
Posts: 54
Joined: Wed Nov 28, 2012 5:55 pm
Location: Buenos Aires - Argentina
Been thanked: 5 times

Post by Ismach » Wed Jul 11, 2018 7:38 pm

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

User avatar
Ismach
Posts: 54
Joined: Wed Nov 28, 2012 5:55 pm
Location: Buenos Aires - Argentina
Been thanked: 5 times

Post by Ismach » Wed Jul 11, 2018 8:12 pm

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)

Post Reply