Boa tarde. Estou com um problema em uma rotina que conecta um banco SQL via ODBC. A rotina roda em RPW e, na maioria das vezes funciona normalmente, porém as vezes ocorre o erro abaixo quando tenta fazer a conexão. Error occurred while accessing component property/method: Open. [Microsoft][ODBC Driver Manager] Driver's SQLAllocHandle on SQL_HANDLE_DBC failed Error code: 0x80020009 pi-conecta-banco esp/eshr021rp.p (5890) Segue abaixo exemplo da conexão do banco: def var ObjRecordSet as com-handle no-undo. def var ObjConnection as com-handle no-undo. def var ObjCommand as com-handle no-undo. def var ODBC-DSN as character no-undo. def var ODBC-SERVER as character no-undo. def var ODBC-USERID as character no-undo. def var ODBC-PASSWD as character no-undo. def var c-erro as character no-undo. def var i-erro as integer no-undo. create "ADODB.Connection" ObjConnection. create "ADODB.RecordSet" ObjRecordSet. create "ADODB.Command" ObjCommand. assign ODBC-DSN = "dns do ODBC" ODBC-SERVER = "servidor do banco" ODBC-USERID = "usuário do banco" ODBC-PASSWD = "senha do banco". ObjConnection:Open ( "data source=" + ODBC-DSN + ";server=" + ODBC-SERVER, ODBC-USERID, ODBC-PASSWD, 0 ) NO-ERROR. if (error-status:num-messages > 0) then do: put "Erro: Falha na conexÆo com o banco SQL. Segue abaixo: " skip(1). do i-erro = 1 to error-status:num-messages: assign c-erro = error-status:get-message(i-erro). put skip c-erro format "x(" + string(length(c-erro)) + ")" skip. end. return "Nok". end. ObjConnection:close no-error. return "Ok". Desde já agradeço.
Cneves, conseguiu resolver encontrar alguma solução? Estou com um problema bem parecida aqui, e só ocorre quando rodo o programa via RPW.