Discussion :

[chaima01]

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

[OhMonBato]

On peut voir ta chaine de connexion ? Es tu sur que ta connexion est toujours ouverte quand ce code s'execute ?

[chaima01]

voici la chaine de connexion , elle se trouve dans un module et je suis sur que la connexion est ouvert .

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Public cnn As New ADODB.connection
 
Public Function connexion_cnn() As Boolean
 
cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BDD;Data Source=.\SQLEXPRESS;Initial File Name=D:\application PFE\BDD\BDD.mdf"
cnn.Open
 
End Function

[ProgElecT]

Salut

operation is not allowed when the object is open = l'opération n'est pas autorisée lorsque l'objet est ouvert

Code :

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

1
2
3
requete = " select * from routeur where adresse_ip ='" & MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 3, j) & "'"
 If Rsss.State <> adStateClosed Then Rsss.Close
Rsss.Open requete, cnn, adOpenKeyset, adLockOptimistic