REQUETEUR DE BASE DE DONNEES TRES SIMPLE D'UTILISATION ET TRES INTERESSANT DANS SON PRINCIPE

Commentaire de zavier666 le 04/09/2007 16:53:32

On a pas tous Access (vu son prix) un fichier exemple serait le bien venu

Sinon très bon code, didactique !

slts!
------------------------------------------------
Toujours + de VB et d'API => APi @ la Loupe
http://apialaloupe.free.fr

Commentaire de asimengo le 05/09/2007 14:20:06

Une note "négative" sans commentaire ne signifie rien, mais ceux qui se sont déjà frottés à ce genre de problème sauront en tirer profit, désolé pour ceux qui n'aime pas Access.

Commentaire de asimengo le 05/09/2007 16:56:05

@Zavier666: Comme je disais plus haut, j'utilise une fonction dans "Microsoft Access 11.0 Objects Library", la fonction BuildCriteria sinon effectivement, comme pour d'autres sources ici même on aurait pas besoin d'avoir Access. Où je suis on trouve Access à tout bout de chemin ce qui explique mon reflexe, mais ce ne serait pas trop compliqué de reécrire la fonction BuiltCriteria.

Voir definition de cette fonction (aide Access)

Méthode BuildCriteria
La méthode BuildCriteria retourne une chaîne de critères analysée, telle qu'elle apparaîtrait dans la grille de création de la requête, en mode Filtrer par formulaire ou en mode Filtrer par formulaire (serveur). Par exemple, vous souhaiterez peut-être définir la propriété Filter ou ServerFilter d'un formulaire à partir de divers critères spécifiés par l'utilisateur. Utilisez la méthode BuildCriteria pour construire l'argument constitué d'une expression chaîne pour la propriété Filter ou ServerFilter. Chaîne.

expression.BuildCriteria(Champ, TypeChamp, Expression)
expression      Requise. Expression renvoyant l'un des objets figurant dans la liste Application.

Champ     Chaîne requise. Expression chaîne identifiant le champ pour lequel vous souhaitez définir des critères.

TypeChamp     Entier obligatoire. Constante intrinsèque indiquant le type de données du champ. Peut être défini comme étant une des valeurs DataTypeEnum DAO.

expression     Chaîne requise. Expression chaîne identifiant les critères à analyser.

Remarques
La méthode BuildCriteria retourne une chaîne.

La méthode BuildCriteria vous permet de construire facilement les critères d'un filtre à partir d'une réponse de l'utilisateur. Elle analyse l'argument expression de la même manière que si cette expression avait été saisie dans la grille de création de la requête, en mode Filtrer par formulaire ou en mode Filtrer par formulaire (serveur).

Par exemple, un utilisateur qui crée une requête sur une table Orders (Commandes) peut limiter le jeu de résultats aux commandes passées après le 1er janvier 1995 en définissant des critères sur le champ OrderDate (DateCommande). Cet utilisateur peut entrer une expression comme celle qui suit dans la ligne Critères sous le champ OrderDate :

>1-1-95

Microsoft Access analyse automatiquement cette expression et retourne l'expression suivante :

>#1/1/95#

La méthode BuildCriteria produit la même analyse à partir du code Visual Basic. Par exemple, pour retourner la chaîne correctement analysée qui précède, fournissez les arguments suivants à la méthode BuildCriteria :

Dim strCriteria As String
strCriteria = BuildCriteria("OrderDate", dbDate, ">1-1-95")

Étant donné que vous devez fournir des critères à la propriété Filter sous une forme correctement analysée, vous pouvez utiliser la méthode BuildCriteria pour construire une chaîne correctement analysée.

Utilisez la méthode BuildCriteria pour construire une chaîne à plusieurs critères si ceux-ci font référence au même champ. Par exemple, vous pouvez utiliser la méthode BuildCriteria avec les arguments suivants pour construire une chaîne à plusieurs critères se rapportant au champ OrderDate :

strCriteria = BuildCriteria("OrderDate", dbDate, ">1-1-95 and <5-1-95")

Cet exemple retourne la chaîne de critères suivante :

OrderDate>#1/1/95# And OrderDate<#5/1/95#

Cependant, si vous souhaitez construire une chaîne de critères faisant référence à plusieurs champs, vous devez la créer et la concaténer vous-même. Par exemple, si vous souhaitez construire des critères pour un filtre afin d'afficher les enregistrements pour les commandes passées après le 1-1-95 et pour lesquelles les frais de port sont inférieurs à 50 F, vous devez utiliser la méthode BuildCriteria à deux reprises et concaténer les chaînes résultantes.

Exemple
L'exemple suivant demande à l'utilisateur d'entrer les premières lettres du nom d'un produit, puis il utilise la méthode BuildCriteria pour construire une chaîne de critères à partir de sa réponse. Ensuite, la procédure fournit cette chaîne comme argument de la propriété Filter du formulaire Products. Enfin, la propriété FilterOn est définie afin d'appliquer le filtre.

Sub SetFilter()
    Dim frm As Form, strMsg As String
    Dim strInput As String, strFilter As String

    ' Open Products form in Form view.
    DoCmd.OpenForm "Products"
    ' Return Form object variable pointing to Products form.
    Set frm = Forms!Products
    strMsg = "Enter one or more letters of product name " _
        & "followed by an asterisk."
    ' Prompt user for input.
    strInput = InputBox(strMsg)
    ' Build criteria string.
    strFilter = BuildCriteria("ProductName", dbText, strInput)
    ' Set Filter property to apply filter.
    frm.Filter = strFilter
    ' Set FilterOn property; form now shows filtered records.
    frm.FilterOn = True
End Sub

Commentaire de asimengo le 28/09/2007 10:54:25

@LUSTRUCRU: Non, je suis pour le moment seulement VB6. Mais je pense que ça ne devrait pas être difficile de le traduire en VB2005.