FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index All products support ODBC con FWH
Posts: 434
Joined: Wed Jun 06, 2007 02:58 PM

ODBC con FWH

Posted: Sat May 24, 2008 08:25 AM

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

FiveWin for xHarbour 24.02 - Feb. 2024 - Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023

FWH 64 for Harbour 19.06 (MSVC++) Jun. 2019 - Harbour 3.2.0dev (r1904111533)

Visual Studio 2019 - Pelles C V.8.00.60 (Win64)
Posts: 193
Joined: Wed Apr 04, 2007 06:54 AM

ODBC con FWH

Posted: Wed May 28, 2008 09:51 AM

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

Continue the discussion