riferimento ad un oggetto non impostato....... [vb net 2010 express]

[libraio]

Cerco di salvare dei dati in un database mdb vers 2003 ma anche se i riferimenti dentro il database sono giusti mi appare l'errore descritto nel allegato, vorrei sapere se a qualcuno viene un idea in merito, grazie.

Private Sub salva_immagine()
        'salva l'immagine
        Try


            If salvataggio = True Then
                If Frmprincipale.lingua.linguaggio = "italiano" Then
                    MsgBox("Attenzione l'immagine è gia' stata salvata.")
                Else
                    MsgBox("Beware the image is already 'been saved.")
                End If
                Exit Sub
            End If


            Dim stringaconn As String = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Frmprincipale.NomeDatabase
            cn.Open(stringaconn)


            rs.Open("immagini", cn, 3, 3)


            Dim recordnum As Integer


            If RN = False Then
                recordnum = rs.RecordCount
                recordnum = recordnum + 1
                RN = True
                RecNum = recordnum
            End If


            Dim nome_file As String = pbpiede.ImageLocation.ToString
            nome_file = estrai_nome(nome_file)
            Dim posizione As String = copia_immagine(pbpiede.ImageLocation, nome_file)


            rs.AddNew()
            rs("id2").Value = RecNum
            rs("percorso").Value = posizione
            rs.Update()


            Dim cont As Integer = immagini.Count
            ReDim Preserve immagini(cont + 1)
            immagini(cont + 1) = posizione
            posizioneimm = posizione


        Catch ex As Exception
            MsgBox("ERRORE/ERROR ...... " & ex.Message)
            cn = Nothing
            rs = Nothing
            'salvataggio = True
            Exit Sub
        End Try




        cn = Nothing
        rs = Nothing
        salvataggio = True
        MsgBox("Inserimento effettuato/Inserting made", vbOKOnly, "CONFERMA/CONFIRMATION")
        escludi_chiusura = False
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
        Button4.Enabled = True
    End Sub

[renygade]

Non credo che l'oggetto dell'errore sia riferito al database, quanto piuttosto a una variabile che utilizzi prima che venga istanziata (o creata con l'apposito costruttire). Può essere cn, o rs. Dove li dichiari?
Fai il debug riga per riga per individuare quale oggetto genera l'eccezione..
Ciao

[gibra]

Comunque se non mostri la riga in errore non si capisce nulla.


@renygate
Che senso può mai avere quotare l'intero messaggio? Nessuno.
Si deve quotare solo la parte del messaggio nel caso ci si riferisca ad essa.
Se tutti rispondessero quotando l'intero messaggio precedente, la discussione diventa enormemente ed esageratamente lunga e ciò ne comprometterebbe la lettura. Pensaci.

[oregon]

Togli temporaneamente la try catch e vedi dove si ferma

[renygade]

@Gibra
si hai ragione. sorry. Ho tolto la citazione. La prossima volta faccio "rispondi" e basta.

[libraio]

Togli temporaneamente la try catch e vedi dove si ferma

Si ho tolto il try catch e mi si e fermato alla riga

cn.Open(stringaconn)

Il problema e che nella stringa di connessione che dichiaro insieme alle variabili cn e rs all'inizio del modulo, in cui mi appare 2 volte la stessa cartella, percui è chiaro che non mi trovi la directory. Deve essere un errore logico, mi ci vorrà un po' di tempo per risolverlo, in quanto in altri contesti tutto mi funziona bene. Grazie .....

[oregon]

Se è in quella linea la causa è l'oggetto

cn

che non è stato istanziato. La stringa di connessione e le directory non c'entrano nulla ...