Bonjour,

Lors de l'exécution de mon script une erreur que je ne parviens pas à corrigé appariait :

Impossible d'utiliser cette connexion pour effectuer cette opération. elle est fermée ou non valide dans ce contexte

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
Set cnx = New ADODB.Connection
 
    'Instanciation des variables de connexion
    host = ""
    dsn = ""
    user = ""
    password = ""
    bdd = ""
 
 
    'Début de la connection
    'Définition de la chaîne de connexion
    cnx.ConnectionString = "DSN=" & dsn & ";UID=" & user & ";PWD=" & password & ";"
 
    'ouverture de la base de donnée
    cnx.Open
    'MsgBox cnx.State
 
    'pouvoir facilement paramétrer les requêtes mêmes les SELECT
    Set cmd = New ADODB.Command
 
    'rajouter un objet Parameter à l'objet Command
    Dim param1 As ADODB.Parameter
    Set param1 = New ADODB.Parameter
 
    Dim param2 As ADODB.Parameter
    Set param2 = New ADODB.Parameter
 
 
    'jeu d'enregistrements retournés lors de l'exécution d'un SELECT
    'Set result = New ADODB.Recordset
 
    'Préparation de l'objet Command
    cmd.CommandText = "INSERT INTO USERS (NOM,PRENOM,L,DATE_ACCESS) VALUES (?,'TEST','TEST',NOW())"
    cmd.Prepared = True
    'cmd.CommandText = "SELECT * FROM T_USERS WHERE NOM = ?;"
    'Préparation du paramètre
    param1.Name = "nom" 'Nom du champ correspondant
    param1.Type = adVarChar 'Type du champ
    param1.Direction = adParamInput 'Type de paramètre : Entrée, Sortie, Entrée/Sortie
    param1.Size = 10 'Taille maximale du champ
    param1.Value = nom 'Valeur du paramètre
 
 
    cmd.Parameters.Append param1
 
 
    'Préparation du paramètre
    param2.Name = "l" 'Nom du champ correspondant
    param2.Type = adVarChar 'Type du champ
    param2.Direction = adParamInput 'Type de paramètre : Entrée, Sortie, Entrée/Sortie
    param2.Size = 10 'Taille maximale du champ
    param2.Value = l 'Valeur du paramètre
    cmd.Parameters.Append param2
 
 
    'Exécution de la requête
    cmd.Execute
J'ai beau retourner mon code dans tout les sens je ne parviens pas à corriger cette erreur.