1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Erro conexão conexão SQL Server [ODBC]

Discussão em 'Progress 4GL' iniciado por Cneves, Março 23, 2016.

  1. Cneves

    Cneves Membro Participativo

    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.
  2. lucasiam

    lucasiam Membro Participativo

    Cneves, conseguiu resolver encontrar alguma solução?
    Estou com um problema bem parecida aqui, e só ocorre quando rodo o programa via RPW.

Compartilhe esta Página