Ado Sample / ejemplo Ado

HMG Samples and Enhancements

Moderator: Rathinagiri

User avatar
luisvasquezcl
Posts: 1258
Joined: Thu Jul 31, 2008 3:23 am
Location: Chile
Contact:

Re: Ado Sample / ejemplo Ado

Post by luisvasquezcl »

Estimado, Que error de arroja?.
User avatar
quartz565
Posts: 667
Joined: Mon Oct 01, 2012 12:37 pm
Location: Thessaloniki, Greece
Contact:

Re: Ado Sample / ejemplo Ado

Post by quartz565 »

Thank you Luis for sharing !
Best Regards,
Nikos.

os: Windows Server 2019 - 64
User avatar
Steed
Posts: 427
Joined: Sat Dec 12, 2009 3:40 pm

Re: Ado Sample / ejemplo Ado

Post 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
User avatar
Ismach
Posts: 161
Joined: Wed Nov 28, 2012 5:55 pm
DBs Used: DBF, mySQL, Mariadb, postgreSQL, Oracle, Db2, Interbase, Firebird, and SQLite
Location: Buenos Aires - Argentina

Re: Ado Sample / ejemplo Ado

Post 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
User avatar
Ismach
Posts: 161
Joined: Wed Nov 28, 2012 5:55 pm
DBs Used: DBF, mySQL, Mariadb, postgreSQL, Oracle, Db2, Interbase, Firebird, and SQLite
Location: Buenos Aires - Argentina

Re: Ado Sample / ejemplo Ado

Post 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)
Post Reply