Conexión abierta pero indica Cerrada

[death_nemesis]

Hola amigos tengo el siguiente problema ojala me puedan ayudar, resulta que tengo la conexión abierta a la base de datos (postgres) pero me dice que está cerrada. Acá está el código.

Código vb:

conn.open()
MsgBox(conn.State.ToString)
Try
    pgCommand = New NpgsqlCommand("SELECT columna1,columna2 FROM tabla WHERE campo3 = @dato;")
    pgCommand.Parameters.AddWithValue("@dato", primero)
    query_result = pgCommand.ExecuteReader()
    If query_result.HasRows Then
        MsgBox(conn.State.ToString)
    End If
    Do While query_result.Read
        MsgBox(query_result.GetValue(0).ToString)
    Loop
Catch ex As Exception
    MsgBox(ex.Message)
End Try
conn.Close()
 

[Malenko]

Estas creando un comando pero no le indicas en que conexión lo ha de ejecutar. Por eso aunque ya has abierto una, el comando no tiene ninguna conexión relacionada y por eso da ese error. La solución es muy sencilla, modifica esta linia:

Código:

  pgCommand = New NpgsqlCommand("SELECT columna1,columna2 FROM tabla WHERE campo3 = @dato;")

Por esta otra:

Código:

  pgCommand = New NpgsqlCommand("SELECT columna1,columna2 FROM tabla WHERE campo3 = @dato;", conn)

De esta forma al constructor le indicas que conexión ha de usar para trabajar ;)