Discussion :

[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. Hélas le 1er enregistrement communique son résultat aux AUTRES.
voici le code:

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
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

[Pragmateek]

Ça ne serait pas plutôt:

Code :

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

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

?

[rv26t]

Bonjour,

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 :

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

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 :

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

        Ajoute(4)

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

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
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 :

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

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 :

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

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

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

[keunene]

merci infiniment à tous