(Resolvido) Vb.net + PostgreSQL + erro intermitente

[Gian Nicodemus]

Boa tarde galerinha...

Bem, to começando no Vb agora e estou com um problema chatinho aki!

Acontece que eu estou desenvolvendo um sistema de cadastro de clientes... pois bem, eu tenho um GRID que lista todos os clientes, e quando eu clico 2 vezes em cima de um cliente ele me abre um formulario pra edição (o formulario que uso para editar é o mesmo do cadastro, a dferença seria na hora de carregar o formulario).

Mas o que éh que tem um defeito intermitente nele, que só carrega os dados no formulario quando ele quer :S

Codigo para abrir o formulario:

Private Sub DataGridView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseDoubleClick
        Dim frmcad As New cadastraCliente
        With frmcad
            .cliente_id = DataGridView1.CurrentRow.Cells(0).Value
        End With
        frmcad.Show()
    End Sub

nesse codigo ai, eu pego a ID do cliente e envio pro formulario... Aqui vai o codigo do novo formulario:

Private _cliente_id As Integer
    Public Property cliente_id() As Integer
        Get
            Return _cliente_id
        End Get
        Set(ByVal value As Integer)
            _cliente_id = value
        End Set
    End Property
 Private Sub cadastraCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If (_cliente_id > 0) Then
            Dim Codigo As String = "" & _cliente_id & ""
            MsgBox(_cliente_id)
            Dim clnCliente As New clnCliente
            Dim drDados As Npgsql.NpgsqlDataReader
            drDados = clnCliente.ListarCliente(Codigo)

            If drDados.Read = True Then
                MsgBox(drDados("nome"))
                txtNome.Text = drDados("nome")
                txtRg.Text = drDados("rg")
                txtCpf.Text = drDados("cpf")
                txtNasc.Text = drDados("nasc")
            Else
                MsgBox("não funciona")
            End If
        End If
    End Sub

Porém, por exemplo, se eu abrir o projeto pelo Botao Play do Vb.net, ele abre corretamente, dai se eu fexo o projeto pelo X da janela, ele dá problema, dai eu inicio o projeto pelo Play, e fecho pelo Pause, e abro de novo... ele funciona uma vez e depois para...

Muito estranho isso...

Alguém tem idéia do que possa ser?

[quintelab]

É um pouco dificil pois não temos o mesmo cenário que você, talvez alguém encontre algo no código só olhando, mas é dificil. O jeito seria testar sempre debugando pra tentar descobrir qual é a situação exata que ocorre o erro.

Abraços...

[Gian Nicodemus]

Ola...bom dia...

Então, quando da erra do formulario, aparece a seguinte mensagem:

"Invalid attempt to read when no data is present"

Porém as vezes aparece... as vezes naooooo..

Meu VB tem vida própria..rsrs

[quintelab]

Seu DataReader deve estar ficando aberto. Quando terminar de usar o DataReader destrua ele.

Abraços...

[Gian Nicodemus]

Como eu faço isso? rsrs

[quintelab]

Utilize o Close e o Dispose.

Abraços...

[Gian Nicodemus]

Resolvido:

Era a versão da Npgsql que deve estar com algum Bug, regredi a versão e agora está ok!

valeu ai galera...

abraços!