Re: Ado Sample / ejemplo Ado
Posted: Tue Mar 22, 2016 8:27 pm
Estimado, Que error de arroja?.
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://hmgforum.com/
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