Discussion :

[badnane2]

Salut

pour mon application j'utilise Access et VB.Net

J'ai une table nommée "Reproduction" qui contient un champ nommé "Code_animal" qui correspond au code de l'animal et un champ "date_vêlage" qui correspond à la date de vêlage de l'animal. Dans ma table le code de l'animal peut se répeter plusieurs fois avec une date de vêlage qui lui correspond.

Mon souci, c'est que je veux afficher les deux derniers date de vêlaes pour chaque animal.

j'espère que j'étais bien clair

Et merci d'avance

[scorpion1611]

En utilisant une requête avec comme critère de sélection l'animal et en attribuant 2 à la liste déroulante "premières valeurs" peut-être...

[catoucat]

C'est les dates de velage en general ou precises? "15 juin 2006" et "21 mars 2006" ou bien juste juin et mars?

Si tu as les dates completes, fais peut-etre une requete avec DiffDate entre maintenant et la date de ta table, et la cle de la table. Ensuite, trie la query par diffdate croissant et affiche les deux premieres avec cle et enregistrement correspondant (pour cette partie, peut-etre comme le suggere scorpion, je ne sais pas trop comment faire ca).

Si tu as juste le mois sans l'annee, fais la diffdate en prenant en compte que le mois de Now

[random]

Code :

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

1
2
3
4
5
6
7
 
 
SELECT a.parturiente, a.datevelage
FROM matable AS a, matable AS b
WHERE (((([b].[datevelage]))>=[a].[datevelage]))
GROUP BY a.parturiente, a.datevelage, b.parturiente
HAVING (((b.parturiente)=[a].[parturiente]) AND ((Count(b.datevelage))<=DCount("parturiente","matable","parturiente = '" & [b].[parturiente] & "'")-1));

[User]

Salut,

Le problème c'est que tu es sous VB.net donc tu ne peux pas utiliser de fonction prédéfinie dans ton sql ...

Je ne suis pas parvenu à tester le sql de Random..

Donc je te donne au cas ou 1 autre sql:

Code :

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

1
2
3
4
SELECT Reproduction.Code_Animal, Reproduction.Date_Velage
FROM Reproduction
WHERE (((DCount("*","Reproduction","([Code_Animal]= " & Chr(39) & [Reproduction].[Code_Animal] & Chr(39) & ") And ([Date_Velage]<=" & CLng([Date_Velage]) & ")")+1)>=DCount("*","Reproduction","[Code_Animal]= " & Chr(39) & [Reproduction].[Code_Animal] & Chr(39))))
ORDER BY Reproduction.Code_Animal, Reproduction.Date_Velage;

@ +

[random]

user si tu as une table nommée matable deux champs nommés parturiente
et datevelage il suffit de faire une copie du sql

[User]

@ Random

Oui, ca ok , mais en fait ta requête me sort parfois les 3 dates de velage par code (et comme il veut les 2 dernières date de velage..)..

cela dit ton approche consistant à utiliser la fonction DCount plutôt qu'une fonction prédéfinie est la bonne (le sql sous vb.net ne permet pas d'utiliser de telles fonctions, me trompes-je ?? ):

[random]

oui tu te trompes voici la même chose en sql pur
les sous requêtes sont un peu plus difficile à manier mais plus performantes
notamment si l'indexation a été un peu dopée

Code :

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

1
2
3
4
5
6
7
 
select parturiente,datevelage from
(SELECT a.parturiente, a.datevelage, Count(b.datevelage) AS nb
FROM matable AS a, matable AS b
WHERE (((b.parturiente)=[a].[parturiente]) AND ((b.datevelage)>=[a].[datevelage]))
GROUP BY a.parturiente, a.datevelage
HAVING (((Count(b.datevelage))<=2)));

[User]

@ Random,

non je ne crois pas, pour ta 1ère requête, après avoir crée matable avec les 2 champs et copié ton sql n°1 dans une requête il me renvoi 3 dates par parturiente,

cela dit on va pas se prendre la tête pour 1 petit problème Access
(et en plus c'est même pas moi qui est ouvert la discussion..)

Pour ton sql n°2 erreur dans la clause From mais ca doit venir de ma version Access 97...

et tu n'as pas répondu a ma question les fonctions prédéfinis dans 1 sql et sous vb.net ca marche ou pas ???

Merci pour ta réponse Random

[badnane2]

salut catoucat
dans ma table "Reproduction", j'ai plusieur Codes animal, chaque code animal peut se repeter plusieurs fois. c'est-à-dire que pour une animal il peut y avoir plusieurs date de velage. mois ce que je veux, c'est d'afficher les deux dernieres dates de velage pour chaque animal.

Pour les autres codes que vous avez proposé ça marche pas avec. mais j'ai un code qui affiche les résultats correctement au niveau du generateur des requetes (l'assistant), mais avant l'exécution il y a un message d'erreur.

le code est comme suit:


SELECT TOP 2 reproduction.date_velage, reproduction.code_animal, exploitant.code_exploitant
FROM ((exploitant INNER JOIN
vache ON exploitant.code_exploitant = vache.code_exploitant) INNER JOIN
reproduction ON vache.code_animal = reproduction.code_animal)
WHERE (exploitant.code_exploitant = ?) AND (reproduction.code_animal = ?)
ORDER BY reproduction.date_velage DESC


comme vous avez pu remarquer que c'est une requete parametrée. pour cela j'ai mis le code suivant :

daVel_Vel.SelectCommand.Parameters("code_exploitant").Value = 1
daVel_Vel.SelectCommand.Parameters("code_animal").Value = 100

daVel_Vel.Fill(DsVel_Vel1)

mais quans j'execute j'ai le message d'erreur suivant :

Informations supplémentaires : Un OleDbParameter avec ParameterName 'code_exploitant' n'est pas contenu dans ce OleDbParameterCollection.

merci d'avance

[User]

Salut,

remplace dans le where le ? par [param1] et [param2]:

Code :

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

WHERE (exploitant.code_exploitant = [param1]) AND (reproduction.code_animal = [param2])

et après tu fais:

Code :

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

1
2
3
4
5
6
7
daVel_Vel.SelectCommand.Parameters(0).Value = 1
daVel_Vel.SelectCommand.Parameters(1).Value = 100
 
ou
 
daVel_Vel.SelectCommand.Parameters("param1").Value = 1
daVel_Vel.SelectCommand.Parameters("param2").Value = 100

@+