The server failed to resume the transaction

[João Fernandes dos Santos 2]

Pessoal, boa tarde.

Estou recebendo esse erro quando executo meu sistema web. o erro acontece sempre que rodo um código de datareader segue o código abaixo.

 

Public Function DataReader(ByVal paramSql As String) As SqlDataReader
       
        cnn = New SqlConnection(MegaConnectionString)
        Strsql = paramSql
        cmd = New SqlCommand(Strsql, cnn)
        cmd.CommandType = System.Data.CommandType.Text


        Try
            cnn.Open()
            cmd.ExecuteNonQuery()
            myDr = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
        Catch ex As Exception
            Throw New Exception(ex.Message.Trim, ex)

        End Try



        Return myDr
    End Function

Alguem sabe se essa função esta correta? essa função fica em um módulo e chamo ela no codebehind das páginas.

 

[KhaosDoctor 242]

Qual erro?

[João Fernandes dos Santos 2]

Khaos, o erro é esse:

The server failed to resume the transaction

 

Sempre trava nessa linha da função:

 

myDr = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

[Roberto Fagundes 40]

A linha esta com erro pois você não esta passando o tipo de objeto, no caso ficaria assim:

 

Dim myDr As SqlDataReader
myDr = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

[KhaosDoctor 242]

Também falta o tipo na conexão:

 

 

Dim cnn as New SqlConnection(MegaConnectionString);

[João Fernandes dos Santos 2]

Desculpe, pois esqueci de falar essa função está em um modulo e no cabeçalho do módulo ja tenho as duas variaveis declaradas

 

segue:

 

 Public cnn As SqlConnection
Public myDr As SqlDataReader

[KhaosDoctor 242]

Cara, não sei se está certo, porém acho que o servidor está encerrando a conexão mais cedo

[João Fernandes dos Santos 2]

Ok, mas você tem alguma função de datareader, que retorna o resultado? Para eu poder tirar uma base?

[KhaosDoctor 242]

Mas ai é simples, você tem sua conexão, vou refazer um bloco aqui e você adapta no seu código:

 

 

Dim con As New SqlConnection("Sua Connection String")
Dim com As New SqlCommand("Comando SQL",con)
Dim dr As DataReader


con.Open()


dr = com.ExecuteReader()


If dr.HasRows Then


dr.Read()


End If


Dim resultado as String = dr("nomedacoluna")


dr.close()


con.Close()

Existem outros métodos de você pegar uma coluna direto pelo indice dela:

 

http://www.dreamincode.net/forums/topic/98106-datareader-getting-data/

http://www.microsoft.com/brasil/msdn/Tecnologias/vbnet/DataReader.mspx

[João Fernandes dos Santos 2]

khaos, o complicado é que minha função esta em um módulo e não posso fazer o close dentro da função pois minha função tem um Return que envia os dados para a página que solicitou, senão, não consigo acessar o mydr("nomedacoluna") no code behind de minha página.

 

 

 

[KhaosDoctor 242]

Você pode fechar a conexão dentro do módulo normalmente, isso não tem nada a ver.

[João Fernandes dos Santos 2]

Mas eu fecho ela, antes ou depois do Return?

Fiz o teste, quando em coloco antes para fechar a conexão: conforme código abaixo.

 

Public Function DataReader(ByVal paramSql As String) As SqlDataReader
        'CarregaStringConexao()
        Dim cnn As New SqlConnection(MegaConnectionStringReader)
        Strsql = paramSql
        cmd = New SqlCommand(Strsql, cnn)
        cmd.CommandType = System.Data.CommandType.Text
        Try
            cnn.Open()
            cmd.ExecuteNonQuery()
            myDr = cmd.ExecuteReader()
        Catch ex As Exception
            Throw New Exception(ex.Message.Trim, ex)

        Finally
            cnn.Close()
            cnn.Dispose()
            cmd.Dispose()
        End Try
       
        Return myDr

        'Libera os objetos da memória.
      
     
    End Function

 

 

dá erro na página que chama a função: fala que o datareader esta fechado:

 

E quando coloco para fechar a conexão depois do Return, ele nem chega a executar os códigos e simplesmente quando chega no return ele ja vai para o END FUNCTION.

 

Segue o código:

    Public Function DataReader(ByVal paramSql As String) As SqlDataReader
        'CarregaStringConexao()
        Dim cnn As New SqlConnection(MegaConnectionStringReader)
        Strsql = paramSql
        cmd = New SqlCommand(Strsql, cnn)
        cmd.CommandType = System.Data.CommandType.Text
        Try
            cnn.Open()
            cmd.ExecuteNonQuery()
            myDr = cmd.ExecuteReader()
        Catch ex As Exception
            Throw New Exception(ex.Message.Trim, ex)

      
        End Try
       
        Return myDr

        'Libera os objetos da memória.
        cnn.Close()
        cnn.Dispose()
        cmd.Dispose()

    End Function

 

Ta complicado resolver este problema, esse erro começou a aparecer agora, ele não aparecia antes. ja faz 1 ano que estou desenvolvendo essa aplicação e sempre rodou de boa.

[KhaosDoctor 242]

Você não pode colocar nada depois do return, ele é o fim da função, nada é executado depois.

 

Você não precisa dar dispose nos comandos, eles fazem isso sozinhos. Onde está o mydr? Você tem que declará-lo dentro da função

 

 

Public Function DataReader(ByVal paramSql As String) As SqlDataReader       
        Dim cnn As New SqlConnection(MegaConnectionStringReader)
        Dim myDr As SqlDataReader
        cmd = New SqlCommand(paramSql, cnn)


        Try
            cnn.Open()
            myDr = cmd.ExecuteReader()


        Catch ex As Exception
            Throw New Exception(ex.Message.Trim, ex)
        
        Finally
        'Libera os objetos da memória.
        myDr.Close()
        cnn.Close()
        Return myDr
End Try
End Function

 

 

 

Tinha muita coisa desnecessária cara, você pode dar uma enxugada nesse código.