by xhbcoder » Wed Dec 13, 2006 5:02 pm
Antonio,
Our base code is in Clipper 5.2. I tried to convert them to xHarbour but there are issues like Telepathy lib which don't have 32 bits version and several C codes that generates errors, when linked. I looked for 32 bit version as you suggested but Extransensory Software do not have 32 bit version of Telepathy.
For now, we are trying to connect our program to SQL server for possible enhancement.
I am able to connnect using FiveODBC but it returns only one record.
Heres the code taken from your example.
******************
Function LS_odbc()
******************
Local oODBC := TOdbc():New "DsnEntry", "YourName", "YourPassword")
If !oOdbc:lSuccess
oOdbc:ShowErrorList("ODBC session not successfully initialized, aborting...")
oOdbc:End()
return nil
Endif
*oDbf := oOdbc:Query( "SELECT * FROM JOURNAL" )
Odbf := TdbOdbcDirect():New("SELECT * FROM JOURNAL WHERE JRDATE = '10/6/06' ORDER BY JRDATE, JRTIME", oOdbc)
if oOdbc:IsError()
oOdbc:ShowErrorList()
oOdbc:aErrors := {}
oDbf:End()
return nil
endif
oDbf:Open()
*oDBF:goBottom()
*msginfo(str(ODbf:recNO()))
*msgInfo(oDBF:jrzday)
*Browse( cTitle, cListName, bNnew, bModify, bDelete, bSearch, bList )
copy to tmp
Browse("Journal")
return nil
Note:
The browse shows one record only.
The tmp file contain one record only.
Can we keep clipper 5.2 and accomplish FiveODBC? Just let me know if it possible.
We don't need to convert to 32 bit right now since Clipper 5.2 version looks stable.
Gracias,
-jose