el error lo está dando en la línea 47
- Code: Select all Expand view
- oOdbc := TOdbc():New(cDsn, cName, cPass)
SQLDriverConnect error from TODbc:New() [#-1]
On Procedure OPENODBC Line: 47
Saludos
oOdbc := TOdbc():New(cDsn, cName, cPass)
#include "Fivewin.ch"
FUNCTION CfgOdbc()
LOCAL nRet,cDriver,cAttribute
cDriver :="Client Access ODBC Driver (32-bit)"
cAttribute:="DSN=BIEL"+Chr(0)+"DESCRIPTION=descipcion"+Chr(0)+"SERVER=192.168.1.1"
nRet:=CrtDtaSrc(0,1,cDriver, cAttribute )
//nRet->0 no se ha creado, 1 creado ok
RETURN NIL
DLL32 FUNCTION CrtDtaSrc(hWnd AS LONG, nRequest AS LONG, @cDriver as STRING , @cAttributes as STRING) ;
AS _INT PASCAL FROM "SQLConfigDataSource" LIB "ODBCCP32"
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 103 guests