FiveODBC Error Message

[Compuin]

Saludos

Estoy tratando de conectar a una Base de Datos SQL Server 2008 R2 32 bits y tengo el siguiente error

FiveODBC Error Message
SQLDriverConnect error from TODbc:New() [#-1]

Mi version de windows es 64 bits

[Antonio Linares]

Por favor, muestra el código que usas para crear el objeto TOdbc

[Compuin]

FUNCTION CREATEDABASE()
LOCAL oOdbc
LOCAL cLogin:= "sa"
LOCAL cPass:= "123456"


oODbc:=TODBC():New("master", cLogin, cPass , .F. )

oOdbc:End()
oOdbc:=NIL

RETURN NIL

[Compuin]

Con este ejemplo me da el mismo error

#include "FiveWin.ch"
#include "sql.ch"

//----------------------------------------------------------------//

function Main()

Local oDlg
Local aDsn
local cDsn, cName, cPass, cFile

SET _3DLOOK ON

aDsn := OdbcDsnEntries()
cName := ""
cPass := ""
cFile := ""

if len(aDsn) == 0
MsgAlert("You must create a ODBC DSN configuration from your control panel",;
"ODBC DSN selection")
return nil
endif

cDsn := aDsn[1]

DEFINE DIALOG oDlg RESOURCE "ODBCLOGIN"

REDEFINE COMBOBOX cDsn ID 101 ITEMS aDsn OF oDlg
REDEFINE GET cName ID 102 OF oDlg MEMO
REDEFINE GET cPass ID 103 OF oDlg MEMO
REDEFINE BUTTON ID IDOK OF oDlg ACTION OpenOdbc(cDsn, cName, cPass)
REDEFINE BUTTON ID IDCANCEL OF oDlg ACTION oDlg:End()

ACTIVATE DIALOG oDlg

return nil

STATIC FUNCTION OpenOdbc(cDsn, cName, cPass)

Local oOdbc, oDlg
local aFiles
local cTable
local lAsync

oOdbc := TOdbc():New(cDsn, cName, cPass)

If !oOdbc:lSuccess
oOdbc:ShowErrorList("ODBC session not successfully initialized, aborting...")
oOdbc:End()
return nil
Endif

CursorWait()
aFiles := oOdbc:GetTables("*", .F. )
CursorArrow()

if len(aFiles) == 0
MsgAlert("There are not tables on that database, aborting...",;
"ODBC Table selection")
oOdbc:End()
return nil
endif

cTable := aFiles[1]

DEFINE DIALOG oDlg RESOURCE "ODBCTABLE"

REDEFINE LISTBOX cTable ID 101 ITEMS aFiles OF oDlg ;
ON DBLCLICK OpenTable(cTable, oOdbc, oDlg, lAsync)

REDEFINE CHECKBOX lAsync ID 102 OF oDlg

REDEFINE BUTTON ID IDOK OF oDlg ;
ACTION OpenTable(cTable, oOdbc, oDlg, lAsync)

REDEFINE BUTTON ID IDCANCEL OF oDlg ;
ACTION oDlg:End()

oDlg:lhelpIcon := .f.

ACTIVATE DIALOG oDlg

oOdbc:End()

return nil

STATIC FUNCTION OpenTable(cTable, oOdbc, oDlg, lAsync)

local oDbf

oDbf := oOdbc:Query( "SELECT * FROM " + cTable )

oDbf:lDateAsStr := .t.

oDbf:Open()

if lAsync
oDbf:AutoFill(oDlg,,{|n| ChkCursor(n, oDbf, oDlg) } )
else
aSend(oDlg:aControls, "disable()")
oDlg:bValid := {|| .f. }
oDlg:BMMoved := {|| CursorWait()}
oDbf:Complete()
aSend(oDlg:aControls, "enable()")
oDlg:bValid := nil
oDlg:BMMoved := nil
oDbf:Gotop()
endif

Browse()

oDbf:End()

Return nil

STATIC FUNCTION ChkCursor(n, oDbf, oDlg)

local hWnd := GetActiveWindow()

if hWnd != oDlg:hWnd
if n == 0
SetWindowText(hWnd, "Rows completally retrieved: "+ Transform(oDbf:RecCount(), "999,999"))
else
SetWindowText(hWnd, "Rows retrieved so far: " + Transform(n, "999,999"))
endif
endif


return nil

procedure AppSys // Xbase++ requirement

return

[Compuin]

Any advise?

[Antonio Linares]

Por qué no usas ADO ?

Tienes que usar ODBC por alguna razón específica ?

[Compuin]

Si, ya tengo mucho codigo escrito en ODBC como para comenzar a cambiarlo por ADO

[Rick Lipkin]

Forgive me if I am wrong .. ODBC and ADO use the same oRs code .. just the connection string is different ??

Rick Lipkin

[Antonio Linares]

Y a raiz de que cambios ha comenzado a fallar la conexión ?

Que has modificado ?

[Compuin]

La version....de fwh 2.7 a fwh13.12

[Compuin]

La todbc cambia entre esas versiones?

[Antonio Linares]

Puedes comparar el código fuente del ODBC en ambas versiones y eso puede darte
la pista de que hay que modificar.

Si nos proporcionas un ejemplo pequeño, auto contenido, que podamos probar aquí, aún mejor.

[Compuin]

OK gracias, lo voy a preparar

[Baxajaun]

Compuin,

puedes poner el fichero de recursos ? Estoy tratando de probar tu ejemplo con el driver ODBC de SQLite.

Muchas gracias.

Saludos

[Compuin]

Hola

El ejemplo es de la carpeta c:\fwh\samples\testodbc.prg