Ciao a tutti, spero che qualcuno possa aiutarmi. Ho inserito due tabelle Una con DataAdapter inserendo
la Tabella Dipendente il DataAdapter l'ho chiamato Dadipendente, una seconda Tabella l'ho inserita sempre
con DataAdapter ma con il metodo Annulla. Ho fatto tutti i procedimenti con due TapDataDisplay con
all'interno il DataGrid per ogni singolo Tab. Riguardo la lettura dei dati si caricano tranquillamente,
pur troppo quando faccio UPDATE mi segna il seguente errore:
------ Segue il corpo della procetura come l'ho impostata.
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
Spero che qualcuno possa aiutarmi, e Vi ringrazio come al solito Buona sera e ormai Buona notte.
Un grazie a tutti i collaboratori....