filizola Posted April 22, 2004 Report Share Posted April 22, 2004 estou usando o testsql que vem no samples e me ocorre o erro abaixo: TDBODBC:OPEN(0) #include "FiveWin.ch" #include "sql.ch" function Main() Local oOdbc, oDbf local aData := {} Local nFor, adsn, cname, cpass, cselect SET 3D LOOK ON cName := "" cPass := "" cselect := "" adsn:=odbcdsnentries() msginfo(adsn) cdsn:=adsn[10] msginfo(cdsn) oOdbc := TOdbc():New( cdsn, cname, cpass ) If !oOdbc:lSuccess oOdbc:ShowErrorList("ODBC session not successfullyinitialized, aborting...") oOdbc:End() return nil Endif oDbf := TDbOdbc():new( "SELECT * FROM produtos" , oOdbc) if oOdbc:IsError() oOdbc:ShowErrorList() oOdbc:aErrors := {} oDbf:End() return nil endif odbf:open() <-AQUI ACONTECE O ERRO = TDBODBC:OPEN(0) odbf:complete() browse() odbf:end() Quote Link to comment Share on other sites More sharing options...
Alexandre Bassanezi Posted April 22, 2004 Report Share Posted April 22, 2004 Filizola Precisaria do Log para lhe ajudar, e outra coisa seria vc compilar o TODBC e TDBODBC fonte sem remover o número de linha, para sabermos onde está dando o problema ... []´s Alexandre Quote Link to comment Share on other sites More sharing options...
filizola Posted April 22, 2004 Author Report Share Posted April 22, 2004 veja só, observei que o TDODBC.PRG nao tem o método OPEN e nem o COMPLETE, onde ele deveria estar. Quote Link to comment Share on other sites More sharing options...
filizola Posted April 22, 2004 Author Report Share Posted April 22, 2004 Application =========== Path and name: C:\FW21\SAMPLES\TESTSQL\TESTSQL3.EXE Size: 823,552 bytes Max files handles permited: ( SetHandleCount() ) 20 Error ocurred at: 04/22/04, 20:49:12 Error description: Error Objects/6 No Exp. method:TDBODBC:OPEN Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from TDBODBC:OPEN(0) Called from MAIN(42) System ====== CPU type: 486 Hardware memory: 66240 (64 megas) Free System resources: % 74 GDI resources: % 94 User resources: % 74 Windows and MsDos versions: 3.95, 7.10 Windows total applications running: 23 1 C:\ARQUIV~1\NORTON~2\ATRACK.DLL 2 C:\ARQUIV~1\NORTON~2\IAMAPP.DLL 3 C:\ARQUIV~1\NORTON~1\NAVAPW32.DLL 4 C:\WINDOWS\SYSTEM\COMCTL32.DLL 5 C:\WINDOWS\EXPLORER.EXE 6 C:\WINDOWS\SYSTEM\BROWSEUI.DLL 7 C:\WINDOWS\SYSTEM\USER.EXE 8 C:\WINDOWS\SYSTEM\RPCRT4.DLL 9 C:\WINDOWS\SYSTEM\WINOA386.MOD 10 C:\MYSQL\BIN\WINMYS~1.EXE 11 C:\WINDOWS\SYSTEM\OLE32.DLL 12 C:\WINDOWS\SYSTEM\SENS.DLL 13 C:\ARQUIV~1\AHEAD\INCD\INCD.EXE 14 C:\WINDOWS\MIXER.EXE 15 C:\ARQUIV~1\ARQUIV~1\SYMANT~1\CCAPP.EXE 16 C:\WINDOWS\SYSTEM\DDHELP.EXE 17 C:\WINDOWS\SM56HLPR.EXE 18 C:\WINDOWS\SYSTEM\SYSTRAY.EXE 19 C:\WINDOWS\TASKMON.EXE 20 C:\WINDOWS\SYSTEM\MSHTML.DLL 21 C:\WINDOWS\SYSTEM\URLMON.DLL 22 C:\WINDOWS\SYSTEM\SHLWAPI.DLL 23 C:\WINDOWS\SYSTEM\DDEML.DLL 24 C:\ARQUIV~1\NORTON~1\NAVEVENT.DLL 25 C:\ARQUIV~1\NORTON~2\NISUM.EXE 26 C:\ARQUIV~1\NORTON~2\CCPXYSVC.EXE 27 C:\ARQUIV~1\ARQUIV~1\SYMANT~1\CCEVTMGR.EXE 28 C:\WINDOWS\SYSTEM\MSTASK.EXE 29 C:\WINDOWS\SYSTEM\MMSYSTEM.DLL 30 C:\WINDOWS\SYSTEM\MSGSRV32.EXE 31 C:\WINDOWS\SYSTEM\WEBCHECK.DLL 32 C:\WINDOWS\SYSTEM\SHDOC401.DLL Variables in use ================ Procedure Type Value ========================== LOCKERRHAN Param 1: O Class: ERROR Param 2: B { || ... } CodeBlock (b)INITHANDL$ Param 1: O Class: ERROR TDBODBC:OPEN MAIN Local 1: O Class: TODBC Local 2: O Class: TDBODBC Local 3: A Len: 0 Local 4: U Local 5: A Len: 10 Local 6: C "" Local 7: C "" Local 8: C "" Linked RDDs =========== DBF DBFNTX DataBases in use ================ Classes in use: =============== 1 TODBC 2 TDBODBC 3 ERROR Memory Analysis =============== Static memory: data segment: 64k Initial size: 57280 bytes (SYMP=592, Stack=22500, Heap=16004) Clipper Stack: 8059 bytes 14 Static variables: 196 bytes Dynamic memory consume: Actual Value: 152640 bytes Highest Value: 287808 bytes Quote Link to comment Share on other sites More sharing options...
gilmer Posted April 23, 2004 Report Share Posted April 23, 2004 Olá, A classe tdbodbcd.prg (TDbOdbcDirect) que tem estes métodos que você esta falando Quote Link to comment Share on other sites More sharing options...
filizola Posted April 23, 2004 Author Report Share Posted April 23, 2004 agora aparece este erro: Application =========== Path and name: C:\FW21\SAMPLES\TESTSQL.EXE Size: 794,176 bytes Max files handles permited: ( SetHandleCount() ) 20 Error ocurred at: 04/23/04, 16:49:24 Error description: Error Objects/6 No Exp. Method: TODBC:LDATEASSTR Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from TODBC:LDATEASSTR(0) Called from TDBODBCDIR:NEW(114) Called from MAIN(25) System ====== CPU type: 486 Hardware memory: 66303 (64 megas) Free System resources: % 65 GDI resources: % 83 User resources: % 65 Windows and MsDos versions: 3.95, 7.10 Windows total applications running: 25 1 C:\WINDOWS\EXPLORER.EXE 2 C:\WINDOWS\SYSTEM\MSUTB.DLL 3 C:\WINDOWS\SYSTEM\BROWSEUI.DLL 4 C:\WINDOWS\SYSTEM\SHLWAPI.DLL 5 C:\WINDOWS\SYSTEM\COMCTL32.DLL 6 C:\WINDOWS\SYSTEM\USER.EXE 7 C:\ARQUIV~1\NORTON~1\NAVAPW32.DLL 8 C:\WINDOWS\SYSTEM\CTFMON.EXE 9 C:\WINDOWS\SYSTEM\WINOA386.MOD 10 C:\WINDOWS\SYSTEM\MSAWT.DLL 11 C:\WINDOWS\SYSTEM\DDHELP.EXE 12 C:\WINDOWS\SYSTEM\SENS.DLL 13 C:\WINDOWS\SYSTEM\RPCRT4.DLL 14 C:\WINDOWS\SYSTEM\OLE32.DLL 15 C:\MYSQL\BIN\WINMYS~1.EXE 16 C:\ARQUIV~1\SYGATE\SPF\SMC.EXE 17 C:\ARQUIV~1\ARQUIV~1\SYMANT~1\CCAPP.EXE 18 C:\WINDOWS\TASKMON.EXE 19 C:\WINDOWS\SYSTEM\SYSTRAY.EXE 20 C:\WINDOWS\PTSNOOP.EXE 21 C:\WINDOWS\SYSTEM\MSHTML.DLL 22 C:\WINDOWS\SYSTEM\URLMON.DLL 23 C:\ARQUIV~1\ARQUIV~1\SYSTEM\MOSEARCH\BIN\MOSEARCH.EXE 24 C:\WINDOWS\SYSTEM\DDEML.DLL 25 C:\WINDOWS\SYSTEM\TAPISRV.EXE 26 C:\ARQUIV~1\NORTON~1\NAVEVENT.DLL 27 C:\WINDOWS\SYSTEM\SSSENSOR.DLL 28 C:\WINDOWS\SYSTEM\MMSYSTEM.DLL 29 C:\ARQUIV~1\ARQUIV~1\SYMANT~1\CCEVTMGR.EXE 30 C:\WINDOWS\SYSTEM\MSTASK.EXE 31 C:\WINDOWS\SYSTEM\SPOOL32.EXE 32 C:\WINDOWS\SYSTEM\MSGSRV32.EXE 33 C:\WINDOWS\SYSTEM\WEBCHECK.DLL 34 C:\WINDOWS\SYSTEM\SHDOC401.DLL Variables in use ================ Procedure Type Value ========================== LOCKERRHAN Param 1: O Class: ERROR Param 2: B { || ... } CodeBlock (b)INITHANDL$ Param 1: O Class: ERROR TODBC:LDATEASSTR TDBODBCDIR:NEW Param 1: C "SELECT * FROM cea400" Param 2: O Class: TODBC Local 1: O Class: TDBODBCDIR Local 2: U Local 3: O Class: TDBODBCDIR MAIN Local 1: O Class: TODBC Local 2: U Local 3: A Len: 0 Local 4: U Local 5: A Len: 9 Local 6: C "myodbc3-test " Linked RDDs =========== DBF DBFNTX DataBases in use ================ Classes in use: =============== 1 TODBC 2 TDBODBCDIR 3 ERROR Memory Analysis =============== Static memory: data segment: 64k Initial size: 45472 bytes (SYMP=584, Stack=18500, Heap=8196) Clipper Stack: 19881 bytes 13 Static variables: 182 bytes Dynamic memory consume: Actual Value: 174144 bytes Highest Value: 288832 bytes Quote Link to comment Share on other sites More sharing options...
gilmer Posted April 26, 2004 Report Share Posted April 26, 2004 Olá, Sua classe tOdbc.prg não esta atualizada como a TdbOdbcDirect Quote Link to comment Share on other sites More sharing options...
filizola Posted April 26, 2004 Author Report Share Posted April 26, 2004 vc poderia me enviar por favor ??? marciofilizola@ig.com.br Quote Link to comment Share on other sites More sharing options...
gilmer Posted April 27, 2004 Report Share Posted April 27, 2004 Ok, estará sendo enviada Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.