Discussion :

[jacko842]

Bonjour je commence l ado avec sql et je n'arrive pas a mettre a jour le data grid lors d"un delete cascade

voici mon 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
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
70
71
72
73
74
75
Dim con As New Connection 'Déclaration des variables,Instanciation des variables
Dim rst As New Recordset 'Déclaration des variables,Instanciation des variables
Dim str_requete_nom As String
Dim str_requete_produit As String
Private Sub bou_effacer_Click()
Dim int_rel As Integer
 
int_rel = rst.Fields(1)
con.Execute "DELETE FROM `nom_tbl` WHERE `rel` =" & int_rel
 
Call FONC_EXEC_REQUETE(str_requete_nom, rst, con)
rst.Update
Set rst = Nothing
 
Call FONC_EXEC_REQUETE(str_requete_produit, rst, con)
 
 
End Sub
 
Private Sub Form_Load()
 
'Connexion à la base de données
con.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                        & "SERVER=" & "127.0.0.1" & ";" _
                        & "DATABASE=" & "exo1" & ";" _
                        & "UID=" & "root" _
                        & ";"
'Ouverture de la base de données
con.Open
 
str_requete_produit = "Select * from produit_tbl"
str_requete_nom = "Select * from nom_tbl"
 
Call FONC_EXEC_REQUETE(str_requete_produit, rst, con)
 
Set datagrid_produit.DataSource = rst
 
Set rst = Nothing 'libere le rst
 
Call FONC_EXEC_REQUETE(str_requete_nom, rst, con)
 
Set datagrid_nom.DataSource = rst
 
'Set rst = Nothing 'libere le rst
End Sub
 
Public Function FONC_EXEC_REQUETE(str_req As String, ByRef rst As Recordset, ByRef con As Connection) As Boolean
'============================================================================='
' FUNCTION : FONC_EXEC_REQUETE(...)
' DESCRIPTION : Execute une requête SQL
' PARAMS : * str_req : Requête à exécuter
'          * rst : Variable permettant de stocker les enregistrements
'============================================================================='
    'Initialisation du RecordSet
    If rst.State <> adStateClosed Then rst.Close
 
    'Positionne le curseur côté client
    rst.CursorLocation = adUseClient
 
    'Vérifie que la connexion passée est bonne
    Set rst.ActiveConnection = con
 
    On Error GoTo ErrRequete
    'Exécute la requête
    rst.Open str_req, con, adOpenDynamic
 
    FONC_EXEC_REQUETE = True
 
    Exit Function
ErrRequete:
    FONC_EXEC_REQUETE = False
 
    MsgBox "ADOManager.FONC_EXEC_REQUETE:ErrRequete" & vbCr & vbCr & Err.Description, vbCritical
 
End Function

Merci d'avance

[hugoclo]

Salut,
Je ne suis pas un habitué d'ado mais il me semble que dans l'evenement clique de ton bouton effacer il te manque

Code :

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

Set datagrid_nom.DataSource = rst

a la fin afin de mettre à jour ton datagrid.
Je n'en suis pas sur, à essayer.

[jacko842]

Ok mais quoi a chaque fois que je vais faire des modifications dans mon datagrid je vais devoir reballancer tous mon rst dans le datagrid il ne se met pas a jour par lui même ????

Bizart en dao je faisais un rst.refresh mais ici on sait pas!!!!

Merci d'avance