[VB.NET] Problema con le Function.

[ladyBlu]

Ragazzi, oggi proprio non so cosa farei se non ci foste voi ad aiutarmi.

Ho un altro problema con VB.Net.

Devo chiamare una Function, ma mi da errore.
Vi posto il mio codice:

DTPDal = PrimaData()

Public Function PrimaData()

        Dim RSPrimaData As ADODB.Recordset, miaSQL As String

        miaSQL = "select min(tbscadenzario.datascadenza) as" & _
                 " miaDataIniziale from tbscadenzario"

        RSPrimaData = New ADODB.Recordset()
        RSPrimaData.Open(miaSQL, miaConn, 1, 3)

        If RSPrimaData.RecordCount = 0 Then
            Return Today
        Else
            If IsDBNull(RSPrimaData(0)) Then
                Return Today
            Else
                Return RSPrimaData(0)
            End If
        End If

    End Function

e il codice errore che mi esce fuori sull'istruzione in rosso:
"Eccezione non gestita di tipo "System.InvalidCastException" in Scadenzario.exe
Informazioni aggiuntive: Cast specificato non valido."

ma che significa?

Grazie ragazzi.

[biste]

Ora ci dò un'okkiata

[biste]

Dovresti essere + precisa... Di ke tipo è la variabile DTPDal? ke tipo di valori può ritornare la function? il problema sta nei tipi delle variabili, nulla di irrisolvibile

[ladyBlu]

grazie biste... oggi mi stai facendo da angelo custode.

[biste]

Da Tutor

[ladyBlu]

Originariamente inviato da biste
Dovresti essere + precisa... Di ke tipo è la variabile DTPDal? ke tipo di valori può ritornare la function? il problema sta nei tipi delle variabili, nulla di irrisolvibile

ok, ora ti spiego tutto;

DTPDal è un oggetto, un controllo: DateTimePicker.
la funzione può restituire solo date: Today o quella che c'è scritta nel db (RSPrimaData(0)).

thanks, thanks, thanks...

[biste]

DTPDal.Value = PrimaData()

Public Function PrimaData() As DateTime

        Dim RSPrimaData As ADODB.Recordset, miaSQL As String

        miaSQL = "select min(tbscadenzario.datascadenza) as" & _
                 " miaDataIniziale from tbscadenzario"

        RSPrimaData = New ADODB.Recordset()
        RSPrimaData.Open(miaSQL, miaConn, 1, 3)

        If RSPrimaData.RecordCount = 0 OrElse IsDBNull(RSPrimaData(0)) Then
            Return Today
        Else
            Return Convert.ToDateTime(RSPrimaData(0))
        End If

    End Function

Mi sono permesso di darti un'ottimizzazione al codice...Scusami
Cmq OrElse sarebbe come una or nel vb6, ma se il primo statement (RSPrimaData.RecordCount = 0) è vero nn controlla neanke il secondo e enra subito nel blocco
Conver.ToDateTime serve x convertire i tipi e quindi evitare eccezioni del tipo invalidcastexception
Poi ho aggiunto .Value a DTPDal.Value = PrimaData() e ho tipizzato il valore di ritorno della function

[ladyBlu]

ok, il codice è chiarissimo e ti ringrazio per le correzioni...
ho scritto quello che mi hai postato, ma mi da un altro errore:
"Eccezione non gestita di tipo System.InvaliCastException in mscorlib.dll

Informazioni aggiuntive: Cast specificato non valido."

cioè???? :master: :master:

[biste]

eh... dammi almeno un aiutino... dimmi dove

[ladyBlu]

:quipy: Scusami, hai ragione.
me lo da su: Return Convert.ToDateTime(RSPrimaData(0))


perdona la mia distrazione. e grazie ancora per la pazienza che hai... di ferro!