Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
ASP.NET 2.0 / 3.5 / 4.0
Errore: Impostazione su una istanza di oggetto.
sabato 28 novembre 2015 - 19.49
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
Peppino
Profilo
| Junior Member
186
messaggi | Data Invio:
sab 28 nov 2015 - 19:49
Ciao a tutti. Non so se sono nella stanza giusta!.
Il seguente pezzo di codice funziona correttamente ovunque (usando la stessa tabella con gli stessi dati)
viene usato meno che ad una parte dandomi come errore: riferimento a un oggetto non impostato su un’istanza di oggetto.
Qualcuno può darmi indicazione da cosa potrebbe dipendere questo fenomeno?
Grazie in anticipo per l’eventuale risposta: Ciao.
Dim condominio As String = CmbCondominio.Text
Dim dst As DataSet
Dim adp As SqlDataAdapter
Dim bds As BindingSource
'Ricavo il numero di condomini appartenenti al condominio selezionato.
Dim cmd As SqlCommand
cmd = New SqlCommand()
cmd.Connection = ConnessioneDatabase
cmd.CommandText = "SELECT COUNT(*) FROM Condomini_dettaglio WHERE Condominio = @condominio"
cmd.Parameters.Add(New SqlParameter("@condominio", SqlDbType.VarChar))
cmd.Parameters("@condominio").Value = condominio
ConnessioneDatabase.Open()
Dim numerocondomini As Object = cmd.ExecuteScalar()
ConnessioneDatabase.Close()
If numerocondomini Is DBNull.Value Or numerocondomini Is Nothing Then
numerocondomini = 0
End If
Dim RecordCondomini As Integer = CInt(numerocondomini)
Dim cmd1 As SqlCommand
cmd1 = New SqlCommand()
cmd1.Connection = SqlHelper.ConnessioneDatabase
cmd1.CommandText = "SELECT * FROM Condomini_dettaglio WHERE Condominio = @condominio"
cmd1.Parameters.Add(New SqlParameter("@condominio", SqlDbType.VarChar))
cmd1.Parameters("@condominio").Value = condominio
adp = New SqlDataAdapter(cmd1)
dst = New DataSet
adp.Fill(dst, "Condominio")
adp.Fill(dst, "Cognome")
adp.Fill(dst, "Nome")
adp.Fill(dst, "P_I")
adp.Fill(dst, "Proprietà")
adp.Fill(dst, "Scala")
adp.Fill(dst, "Piano")
adp.Fill(dst, "Interno")
adp.Fill(dst, "Immobile")
bds = New BindingSource()
bds.DataSource = dst
bds.DataMember = "Condominio"
bds.DataMember = "Cognome"
bds.DataMember = "Nome"
bds.DataMember = "P_I"
bds.DataMember = "Proprietà"
bds.DataMember = "Scala"
bds.DataMember = "Piano"
bds.DataMember = "Interno"
bds.DataMember = "Immobile"
adp.Dispose()
cmd1.Dispose()
cmd1.Connection.Close()
Dim i As Integer = 0
For i = i To i + RecordCondomini - 1
Dim cognome As String
Dim nome As String
Dim p_i As String
Dim proprietà As Integer
Dim scala As String
Dim piano As String
Dim interno As String
Dim immobile As String
If i < bds.Count Then
condominio = CStr(dst.Tables("Condominio").Rows(i).Item(1))
cognome = CStr(dst.Tables("Cognome").Rows(i).Item(2))
nome = CStr(dst.Tables("Nome").Rows(i).Item(3))
p_i = CStr(dst.Tables("P_I").Rows(i).Item(4))
proprietà = CInt(CStr(dst.Tables("Proprietà").Rows(i).Item(5)))
scala = CStr(dst.Tables("Scala").Rows(i).Item(6))
piano = CStr(dst.Tables("Piano").Rows(i).Item(7))
interno = CStr(dst.Tables("Interno").Rows(i).Item(8))
immobile = CStr(dst.Tables("Immobile").Rows(i).Item(18))
End If
Next
Peppino
Profilo
| Junior Member
186
messaggi | Data Invio:
dom 29 nov 2015 - 10:48
Penso di aver risolto. Grazie comunque a tutti. Ciao.
Torna su
Stanze Forum
Elenco Threads
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?
Dopo esserti registrato potrai chiedere
aiuto sul nostro
Forum
oppure aiutare gli altri
Consulta le
Stanze
disponibili.
Registrati ora !