Discussion :

[deedolith]

Bonjour,

Je souhaite exécuter une requête UPDATE paramétré, ADO ne me signale aucune erreur mais le requête ne met à jour aucune lignes.
Ma requête:

Code :

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

1
2
3
4
5
6
UPDATE  Ressource INNER JOIN Consomme
            ON Ressource.ID = Consomme.IDRessource
SET Consomme.dDateValidation = Date(),
    Consomme.IDRessourceValidateur = @IDValidateur
WHERE   Consomme.dDateConsomme IN (@DatesConsomme)
AND     Ressource.vMatricule = @UID;

Code VBA:

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
Dim Sql As String    '// texte de la requête, je passe sur l'initialisation
 
Dim Cn As ADODB.Connection     '// Je passe egalement sur l'initalisation de la connection
 
Dim Cmd As ADODB.Command
Set Cmd = New ADODB.Command
Set Cmd.ActiveConnection = Cn
Cmd.CommandType = adCmdText
Cmd.CommandText = Sql
 
Cmd.Parameters("@IDValidateur").Value = 21
Cmd.Parameters("@UID").Value = "AXBFCND"
Cmd.Parameters("@DatesConsomme").Value = "#08/01/2024#, #08/02/2024#, #08/03/2024#"
 
Dim RecordsAffected As Long
Cmd.Execute RecordsAffected

après execution, RecordsAffected reste à 0, ce qui confirme qu'aucune ligne n'a été mise à jour.
Alors que si j'execute la requête dans le requêteur d'Acces en substituant les paramètres par leurs valeurs, des lignes sont mises à jour.

[User]

Bonjour,

Je m'interroge sur cette ligne :

Code :

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

Cmd.Parameters("@DatesConsomme").Value = "#08/01/2024#, #08/02/2024#, #08/03/2024#"

tu devrais avoir comme résultat dans la clause Where du SQL :

Code SQL :

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

1
2
3
...
WHERE  Consomme.dDateConsomme IN ("#08/01/2024#, #08/02/2024#, #08/03/2024#")
...

Alors que tu souhaiterais avoir il me semble :

Code SQL :

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

1
2
3
...
WHERE  Consomme.dDateConsomme IN (#08/01/2024#, #08/02/2024#, #08/03/2024#)
...

Donc il ne renvoie rien..

Mais dans ce cas comment passer cette liste de dates ?

Normalement on utiliserait une chaîne SQL à la place pour insérer la valeur du paramètre :

Code :

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

1
2
LeSQL= "..." & _
"WHERE  Consomme.dDateConsomme IN (" & @DatesConsomme & ")"

Cdlt

[Thumb down]

Bonjour,
Dans la mesure où il n'y a que dans Access ou on encadre les dates par de # et que dans Access on définit les paramètres dans Un requête par des ? et pas part des @champ difficile de répondre.

Tu fais due connexion SQL serveur, Oracle, MySQL ?

[deedolith]

@user:
Ta première remarque est surprenante, les guillemet délimitant les chaînes de caractères ne font pas partie de la valeur de ces dernières.

Concernant ta seconde, lorsque je construit la requête par concaténation, les données sont bien mises à jour.
Cependant, je préfèrerais éviter, l'utilisation de paramètre fait gagner en lisibilité et versatilité, et je charge toutes les requêtes dans une collection, ainsi elles restent constantes (plus facile à debugger).
Faute de mieux, je peux faire des substitutions et mémoriser le résultat dans une nouvelle variable(bof..., traitement particulier et redondance).

@Thumb down:
Les paramètres nommés fonctionnent aussi avec MsAccess, mais la connection n'est pas le sujet. J'aurais les même soucis en me connectant à une base de données quelconque.

[User]

@user:
Ta première remarque est surprenante, les guillemet délimitant les chaînes de caractères ne font pas partie de la valeur de ces dernières.

La valeur de ton paramètre est de type texte :

Code :

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

Cmd.Parameters("@DatesConsomme").Value = "#08/01/2024#, #08/02/2024#, #08/03/2024#"

donc :

Code SQL :

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

WHERE  Consomme.dDateConsomme IN (@DatesConsomme)

va donner :

Code SQL :

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

WHERE  Consomme.dDateConsomme IN ("#08/01/2024#, #08/02/2024#, #08/03/2024#")

Si tu avais plusieurs paramètres de type date :

Code :

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

1
2
3
Cmd.Parameters("@DatesConsomme1").Value = #08/01/2024# 
Cmd.Parameters("@DatesConsomme2").Value = #08/02/2024#
Cmd.Parameters("@DatesConsomme3").Value = #08/03/2024#

Alors :

Code SQL :

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

WHERE  Consomme.dDateConsomme IN (@DatesConsomme1, @DatesConsomme2, @DatesConsomme3)

te donnerais bien :

Code SQL :

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

WHERE  Consomme.dDateConsomme IN (#08/01/2024#, #08/02/2024#, #08/03/2024#)

Pour la deuxième option j'insère une sous-chaîne dans la chaîne sql principale sans encadrer la sous-chaîne de guillemets supplémaires, donc je compose simplement le code SQL un peu comme avec l'éditeur SQL.

Cdlt,

[deedolith]

Ok, les types de données, ça a du sens.

Par contre, comment affecter une liste à un paramètre (si c'est possible), le mystère est toujours aussi épais.

[Thumb down]

Les paramètres nommés fonctionnent aussi avec MsAccess, mais la connection n'est pas le sujet. J'aurais les même soucis en me connectant à une base de données quelconque.

Bonjour,
Tu as raison mais STRING_SPLIT n'est pas une instruction SQL Access!

Et si tu utilises access pas besoin d'ado !

En revanche tu peux créer cette fonction sous accès VBA mais là pas d'ado.

[deedolith]

STRING_SPLIT ? Ou veux-tu en venir ? Je n'utilise rien de tel.

Quand à la connection, j'aurais du préciser que l'application se connectant à la base de données n'est pas MsAcces.

[Thumb down]

Code :

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

WHERE   format(Consomme.dDateConsomme ,'yyyy-mm-dd') IN (STRING_SPLIT(@DatesConsomme,','))

Code PostgreSQL :

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

WHERE TO_CHAR(dDateConsomme, 'YYYY-MM-DD') IN ( string_to_array(@DatesConsomme, ','))

après j'arête vu que la base cible est confidentielle!

[deedolith]

De mémoire, ce que tu proposes ne fonctionne que si le projet VBA de la base de données est chargé (je peux me tromper), je craint de ne pas avoir ce luxe avec une back-end.

Finalement, je me suis résolu à faire des substitution avec le code SQL source, dommage ...

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
Dim Sql As String
Sql = ......
Sql = Replace(Sql, "@DatesConsomme", "#08/01/2024#, #08/02/2024#, #08/03/2024#")
 
Dim Cn As ADODB.Connection
Set Cn = ....
 
Dim Cmd As ADODB.Command
Set Cmd = New ADODB.Command
Set Cmd.ActiveConnection = Cn
Cmd.CommandType = adCmdText
Cmd.CommandText = Sql
 
Cmd.Parameters("@IDValidateur").Value = 21
Cmd.Parameters("@UID").Value = "AXBFCND"
Cmd.Execute