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
J'ai beau retourner mon code dans tout les sens je ne parviens pas à corriger cette erreur.
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
Partager