je veux remplir les tables avec le code suivant :

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
requete = " select * from routeur where adresse_ip ='" & MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 3, j) & "'"
 
Rsss.Open requete, cnn, adOpenKeyset, adLockOptimistic
 
If Rsss.RecordCount > 0 Then
Do While Not Rsss.EOF
num = Rsss.Fields("num_serie")
Loop
 
Rsss.Close
 
requete = "select * from ALERTE"
Rss.Open requete, cnn, adOpenKeyset, adLockOptimistic
Rss.AddNew
Rss.Fields("num_serie") = num
Rss.Fields("DATE_PANNE") = Now()
Rss.Fields("HEURE_PANNE") = Now()
Rss.Fields("type_equi") = "routeur"
r = Rss.Fields("REFERENCE_ALERTE")
Rss.Update
 
requete = "select * from UTILISATEUR where login = '" & frmAuthentification.textlogin.Text
Ru.Open requete, cnn, adOpenKeyset, adLockOptimistic
u = Ru.Fields("CIN")
 
requete = "select * from DECISION "
Rd.Open requete, cnn, adOpenKeyset, adLockOptimistic
Rd.AddNew
Rd.Fields("REFERENCE_ALERTE") = r
Rd.Fields("CIN") = u
Rd.Fields("traité") = "non"
Rd.Fields("type_equi") = "routeur"
Rd.Update
Rd.Close
Ru.Close
Rss.Close
 
End If
le message d'erreur c'est operation is not allowed when the object is open au niveau de Rsss.Open requete, cnn, adOpenKeyset, adLockOptimistic . j'ai suivi le programme est j'ai remarqué qu'il ne prend pas l'adresse ip .

SVP aider moi