[Débutant] modifier des enregistrements simultanément dans une base access en vb.net

modifier des enregistrements simultanément dans une base access en vb.net

Bonjour,
je cherche de l'aide en vb.net.je voudrais dans une bd access donner un + 4 à tous les enregistrements d'un champ en même temps. par exemple si A est 2 ET que B est 5, je voudrais avoir A=6 et B = 9. Hélas le 1er enregistrement communique son résultat aux AUTRES.
voici le code:

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
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Try        
            RS.Open("select * from OPB ", CN, 3, 3)
            Dim balanca As Double = RS.Fields("Balance").Value
            Dim j As Double = 3.5 / 1000
            Dim interet As Double
            Dim total As Double
 
            interet = RS.Fields("Balance").Value * j
            total = interet + balanca
            LinkLabel1.Text = interet.ToString
            cone.Open()
            Dim cmd As New OleDbCommand("update OPB set Balance =  total ", cone)
            With cmd.Parameters
                .AddWithValue("@phone", cboCID.Text)
 
                cmd.ExecuteNonQuery()
 
            End With
            MsgBox("intérêt ajouté avec succès", MsgBoxStyle.Information, "intérêt")
 
            cone.Close()
 
        Catch
        End Try
 
    End Sub

merci

Ça ne serait pas plutôt:

Code:

New OleDbCommand("update OPB set Balance = " + total, cone)

?

Bonjour,

Citation:

Envoyé par keunene

Bonjour,
je cherche de l'aide en vb.net.je voudrais dans une bd access donner un + 4 à tous les enregistrements d'un champ en même temps. par exemple si A est 2 ET que B est 5, je voudrais avoir A=6 et B = 9.

Pour ajouter un entier à toutes les lignes d'une colonne numérique

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    Sub Ajoute(valeur As Integer)
        Try
            Dim MaRequete As String = "update OPB set balance = balance + ?"
            Using cn As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =d:\TonChemin\TaBDD.accdb"), cmd As New OleDbCommand(MaRequete, cn)
                cmd.Parameters.Add(New OleDb.OleDbParameter("?", OleDbType.Integer)).Value = valeur
                cn.Open()
                cmd.ExecuteNonQuery()
            End Using
        Catch ex As Exception
            MessageBox.show(ex.ToString)
        End Try
    End Sub

Appel

Code:

Ajoute(4)

Citation:

Envoyé par keunene

Hélas le 1er enregistrement communique son résultat aux AUTRES.

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
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Try        
            RS.Open("select * from OPB ", CN, 3, 3)
            Dim balanca As Double = RS.Fields("Balance").Value
            Dim j As Double = 3.5 / 1000
            Dim interet As Double
            Dim total As Double
 
            interet = RS.Fields("Balance").Value * j
            total = interet + balanca
            LinkLabel1.Text = interet.ToString
            cone.Open()
            Dim cmd As New OleDbCommand("update OPB set Balance =  total ", cone)
            With cmd.Parameters
                .AddWithValue("@phone", cboCID.Text)
 
                cmd.ExecuteNonQuery()
 
            End With
            MsgBox("intérêt ajouté avec succès", MsgBoxStyle.Information, "intérêt")
 
            cone.Close()
 
        Catch
        End Try
 
    End Sub

Pour un nombre à virgule représentant un poucentage

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    Sub aj(valeur As Double)
        Try
            Dim MaRequete As String = "update OPB set balance = balance + (balance * ?)"
            Using cn As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =d:\TonChemin\TaBDD.accdb"), cmd As New OleDbCommand(MaRequete, cn)
                cmd.Parameters.Add("?", OleDbType.Double, 8, "balance").Value = Double.Parse(valeur)
                cn.Open()
                cmd.ExecuteNonQuery()
            End Using
        Catch ex As Exception
            MessageBox.show(ex.ToString)
        End Try
    End Sub

Appel

Code:

1
2
        Dim valeur As Double = 3.5 / 100
        aj(valeur)

Avec balance défini en monétaire dans access (v 2007)

merci

merci infiniment à tous