Ado Sample / ejemplo Ado
Moderator: Rathinagiri
- luisvasquezcl
- Posts: 1258
- Joined: Thu Jul 31, 2008 3:23 am
- Location: Chile
- Contact:
Re: Ado Sample / ejemplo Ado
Estimado, Que error de arroja?.
Re: Ado Sample / ejemplo Ado
Thank you Luis for sharing !
Best Regards,
Nikos.
os: Windows Server 2019 - 64
Nikos.
os: Windows Server 2019 - 64
Re: Ado Sample / ejemplo Ado
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
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
- 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
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
- 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
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)
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)