I'm converting my .prg from FHW(17.09) + xHarbour to FWH 64 for Harbour 19.06 (MSVC++) Jun. 2019
this code (Ado fo DB2 AS400):
Code: Select all
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function main()
local oCn
LOCAL Connessione := "Provider=IBMDA400; Data Source=192.168.1.200; User Id=USER; Password=PSW; Default Collection=MYLIB;"
oCn := FW_OpenAdoConnection( Connessione, .t.)
if oCn = Nil
msginfo("Connessione al DB2 errata")
endif
return nil
any help?