Urgente! Problemi con DELETE

[g.basurto]

Ciao a tutti,
sos a sirene spiegate!!!!!!!! Ho un problema con DELETE in asp.net.
Essendo principiante di vb.net, sto seguendo un libro della McGrawHill (di merda, non lo comprate mai) che mi sta facendo impazzire!! Mi fa mettere sto codice:

Private Sub cmddelete_Click(sender as Object, e as EventArgs) Handles cmddelete.Click
Dim DeleteSQL as String
DeleteSQL= "DELETE clienti WHERE ID='" & lstclienti.SelectedItem.Value & "'"

Dim conn as New OleDbConnection()
conn.ConnectionString="Provider=Microsoft.Jet.OLED B.4.0;" & "Data Source=f:/Esercizi_ASPNET/Database/clienti.mdb"
dim cmd as New OleDbCommand(DeleteSQL, conn)
Try

conn.Open()
dim deleted as Integer
deleted=cmd.ExecuteNonQuery


Catch err as Exception

lblerr.Text = "ATTENZIONE: Errore nell'eliminazione dei records"
lblerr.Text &= err.Message

Finally

if (Not conn is Nothing) Then
conn.close()
end if

End try

if deleted > 0 then
Compilazione()
end if

End Sub


Testo il tutto e non funziona: mi dice che deleted non è stato definito. Ma come! Se l'ho definito come intero per restituire il numero di record individuati per cancellare. Comunque prima di questo frammento di codice c'è un altro codice; basta che voi provate a fare una applicazione che cattura le informazioni da un db e le inserisce in una tabella e poi fate un pulsante per cancellare il relativo record.


Grazie in anticipo.

[g.basurto]

aiutami zampa.

[Kylnas]

Originariamente inviato da g.basurto
aiutami zampa.

Dichiaralo fuori il "Try...Catch"

[g.basurto]

sta già fuori

[Kylnas]

Try

conn.Open()
dim deleted as Integer
deleted=cmd.ExecuteNonQuery


Catch err as Exception

...

Ma non sta dentro il Try?

[zampa28]

Private Sub cmddelete_Click(sender as Object, e as EventArgs) Handles cmddelete.Click 
Dim DeleteSQL as String 
DeleteSQL= "DELETE clienti WHERE ID='" & lstclienti.SelectedItem.Value & "'" 

Dim conn as New OleDbConnection() 
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=f:/Esercizi_ASPNET/Database/clienti.mdb" 
dim cmd as New OleDbCommand(DeleteSQL, conn) 
dim deleted as Integer ' lo devi dichiarare fuori dal try, perche
                       ' se c'è un errore vieni rimandata al catch
                       ' e quindi la variabile non è ancora stata
                       ' dichiarata.
Try 

conn.Open() 
deleted=cmd.ExecuteNonQuery 


Catch err as Exception 

lblerr.Text = "ATTENZIONE: Errore nell'eliminazione dei records" 
lblerr.Text &= err.Message 

Finally 

if (Not conn is Nothing) Then 
conn.close() 
end if 

End try 

if deleted > 0 then 
Compilazione() 
end if 

End Sub

Cmq penso otterrai ancora errore, ma non so perchè.

[g.basurto]

non mi dimenticate! E' urgente!!!