[VB.NET] Impossibile accedere al DataReader

[cleaner]

ciao a tutti, avrei un problema con un datareader; la mia funzione, che ora vi mostrerò è contenuta all'interno di una classe, quando esco da questa, precisamente nel main del mio programma mi ritorna un datareader chiuso.. e quindi non riesco ad accedere agli elementi:

Public Function crea_dreader(ByVal sql As String)
        'Creazione datareader, viene passata la stringa sql da eseguire
        Dim objCommand As SqlClient.SqlCommand
        Dim objReader As SqlClient.SqlDataReader
        Dim cnPath As String

        cnPath = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\cn.txt"
        Dim objConnection As New SqlClient.SqlConnection
        objConnection.ConnectionString = verNameFile(cnPath)
        objConnection.Open()

        If (objConnection.State = ConnectionState.Open) Then
            objCommand = New SqlClient.SqlCommand(sql, objConnection)
            objReader = objCommand.ExecuteReader()
            crea_dreader = objReader

            'objReader = Nothing
            objConnection.Close()
        End If
    End Function

nel main:

'Definisco un mio datareader esterno alla classe
'Lo riempio con dataread passato dalla classe
'Leggo il contenuto
Dim objReader As SqlClient.SqlDataReader
objReader = trvDtset.crea_dreader(sql)
While objReader.Read()
      MsgBox(objReader.Item(0))
End While

[Pirelli72]

Così a prima vista mi sembra che la tua funzione 'crea_dreader' non ritorni nessun dato o sbaglio?

Forse così va meglio...

Public Function crea_dreader(ByVal sql As String) as SqlClient.SqlDataReader
        'Creazione datareader, viene passata la stringa sql da eseguire
        Dim objCommand As SqlClient.SqlCommand
        Dim objReader As SqlClient.SqlDataReader
        Dim cnPath As String

        cnPath = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\cn.txt"
        Dim objConnection As New SqlClient.SqlConnection
        objConnection.ConnectionString = verNameFile(cnPath)
        objConnection.Open()

        If (objConnection.State = ConnectionState.Open) Then
            objCommand = New SqlClient.SqlCommand(sql, objConnection)
            objReader = objCommand.ExecuteReader()
           
            'objReader = Nothing
            objConnection.Close()

           Return objReader
        End If
    End Function

[power.mobile]

--- testo cancellato ---

[cleaner]

ok, quindi sbagliavo ad assegnare il valore di ritorno, pensavo che la sintassi giusta fosse
nomefunzione=valore

grazie!!!

[alka]

Oltre al problema segnalato, l'efficacia nel DataReader sta nello scaricare - senza l'appoggio di un buffer, fatto salvo quello del record corrente - i dati mantenendo una connessione al server: se chiudi la connessione, non so quanto possa funzionare efficacemente l'accesso al DataReader e il reperimento di eventuali altri record dallo stesso.