23/07/22 15:40
gnapolitano@teletu.it
Ho scritto questa parte codice perchè sto cercando di modificare la tabella che fornisce i dati a TempTabRegioni (è la tabella access regioni (vedi query in form1_load)):
Concretamente,modifico la riga della regione ABRUZZO e la riscrivo in ABBRUZZO.Poi, salvo il nuovo valore nella tabella (che è in memoria), ma ...come posso aggiornare anche la tabella di access?
Public Class Form1 Dim ds As New DataSet("myDS") Dim tempTabRegioni As DataTable = New DataTable Dim cl As New Class1 Dim query As String Dim indice As Integer = 0 Dim nuovaRiga As DataRow Private Sub SaveItem_Click(sender As Object, e As EventArgs) Handles SaveItem.Click Me.Validate() Me.REGIONIBindingSource.EndEdit() tempTabRegioni.Rows(indice).Item(1) = "ABBRUZZO" If ds.HasChanges Then ds.AcceptChanges() REGIONITableAdapter.Update(TabelleENASDataSet) End If End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load cl.connessione() query = "Select cr,regione from regioni order by regione" tempTabRegioni = cl.tabella(query) DGV.DataSource = tempTabRegioni ds.Tables.Add(tempTabRegioni) aggiornadb() End Sub Sub aggiornadb() CRTextBox.Text = tempTabRegioni.Rows(indice).Item(0) REGIONETextBox.Text = tempTabRegioni.Rows(indice).Item(1) End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim conta = tempTabRegioni.Select("regione ='ABBRUZZO'") MsgBox("trovati record:" & Val(conta)) End Sub
Concretamente,modifico la riga della regione ABRUZZO e la riscrivo in ABBRUZZO.Poi, salvo il nuovo valore nella tabella (che è in memoria), ma ...come posso aggiornare anche la tabella di access?