Discussion :

[zooffy]

Bonjour à tous

J'ai un souci avec l'ouverture d'un RecordSet; Voici mon code :

Code :

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

1
2
3
 
Dim rsJourFerie As Recordset
Set rsJourFerie = DataDb.OpenRecordset("SELECT * FROM JourFerie WHERE DateJourFerie = #" & DateTravail & "# AND CodeMonnaie='" & CodePays & "'")

Lorsque je lance ça il me dit : Too few parameters. Expected 2.

J'ai bien compris qu'il me parle de ma clause where parce que au départ j'avais que la date et j'avais Expected 1.

J'ai donc parcouru la doc et le web et je ne comprends pas comment je lui met la clause Where pour qu'il comprenne ce que je veux.

Je suis un poil dépassé et j'ai besoin de votre aide.

Merci d'avance et un bon Lundi à tout le monde.

[Jean-Philippe André]

Hello,

deux possibilites :
- le nom de tes champs n'est pas le bon
- les variables ne sont pas reconnues comme correctes.

Fais un essai avec

Code :

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

Msgbox "SELECT * FROM JourFerie WHERE DateJourFerie = #" & DateTravail & "# AND CodeMonnaie='" & CodePays & "'"

pour constater le contenu de ta requete, recopie le contenu dans une requete dans ton IHM access et regarde a quel endroit ca te remonte une erreur

[zooffy]

Merci pour ton aide.
Alors la chaine interprétée donne cela : SELECT * FROM JourFerie WHERE DateJourFerie = #9/25/2017# AND CodeMonnaie='001'

Lorsque je la colle dans une Query cela me remonte zero enregistrement, mais c'est normal et lorsque je change la date pour avoir un enregistrment, j'ai le bon. En tout cas je n'ai aucun message d'erreur.

Et les deux variables sont bien intégrées, je ne vois aucun souci là-dessus.

Bref, je suis un peu perdu.

[Jean-Philippe André]

Ok,
regardons du cote du recordset en lui meme, tu travailles sur un DAO c'est bien cela ?

Lorsque tu compiles le code, ca passe egalement ?

[zooffy]

Alors, je suppose que tu parles de ça :

Code :

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

1
2
3
Dim DataDb As DAO.Database
Set DataDb = OpenDatabase("\\mon.server\GroupShares\Mon_Data.accdb")
Dim rsJourFerie As Recordset

Sinon, la compilation passé nickel.

[Jean-Philippe André]

Ok, on va restreindre le champ des possibles en 3 etapes
1/

Code :

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

1
2
Dim rsJourFerie As Recordset
Set rsJourFerie = DataDb.OpenRecordset("SELECT * FROM JourFerie")

2/

Code :

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

1
2
Dim rsJourFerie As Recordset
Set rsJourFerie = DataDb.OpenRecordset("SELECT * FROM JourFerie WHERE DateJourFerie = #" & DateTravail & "#")

3/

Code :

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

1
2
Dim rsJourFerie As Recordset
Set rsJourFerie = DataDb.OpenRecordset("SELECT * FROM JourFerie WHERE CodeMonnaie='" & CodePays & "'")

ca passe ou non ?

[zooffy]

Ok, alors Code 1 : ça passe nickel
Code2 et Code 3 même message que précédement sauf le Expected qui a 1.

Too few parameters. Expected 1.

Je n'arrive pas à comprendre cette hsitoire de paramètres d'autant plus que j'ai d'autres recordset ailleurs qui marche bien avec cette formulation.

Si tu y comprends quelque chose........

[Invité]

Bonjour,

Code :

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

 WHERE DateJourFerie = #2017-09-25# AND CodeMonnaie='001'

[zooffy]

Merci pour ton aide mais même potif, meme punition.

Par contre j'ai testé un truc qui me titillait depuis quelques heures :

Code :

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

1
2
3
4
5
 
