Salve,
sto provando ad utilizzare la classe FiveODBC con questa piccola funzione
FUNCTION odbsap(call1,oWnd)
local cDsn := "DSN"
Local cName := "Name"
Local cPass := "Pass"
Local oRdd
RddSetDefault( "ODBC" )
oRdd := TrddOdbc():New( cDSN, cName, cPass )
USE "TABLE" VIA "ODBC"
Browse()
ordd:End()
return
ma in fase di compilazione mi vengono fuori questi errori:
Error: Unresolved external '_HB_FUN_RDDSETFIELDEXTENT' referenced from C:\FWH\LI
B\FIVEHX.LIB|TRDD
Error: Unresolved external '_HB_FUN_RDDADDFIELD' referenced from C:\FWH\LIB\FIVE
HX.LIB|TRDD
Error: Unresolved external '_HB_FUN__TRDD' referenced from C:\FWH\LIB\FIVEHX.LIB
|TRDD
Error: Unresolved external '_HB_FUN_INIODBC32' referenced from C:\FWH\LIB\FIVEHX
.LIB|TRDDODBC
Error: Unresolved external '_HB_FUN_ENDODBC32' referenced from C:\FWH\LIB\FIVEHX
.LIB|TRDDODBC
sicuramente manca qualche libreria nel link?
può qualcuno darmi un esempio funzionante di utilizzo FiveOdbc ?
grazie
ODBC con FWH
Moderator: Enrico Maria Giordano
- damianodec
- Posts: 372
- Joined: Wed Jun 06, 2007 2:58 pm
- Location: Italia
- Contact:
tempo fa ho usato anch'io questa classe e ho avuto gli stessi tuoi errori.
ora uso la classe TOdbc()
cDsn := oIni:Get( "ODBC", "DsnOrigineDati", "Server01", cDsn)
cName := oIni:Get( "ODBC", "DsnLoginID", "nn", cName)
cPass := oIni:Get( "ODBC", "DsnPassWord", "xxxxxxxx", cPass)
oOdbc := TOdbc():New(cDsn, cName, cPass)
If !oOdbc:lSuccess .OR. lError(,,, .t.)
oOdbc:ShowErrorList(LoadValue(1051, CH)) // ODBC session not successfully initialized, aborting...
oOdbc:End()
Return(.f.)
Endif
ora puoi creare le select in SQL
oLavor := oOdbc:Query("SELECT lavorazioni.id, analav.codice, analav.descr FROM lavorazioni " +;
"INNER JOIN analav ON lavorazioni.idanalav = analav.id")
oLavor:Open()
oLavor:Complete()
se può essere utile...
ciao, marzio
ora uso la classe TOdbc()
cDsn := oIni:Get( "ODBC", "DsnOrigineDati", "Server01", cDsn)
cName := oIni:Get( "ODBC", "DsnLoginID", "nn", cName)
cPass := oIni:Get( "ODBC", "DsnPassWord", "xxxxxxxx", cPass)
oOdbc := TOdbc():New(cDsn, cName, cPass)
If !oOdbc:lSuccess .OR. lError(,,, .t.)
oOdbc:ShowErrorList(LoadValue(1051, CH)) // ODBC session not successfully initialized, aborting...
oOdbc:End()
Return(.f.)
Endif
ora puoi creare le select in SQL
oLavor := oOdbc:Query("SELECT lavorazioni.id, analav.codice, analav.descr FROM lavorazioni " +;
"INNER JOIN analav ON lavorazioni.idanalav = analav.id")
oLavor:Open()
oLavor:Complete()
se può essere utile...
ciao, marzio