Discussion :

[floriaan60]

bonjour,

j'aimerai savoir s'il est possible d'avoir des evenements differents en cliquant sur le même bouton ?
Par exemple sur le premier clique faire un insert dans la base et sur le deuxieme clique faire un update...

Merci.

[robri]

salut,

Pourquoi faire deux évènements alors que tu peux tout faire dans un seul ?

tu teste si ton enregistrement existe,
s'il existe tu le modifies,
sinon tu l'insères.

[floriaan60]

J'ai pensé oui. Mais je me suis perdu dans l'algorithme avec la connexion à la base, la requête etc...

Pouvez-vous m'éclairer ?

Merci

[floriaan60]

J'ai un formulaire avec des textBox: Nom & Montant.

SI le Nom n'existe pas encore alors j'insere le nouveau Nom avec le montant, si le Nom existe j'additionne le montant precedent avec le nouveau.

Mais pour parcourir la base il me faut une requete et un enregistrement.
Puis un autre pour inserer.
Puis une autre pour modifier.

Ca m'étoufe un peu tous ca lol

[floriaan60]

J'ai codé ceci:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Private Sub btn_enr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_enr.Click
        Dim maConnexion As OleDbConnection
        Dim maCommande, maCommande2, maCommande3 As OleDbCommand
        Dim strConnect As String
        Dim strSql, strSql2, strSql3 As String
        Dim enr1, enr2, enr3 As OleDbDataReader
 
        Dim nom, Cat As String
        Dim dat As Date
        Dim montant, regle As Double
 
        'recupération et cast des données du formulaire
        nom = txt_nom.Text
        dat = txt_date.Text
        montant = Convert.ToDouble(txt_MT.Text)
        regle = Convert.ToDouble(txt_reg.Text)
        Cat = cmb_cat.Text
 
        'mise a jour de la base de données
        Try
            'connexion a la base
            strConnect = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='C:\Documents and Settings\fdefrocourt\Bureau\Caisse\bdd_agroform.mdb';User ID=Admin;Password=;"
            maConnexion = New OleDbConnection(strConnect)
            strSql = "SELECT * FROM Encaissement"
            'Creation de l'objet contenant la req puis ouverture de la bdd
            maCommande = New OleDbCommand(strSql, maConnexion)
            maConnexion.Open()
            'execution de la requete
            enr1 = maCommande.ExecuteReader()
 
            While (enr1.Read() = True)
                If enr1("nomSal") = "" Then
                    strSql2 = "INSERT INTO Encaissement(nomSal,DateEnc,MTEnc,Regle, RAP) VALUES('" & nom & "', '" & dat & "','" & Double.Parse(montant) & "','" & Double.Parse(regle) & "','" & montant - regle & "')"
                    'Creation de l'objet contenant la req puis ouverture de la bdd
                    maCommande2 = New OleDbCommand(strSql2, maConnexion)
                    'execution de la requete
                    enr2 = maCommande2.ExecuteReader()
                End If
                If enr1("nomSal") = nom Then
                    strSql3 = "UPDATE Encaissement SET DateEnc='" & dat & "', MTEnc=MTEnc" & +montant & ", Regle=Regle" & +regle
                    'Creation de l'objet contenant la req puis ouverture de la bdd
                    maCommande3 = New OleDbCommand(strSql3, maConnexion)
                    'execution de la requete
                    enr3 = maCommande3.ExecuteReader()
                End If
            End While
 
            'fermeture de la connexion
            maConnexion.Close()
 
            MsgBox("Encaissement ajouté")
 
            txt_nom.Clear()
            txt_date.Clear()
            txt_MT.Clear()
            txt_reg.Clear()
 
        Catch err As System.Data.OleDb.OleDbException
            MessageBox.Show("ERREUR requête ACCESS:" + err.Message)
        Catch err As System.InvalidOperationException
            MessageBox.Show("ERREUR:" + err.Message)
        Catch err As Exception
            MessageBox.Show("ERREUR GRAVE:" + err.Message)
        End Try
    End Sub
 
    Private Sub btn_fermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_fermer.Click
        Me.Close()
    End Sub

Mais ni l'insert, ni l'update n'est pris en compte.
Pourquoi?

[robri]

si ta requète est vide, aucune des deux requète n'est effectuée, à cause de while qui entoure tes requètes.

donc peut être que ton select ne te retourne rien ?