App_Code Class

[Chiara82]

Ciao a tutti!
Vorrei che da una classe presente in App_Code mi fossero ritornati dei valori da poter poi essere utilizzati in un'altra pagina, ma non so come fare.

La classe dovrebbe essere di questo tipo:

Public Class MyClass

  Public Shared Function MyFunction()

    Dim Connection As New SqlConnection(ConfigurationManager.ConnectionStrings("SITEDB").ConnectionString)
    Dim Command As SqlCommand = New SqlCommand( _
          "SELECT Campo1, Campo2, Campo3 FROM Tabella WHERE Id = '1'", Connection)
    Connection.Open()
    Dim Reader As SqlDataReader = Command.ExecuteReader()

    'a questo punto vorrei recuperare il valore del Campo1, del Campo2 e del Campo3
    'MyValue1 = Campo1
    '...

    Reader.Close()
    Connection.Close()

  End Function

End Class

Una volta recuperati i valori dal database vorrei che fosse possibile, in una qualsiasi pagina, poter intercettare i valori recuperati dalla funzione.
Per esempio:

If MyClass.MyFunction.MyValue1 = "" Then
...

Mi aiutate? Grassie!

[Chiara82]

Nessuno?
Please...

[Jc_]

Reader.GetString(0)
Reader.GetString(1)
Reader.GetString(2)

questo se tutti e 3 i campi sono stringa.
altrimenti devi utilizzare

GetBoolean
GetByte
GetBytes
GetDateTime
GetDecimal
.... [etc]

Esempio

// Recupera il valore Pippo (SqlDataType bigint(8))
long valore = Reader.GetInt64(0)

la tipologia dei campi è la stessa specificata all'interno della tabella di SqlServer.

Per maggiori informazioni puoi guardare questo link.

Se hai altri dubbi fai un fischio o chiama sul messanger.
Ciao bella!

[Chiara82]

Grazie Jc_, mi hai risolto un grosso problema!

[Chiara82]

Scusa Jc_, ma c'è qualcosa che non capisco...
In questo modo mi da degli errori, dove sbaglio?

Public Class MyClass

  Public Shared Function MyFunction()

    Dim Connection As New SqlConnection(ConfigurationManager.ConnectionStrings("SITEDB").ConnectionString)
    Dim Command As SqlCommand = New SqlCommand( _
          "SELECT Campo1, Campo2, Campo3 FROM Tabella WHERE Id = 1", Connection)
    Connection.Open()
    Dim Reader As SqlDataReader = Command.ExecuteReader()

    Dim strCampo1 As String = Reader.GetString(0)
    Dim strCampo2 As String = Reader.GetString(1)
    Dim strCampo3 As String = Reader.GetString(2)

    Reader.Close()
    Connection.Close()

  End Function

End Class

E poi se voglio recuperare il valore questo sintassi non funziona:

MyClass.MyFunction.strCampo1

[Jc_]

Ciao bella,
credo proprio di essermi dimenticato di dirti di utilizzare sempre il metodo .Read di SqlDataReader prima di recuperare valori.

Quindi il tuo codice si trasforma in questo modo.

    Dim Reader As SqlDataReader = Command.ExecuteReader()

Dim strCampo1 As String = string.empty()
Dim strCampo2 As String = string.empty()
Dim strCampo3 As String = string.empty()

While Reader.Read()
    strCampo1 = Reader.GetString(0)
    strCampo2 = Reader.GetString(1)
    strCampo3 = Reader.GetString(2)
End While

    Reader.Close()

A questo punto la tua funzione colleziona i valori da te necessari.
Per ritornare i valori devi necessari devi creare una cosa di questo tipo

	Public Function ChiaraRitornamiQUalcosa(ValoreRitorno as String) as string

	Dim a as string = "a"
	Dim b as string = "b"
	Dim c as string = "c"

	Select ValoreRitorno
	Case a
	        return(a)
	Case b
		return(b)
	Case c
		return(c)
	End Select
	End Function

e poi chi da codice chiami la funzione così

    Console.WriteLine(ChiaraRitornamiQUalcosa("b"))
    Console.ReadLine()

in questo modo non fai altro che dire alla tua funzione di ritornarti il valore della variabile b. Quindi, riassumendo, il codice diventa

public module MyModule
	sub Main
	Console.WriteLine(ChiaraRitornamiQUalcosa("b"))
    Console.ReadLine()
	end sub
	
	Private Function ChiaraRitornamiQUalcosa(ValoreRitorno as String) as string
		' connessioni al database
		' e tutto il resto
		Dim Reader As SqlDataReader = Command.ExecuteReader()
		Dim strCampo1 As String = string.empty()
		Dim strCampo2 As String = string.empty()
		Dim strCampo3 As String = string.empty()
		
		While Reader.Read()
		    strCampo1 = Reader.GetString(0)
		    strCampo2 = Reader.GetString(1)
		    strCampo3 = Reader.GetString(2)
		End While

    Reader.Close()

	Select ValoreRitorno
	Case "strCampo1"
		return(strCampo1)
	Case "strCampo2"
		return(strCampo2)
	Case "strCampo3"
		return(strCampo3)
	End Select
	
	End Function
end module

per ricevere il valore di strCampo1 non devi far altro che scrivere

ChiaraRitornamiQUalcosa("strCampo1")

Ciao

[Jc_]

- non considerate questo post-
Jc Says: "questi cazz di tab che ti fanno il submit"

[Chiara82]

Grazie Jc_, adesso funziona bene anche se c'è ancora un'eccezione che non so come gestire
Quando il campo del db è null mi da errore in questa riga:

strCampo1 = Reader.GetString(0)

Visto che nei campi del db ci possono essere valori null come faccio a gestirli?
Ciao e ancora grazie!

[cassano]

puoi fare prima un controllo tipo

if valore is dbnull then....

[Jc_]

Originariamente inviato da Chiara82
Grazie Jc_, adesso funziona bene anche se c'è ancora un'eccezione che non so come gestire
Quando il campo del db è null mi da errore in questa riga:

strCampo1 = Reader.GetString(0)

Visto che nei campi del db ci possono essere valori null come faccio a gestirli?
Ciao e ancora grazie!

Si, fai come ti ha detto cassano. Il codice è questo.
Ricordati di applicarlo a tutti i campi di cui si sospetti un possibile valore null.

        Dim MyCheck As Boolean
		MyCheck = IsDBNull(Reader.GetString(0))
		
		If MyCheck = True Then
			' è vuoto e quindi mettigli niente
			' potresti tornare una stringa vuolta
		Else
			' c'è qualcosa
			strValore1 = Reader.GetString(0)
		End If

Fammi sapere se ci siamo riusciti.
Ciao!