ho un progetto in vb.net, collegato a un db tramite dataadapter, dataset, dataview.
sono in panne con aggiornamento dei campi.......
aggiornando delle textbox da vb vorrei che automaticamente nel db si aggiornassero i campi.
come faccio?????
ho un progetto in vb.net, collegato a un db tramite dataadapter, dataset, dataview.
sono in panne con aggiornamento dei campi.......
aggiornando delle textbox da vb vorrei che automaticamente nel db si aggiornassero i campi.
come faccio?????
ho inserito il codice ad un button, ma non funziona mi da errore, chi mi dice dove è errore????
Private Sub btSalva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSalva.Click
Dim Esito As MsgBoxResult
'Esito = MsgBox("Confermi i dati inseriti ?", MsgBoxStyle.YesNoCancel)
Esito = MsgBoxResult.Yes
If Esito = MsgBoxResult.Yes Then
Dim Logrow As dsSubVettori.RegistroRow
Logrow = DsSubVettori.Registro.NewRegistroRow
Logrow.DatReg = Now
If rb_insAzienda.Checked Then
' Inserire la nuova Azienda
Dim row As dsSubVettori.AziendaRow = DsSubVettori.Azienda.AddAziendaRow(ins_Azienda.Tex t)
daAzienda.Update(DsSubVettori)
Logrow.idAzienda = row.idAzienda
Else
Logrow.idAzienda = sel_Azienda.SelectedValue
End If
If rb_insAutista.Checked Then
' Inserire il nuovo autista
Dim row As dsSubVettori.AutistaRow
row = DsSubVettori.Autista.NewAutistaRow
row.idAzienda = Logrow.idAzienda
row.CognomeNome = ins_CognomeNome.Text
row.ScadenzaPatente = ins_ScadenzaPatente.Value
row.ScadenzaPatenteADR = ins_ScadenzaPatenteADR.Value
DsSubVettori.Autista.Rows.Add(row)
daAutista.Update(DsSubVettori)
Logrow.idAutista = row.idAutista
Else
Logrow.idAutista = sel_Autista.SelectedValue
End If
If rb_modAutista.Checked Then
'aggiornare modifche
Dim rowup As dsSubVettori.AutistaRow
rowup = DsSubVettori.Autista.NewRow
rowup.CognomeNome = ins_CognomeNome.Text
rowup.ScadenzaPatente = ins_ScadenzaPatente.Value
rowup.ScadenzaPatenteADR = ins_ScadenzaPatenteADR.Value
DsSubVettori.Autista.Rows.Add()
daAutista.Update(DsSubVettori, "Autista")
End If
ho provato anche cosi ma nulla....
Dim tabAutista As DataTable
tabAutista = DsSubVettori.Tables("Autista")
tabAutista.Rows(0)("CognomeNome") = "Cognome modificato"
Dim cmdAutista As New OleDbCommandBuilder(daAutista)
daAutista.UpdateCommand = cmdAutista.GetUpdateCommand
daAutista.Update(DsSubVettori, "Autista")
DsSubVettori.AcceptChanges()