ASP X PROGRESS

Discussão em 'Banco de Dados / Database' iniciado por arossler, Abril 22, 2010.

  1. arossler

    arossler Guest

    Bom dia Pessoal ,

    Estou com o seguinte problema ...

    Estou fazendo uma conexão ODBC em um banco PROGRESS, ela está funcionando bem... porém quando tento desconectar ele permanece conectado ao banco... segue o código para analise...

    <%
    '##Declara as variaveis a serem utilizadas no script
    Dim conexao, stringConexao

    stringConexao = "Driver=Progress OpenEdge 10.1B driver; DSN=bancoweb; HOST=10.1.2.5;DB=webvendas;UID=usuario;PWD=senha;PORT=33445;"

    SET conexao = Server.CreateObject("ADODB.Connection")

    Set rstemp = Server.CreateObject ("ADODB.RecordSet")

    On Error Resume Next

    '##Abre a conexão junto ao banco

    conexao_Open stringConexao

    aspSQL = "SELECT ..."

    set rstemp = conexao.execute(aspSQL)

    rstemp.Open aspSQL, conexao

    ' Fechamos o recordset e liberamos a memória usada
    rstemp.close
    set rstemp=nothing

    conexao.Close(aspSQL)
    Set conexao = Nothing


    If conexao.State = adStateOpen Then
    response.write "Conectado"
    Else
    response.write "Desconectado"
    End if
    %>

    Grato.
    arossler, Abril 22, 2010
    #1

Compartilhe esta Página