Discussion :

[Mario Rousson]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mario Rousson]

bon j'ai réussi de cette façon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Function ExecuterCommandeUpdate(ByVal Str As String) As Integer
        Dim Strs() As String = Str.Split("¤"c)
 
        Dim SQl As String = "UPDATE TblCompagnie SET Adresse=@Adresse WHERE IdAutoComp=@IdComp"
        Try
            Me.OuvrirConnexion()
            Dim Cmd As New OleDbCommand
            With Cmd.Parameters
                .Add(New OleDbParameter("@Adresse", OleDb.OleDbType.VarChar))
                .Add(New OleDbParameter("@IdComp", OleDb.OleDbType.Integer))
            End With
            With Cmd
                .Parameters("@Adresse").Value = Strs(1)
                .Parameters("@IdComp").Value = CInt(Strs(0))
                .Connection = Me._cn
                .CommandType = CommandType.Text
                .CommandText = SQl
                Return Cmd.ExecuteNonQuery
            End With
        Catch ex As Exception
            Console.WriteLine(ex.Message)
            Throw New ApplicationException("La mise à jour à échoué ", ex)
 
        Finally
            Me.FermerConnection()
        End Try
    End Function