Dim DataDb As Database
Set DataDb = OpenDatabase("\\mon.server\GroupShares\Mon_Data.accdb")
Dim rsJourFerie As Recordset
Set rsJourFerie = CurrentDb.OpenRecordset("SELECT * FROM JourFerie WHERE DateJourFerie = #" & DateTravail & "# AND CodeMonnaie='" & CodePays & "'")

Et bizarrement là, ça marche. Sauf que, là je suis obligé de faire un Link de la table JourFerie qui se trouve ailleurs que dan la base courante. Et donc, ce n'est pas possible.

Une idée avec cette nouvelle donnée ?

[Invité]

Code :

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

1
2
3
set rsJourFerie = CurrentDb.OpenRecordset("SELECT * FROM JourFerie WHERE DateJourFerie = #" & format(DateTravail,"yyyy-mm-dd") & "# AND CodeMonnaie='" & CodePays & "'")

[zooffy]

Pardon, je me suis mal exprimé : l'idée c'est de ne PAS utiliser CurrentDb mais la lien sur ma base distante.

[Invité]

Code :

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

1
2
3
4
5
6
7
 
    '--- Connexion ---
    With Createobject("ADODB.Connection")
        .open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\mon.server\GroupShares\Mon_Data.accdb;"""
Set rsJourFerie = .execute("SELECT * FROM JourFerie WHERE DateJourFerie = #" & DateTravail & "# AND CodeMonnaie='" & CodePays & "'")
.close
    End With

[zooffy]

Merci pour ton code.

ça à l'air de réagir autrement. J'ai jsute fermé la chaine à la fin de CodePays parce qu'il manqué un & "'" mais sinon, j'ai un autre message d'erreur :


No value given for one or more required parameters


Et là, je comprends encore moins ce qu'il veut.

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";"
 
*
    '--- Connexion ---
    With Createobject("ADODB.Connection")
        .open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\mon.server\GroupShares\Mon_Data.accdb;"
        Set rsJourFerie = .execute("SELECT * FROM JourFerie WHERE DateJourFerie = #" & DateTravail & "# AND CodeMonnaie='" & CodePays & "'")
.close
    End With

Mais tu peux utiliser ADODBRD comme monté dans ce poste!
https://www.developpez.net/forums/d1...t/#post9627581

[zooffy]

Merci pour ton aide.

Pour ADODBDR j'ai pas encore eu le temps de bien comprendre le fonctionnement et j'avoue que c'est un peu obscur pour moi. Entre des méthodes de développement qui ne me sont pas habituelles et le fait que se soit le code d'un autre, c'est pas simple pour ma petite caboche. Je dois bien avouer que c'est rudement bien codé et que je ne suis pas aussi fort que cela.

Mais je reste à me demander pourquoi le code veut tout cela pour un simple Recordset avec une requête qui contient une clause Where alors qu'ailleurs dans mes développements je fais des Recordset avec des Requêtes qui contiennent des clause Where et qui ne pose aucun problème.

Bref, je vais avancer comme je peux.

MErci et bonne journée.

[Invité]

si tu préféré!

Code avec CurrentDb :

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

Set rsJourFerie = CurrentDb.OpenRecordset("SELECT * FROM JourFerie IN '\\mon.server\GroupShares\Mon_Data.accdb' WHERE DateJourFerie = #" & Format(DateTravail, "yyyy-mm-dd") & "# AND CodeMonnaie='" & CodePays & "'")

[zooffy]

Même avec ce code, j'ai encore le message : Too few parameters.

Je comprends pas ce qu'il veut avec ses histoires de paramètres.

[elgordopresto]

Bonjour zooffy,

Juste au cas où... Tu as regardé du côté du format de la date. J'ai souvent des problèmes de ce type quand je manipule des dates et parfois c'est tout simplement du au format de la date qui n'est pas le bon...

Bien à toi
el

[zooffy]

Merci pour ton aide.

Oui, j'ai évacué ce souci grâce aux tests de JPA. Ce n'est pas un problème de format de date, c'est un problème de paramètre qu'il réclame lorsque je pointe sur un fichier Distant et qu'il ne demande plus si je passe en CurrentDb.

[Invité]

Bonjour,
Login Pass word?