Oppure

Loading
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)):
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?