Ajuster un update

Bonjour

je suis dans la brume pour faire un update dans ma bd et je me tourne vers vos conseils pour m'éclairer.

1 er: est ce que je procède de la bonne façon pour charger mon dataset

dans ma form1 d'un form mdi je procède comme suit pour charger mon dataset

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub ChargementDataSet(DTable As String)
 
        Dim da As OleDbDataAdapter
        Select Case DTable
            Case "TblSymbole"
                If _DsNYNasdac.Tables.Contains("TblSymbole") Then
                    _DsNYNasdac.Tables("TblSymbole").Clear()
                End If
                da = New OleDbDataAdapter("SELECT TblSymbole.IdAutoSymb, TblSymbole.Symbole, TblSymbole.[Actif] FROM TblSymbole WHERE (((TblSymbole.[Actif])=True));", My.Settings.CSNYNasdac)
                da.Fill(_DsNYNasdac, "TblSymbole")
                da = Nothing
            Case "TblCompagnie"
                If _DsNYNasdac.Tables.Contains("TblCompagnie") Then
                    _DsNYNasdac.Tables("TblCompagnie").Clear()
                End If
                da = New OleDbDataAdapter("SELECT TblCompagnie.* FROM TblCompagnie;", My.Settings.CSNYNasdac)
                da.Fill(_DsNYNasdac, "TblCompagnie")
                da = Nothing
            Case "TblDonner"
                If _DsNYNasdac.Tables.Contains("TblDonner") Then
                    _DsNYNasdac.Tables("TblDonner").Clear()
                End If
                da = New OleDbDataAdapter("SELECT TblDonner.* FROM TblDonner;", My.Settings.CSNYNasdac)
                da.Fill(_DsNYNasdac, "TblDonner")
                da = Nothing
            Case "TblJctSymbComp"
                If _DsNYNasdac.Tables.Contains("TblJctSymbComp") Then
                    _DsNYNasdac.Tables("TblJctSymbComp").Clear()
                End If
                da = New OleDbDataAdapter("SELECT TblJctSymbComp.* FROM TblJctSymbComp;", My.Settings.CSNYNasdac)
                da.Fill(_DsNYNasdac, "TblJctSymbComp")
                da = Nothing
        End Select
 
    End Sub

maintenant dans un autre formulaire je cherche à faire un update après avoir modifier mon dataset

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim Exp As String = "IdAutoComp='" & NumComp & "'"
 
                    Dim FindRows2() As DataRow = Form1._DsNYNasdac.Tables("TblCompagnie").Select(Exp)
                    For Each rw As DataRow In FindRows2
                        Console.WriteLine(rw.Item("NomComp"))
                        Console.WriteLine(rw.Item(1))
                        rw.Item("Adresse") = Compagnie.Adresse
 
                        'Dim Da As New OleDbDataAdapter
                        'ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
                        Console.WriteLine(rw.Item("Adresse"))
                    Next

c'est la suite qui me donne du soucie

merci de vos conseils
mario