Aitooo Errore durante la creazione del form. Exception.InnerException...

lunedì 01 novembre 2010 - 23.09

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags VB.NET | Windows XP | Visual Studio 2005 | SQL Server Express

Carmelo1965 Profilo | Junior Member

163 messaggi | Data Invio: lun 1 nov 2010 - 23:09

Ciao a Tutti, stavo vacendo una prova con il libro Ado Net e quando ho lanciato la procedura mi è arrivato
il seguente Errore {"Errore durante la creazione del form. Per informazioni dettagliate vedere Exception.InnerException. Errore: Riferimento a un oggetto non impostato su un'istanza di oggetto."} Vi inserisco il programma che stavo svolgendo Grazie in Anticipo.

Imports System.Data
Imports System.Data.SqlClient
Public Class DataAdapters
Dim dsAdoSbs As AdoStepByStepDataSet

Friend WithEvents cmdSelectFornitori As New SqlCommand()
Friend WithEvents cmdInsertFornitori As New SqlCommand()
Friend WithEvents cmdUpdateFornitori As New SqlCommand()
Friend WithEvents cmdDeleteFornitori As New SqlCommand()
Friend WithEvents daFornitori As New SqlDataAdapter()

Public Sub New()

' This call is required by the Windows Form Designer.
InitializeComponent()

' Add exercise code here:
daFornitori.SelectCommand = cmdSelectFornitori
daFornitori.InsertCommand = cmdInsertFornitori
daFornitori.UpdateCommand = cmdUpdateFornitori
daFornitori.DeleteCommand = cmdDeleteFornitori

cmdSelectFornitori.CommandText = "SELECT * FROM AFornitori"
cmdSelectFornitori.Connection = CnAdoSbs

' This call supports the exercise:
CreateScaffolding()
End Sub
Private Sub CreateScaffolding()
'This code binds the three DataGridView controls
'and establishes their display characteristics
Dim dgv As DataGridView

dsAdoSbs = New AdoStepByStepDataSet()

dgv = Me.tabDataDisplay.TabPages("tpgCategoria").Controls("dgvCategoria")
dgv.AutoGenerateColumns = False
dgv.DataSource = dsAdoSbs.ACategoria
dgv.Columns.Add("CategoriaID", "CategoriaID")
dgv.Columns("CategoriaID").DataPropertyName = "CategoriaID"
dgv.Columns.Add("NomeCategoria", "Nome Categoria")
dgv.Columns("NomeCategoria").DataPropertyName = "NomeCategoria"
dgv.Columns.Add("Description", "Description")
dgv.Columns("Description").DataPropertyName = "Description"
dgv.Columns("Description").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

dgv = Me.tabDataDisplay.TabPages("tpgProduzione").Controls("dgvProduzione")
dgv.AutoGenerateColumns = False
dgv.DataSource = dsAdoSbs.AProduzione
dgv.Columns.Add("CategoriaID", "CategoriaID")
dgv.Columns("CategoriaD").DataPropertyName = "CategoriaID"
dgv.Columns.Add("ProduzioneID", "ProduzioneID")
dgv.Columns("ProduzioneID").DataPropertyName = "ProduzioneID"
dgv.Columns.Add("NomeProduzione", "Produzione Nome")
dgv.Columns("ProduzioneNome").DataPropertyName = "ProduzioneNome"
dgv.Columns("ProduzioneNome").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

dgv = Me.tabDataDisplay.TabPages("tpgFornitori").Controls("dgvFornitori")
dgv.AutoGenerateColumns = False
dgv.DataSource = dsAdoSbs.AFornitori
dgv.Columns.Add("FornitoreID", "FornitoreID")
dgv.Columns("FornitoreID").DataPropertyName = "FornitoreID"
dgv.Columns.Add("RagioneSociale", "Ragione Sociale")
dgv.Columns("RagioneSociale").DataPropertyName = "RagioneSociale"
dgv.Columns("RagioneSociale").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End Sub

Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click

End Sub

Private Sub DataAdapters_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub btnFill_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFill.Click
'The following lines clear the dataset
dsAdoSbs.ACategoria.Clear()
dsAdoSbs.AProduzione.Clear()
dsAdoSbs.AFornitori.Clear()

'Add exercise code here:
DaCategoria.Fill(dsAdoSbs.ACategoria)
DaProduzione.Fill(dsAdoSbs.AProduzione)
daFornitori.Fill(dsAdoSbs.AFornitori)

End Sub

Private Sub dgvCategoria_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvCategoria.CellContentClick

End Sub
End Class

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 !