ciao a tutti, spero che qualcuno mi aiuti sono disperata,ho già cercato in internet ma non riesco a trovare nulla di concreto.
ho un progetto in vb.net, collegato a un db tramite dataadapter, dataset, dataview.
ho una form con all'interno 4 tabcontrol tutte collegate e funzionanti, il problema è che quando modifico un textbox le modifiche non vengono apportate al db, scrivo il codice che ho eseguito fin'ora.
ho associato levento ad un button che salva il tutto.
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.Text)
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
Ultima modifica effettuata da ruby18 il 30/04/2008 alle 9:28 |