Update con SqlDataAdapter

giovedì 11 novembre 2010 - 23.04

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Carmelo1965 Profilo | Junior Member

163 messaggi | Data Invio: gio 11 nov 2010 - 23:04

Ciao a tutti, quando clicco su update mi viene fuori il seguente errore:
System.InvalidOperationException non è stata gestita
Message="Update richiede che UpdateCommand abbia un oggetto connessione. La proprietà Connection di UpdateCommand non è stata inizializzata."
Source="System.Data"
StackTrace:
Potete Aituarmi Grazie mille
Imports System.Data
Imports System.data.SqlClient
Public Class Form1
Dim dsAdoSbs As masterDataSet
Friend WithEvents cmdSelectDip As New SqlCommand()
Friend WithEvents cmdInsertDip As New SqlCommand()
Friend WithEvents cmdUpdateDip As New SqlCommand()
Friend WithEvents cmdDeleteDip As New SqlCommand()
Friend WithEvents dcdipendenti As New SqlDataAdapter
Public Sub New()
' This call is required by the Windows Form Designer.
InitializeComponent()
' Add exercise code here:
daDipendenti.SelectCommand = cmdSelectDip
daDipendenti.InsertCommand = cmdInsertDip
daDipendenti.UpdateCommand = cmdUpdateDip
daDipendenti.DeleteCommand = cmdDeleteDip
cmdSelectDip.CommandText = "Select * From Dipendenti"
cmdSelectDip.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
' VARIABILE DATAGRID
Dim dgv As DataGridView
'CREO COLLEGAMENTO CON IL DATASET PER LE TABELLE
dsAdoSbs = New masterDataSet()

'INIZIO CARICAMENTO DATI

'------------- CARICO DIPENDENTI .......
dsAdoSbs = New masterDataSet()
dgv = Me.TabDatadislplay.TabPages("TpgDipendenti").Controls("DvgDip")
dgv.AutoGenerateColumns = False

dgv.DataSource = dsAdoSbs.Dipendenti

dgv.Columns.Add("DipendenteID", "DipendenteID")
dgv.Columns("DipendenteID").DataPropertyName = "DipendenteID"

dgv.Columns.Add("Nome", "Nome")
dgv.Columns("Nome").DataPropertyName = "Nome"

dgv.Columns.Add("Titolo", "Titolo")
dgv.Columns("Titolo").DataPropertyName = "Titolo"
dgv.Columns("Titolo").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
'---------- CARICO DIPENDENTI

dgv = Me.TabDatadislplay.TabPages("TpgClienti").Controls("dvgCli")
dgv.AutoGenerateColumns = False

dgv.DataSource = dsAdoSbs.Clienti

dgv.Columns.Add("ClientiID", "ClientiID")
dgv.Columns("ClientiID").DataPropertyName = "ClientiID"

dgv.Columns.Add("RagioneSociale", "Ragione Sociale")
dgv.Columns("RagioneSociale").DataPropertyName = "RagioneSociale"

dgv.Columns.Add("titoloContatto", "Titolo Contatto")
dgv.Columns("titoloContatto").DataPropertyName = "Indirizzo"
dgv.Columns("titoloContatto").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

End Sub

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

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'The following lines clear the dataset
dsAdoSbs.Dipendenti.Clear()
dsAdoSbs.Clienti.Clear()

'Add exercise code here:
daDipendenti.Fill(dsAdoSbs.Dipendenti)
DaClienti.Fill(dsAdoSbs.Clienti)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
daDipendenti.Update(dsAdoSbs.Dipendenti)
DaClienti.Update(dsAdoSbs.Clienti)
End Sub

Private Sub daDipendenti_RowUpdating(ByVal sender As Object, ByVal e As System.Data.SqlClient.SqlRowUpdatingEventArgs) Handles daDipendenti.RowUpdating
txtMessages.Text &= vbCrLf & "Beginning Update..."
txtMessages.Text &= vbCrLf & "Executing a command of type " & _
e.StatementType.ToString()
End Sub

End Class
Un grazie a tutti i collaboratori....

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 !