Stockage de bits dans un Integer

**Mayamok** · 13/12/2006, 10h43

Bonjour.

Autant annoncer la couleur tout de suite: je suis une brèle en bases de données...

Mon problème à présent: je voudrais stocker dans ma base un tableau de booléens sous forme d'un Integer. Ce qui m'intéresse n'est donc pas tant la valeur de l'Integer que celle de chaque bit qui le constitue. Cela se fait les doigts dans le nez sous VB.NET (ou à peu près n'importe quel langage), mais qu'en est-il des requêtes?

Y'a-t-il moyen de fixer une condition (... WHERE ...) permettant de récupérer tous les enregistrements pour lesquels le troisième bit (en partant du poids faible) de ce champ est à 1, par exemple.

En vb.net, ce serait:

Code :

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

If (MonInteger AND 4) Then ...

Toute assistance sera la bienvenue

**Tofalu** · 13/12/2006, 10h48

Tu pexu très bien écrire une fonction en VBA :

Code :

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

1
2
3
Function TestBit(i As Integer, n As Byte) As Boolean
TestBit = i And n
End Function

Et tu utilises cette fonction dans ton SQL

Code :

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

1
2
3
SELECT *
FROM MATABLE
WHERE TestBit(MonChamp,4)

**Mayamok** · 13/12/2006, 10h55

Merci, c'est ce qu'on appelle une procédure stockée?

**Tofalu** · 13/12/2006, 10h57

Non, c'est une fonction VBA

C'est un peu comme une procédure stockée mais pas vraiment.

Mais étant donné qu'il n'y a pas de procédure stcokée sous Access, on fait avec VBA

**Mayamok** · 13/12/2006, 11h03

Bon, en ce qui me concerne, je suppose que c'est kif-kif.

Encore merci, je vais essayer ça.

**Mayamok** · 13/12/2006, 11h08

Dernière petite question (j'ai prévenu, hein): vaut-il mieux passer par une macro ou un module?

**Tofalu** · 13/12/2006, 11h33

module

Les macros sont très limitées :

Pas de test, pas de boucle, pas de gestion d'erreur, pas d'objets, etc...

**Mayamok** · 13/12/2006, 11h43

Merci, je m'y mets!

**Mayamok** · 15/12/2006, 09h50

Bonjour. J'ai encore un souci. J'ai créé la fonction avec la signature suivante:

Code :

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

Public Function TestBits(ByVal EntierStocke As Integer, ByVal ValeurMasque As Integer) As Boolean

Dans un module appelé CodeIntegre.

Ensuite, je l'appelle depuis ma requète:

Code :

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

SELECT DISTINCT {...} FROM {...} WHERE CodeIntegre.TestBits([TableX].[ChampY],9);

Et j'obtiens l'erreur: "Fonction CodeIntegre.TestBits non définie dans l'expression." Qu'est-ce à dire? Il semble ne pas trouver la fonction bien qu'elle soit déclarée en "Public". Y-a-t-il une subtilité de syntaxe que j'aurais zappée au passage?

**=JBO=** · 15/12/2006, 11h10

Bonjour

Envoyé par Mayamok

Et j'obtiens l'erreur: "Fonction CodeIntegre.TestBits non définie dans l'expression." Qu'est-ce à dire? Il semble ne pas trouver la fonction bien qu'elle soit déclarée en "Public". Y-a-t-il une subtilité de syntaxe que j'aurais zappée au passage?

N'utilise pas le nom du module, mais directement le nom de la fonction.

**Mayamok** · 15/12/2006, 11h23

Merci, je croyais l'avoir testé, mais il devait y avoir une faute dans le nom de la fonction (un "e" à "Test"). Maintenant ça marche (enfin, pas vraiment, mais c'est le code dans la fonction qui est en cause).

Merci beaucoup.

**Mayamok** · 15/12/2006, 12h04

Décidément...

J'ai complété ma requête, corrigé la fonction (VBA a une façon très personnelle d'effectuer des opérations sur les booléens!

) et maintenant, elle fonctionne quand je la lance depuis le créateur de requêtes (affichage SQL) dans Access.

Mais quand je lance exactement la même requête (copier-coller à l'appui) depuis mon programme VB.NET, ça replante en me disant à nouveau que la fonction n'est pas définie. Ce truc aura ma peau...

**=JBO=** · 15/12/2006, 12h44

Envoyé par Mayamok

Décidément...

J'ai complété ma requête, corrigé la fonction (VBA a une façon très personnelle d'effectuer des opérations sur les booléens!

) et maintenant, elle fonctionne quand je la lance depuis le créateur de requêtes (affichage SQL) dans Access.

Mais quand je lance exactement la même requête (copier-coller à l'appui) depuis mon programme VB.NET, ça replante en me disant à nouveau que la fonction n'est pas définie. Ce truc aura ma peau...

Ceci est "normal" et dépend du composant en charge de l'évaluation des expressions au sein d'une requête SQL (je te parle du moteur de bases de données JET).

Lorsque tu exécutes une requête à partir de l'application Access, alors c'est Access qui est en charge de l'évaluation des expressions.
Et Access reconnaît l'existence de ta fonction.

Lorsque tu exécutes une requête à partir d'un autre environnement, alors c'est un composant d'évaluation standard qui est en charge de l'évaluation des expressions.
Ce composant d'évaluation standard comprend un sous ensemble des fonctions Visual Basic élémentaires. En revanche, il ne comprend rien aux fonctions intégrées d'Access ni à celles définies dans des modules de code Access (comme ta fonction TestBits).

Tu comprends mieux le problème

**Mayamok** · 15/12/2006, 12h59

Tu comprends mieux le problème

J'en ai peur... Il semblerait que je sois obligé soit de laisser tomber ACCESS, soit de créer un champ booléen par bit plutôt que de tout stocker dans un champ Integer...

**=JBO=** · 15/12/2006, 13h24

Envoyé par Mayamok

Il semblerait que je sois obligé soit de laisser tomber ACCESS, soit de créer un champ booléen par bit plutôt que de tout stocker dans un champ Integer...

Pas de précipitation.
Si tu souhaites seulement tester un bit à la fois, alors il y a une solution au moyen d'une expression mathématique que le composant d'évaluation peut traiter.

Voici l'expression VB:

(v/2^b) mod 2

L'évaluation de cette expression retourne 1 si le bit est levé.
Si le bit est baissé, l'évaluation retourne 0.

Tu remplaces v par le nombre que tu veux tester (par ex. le champ integer).

Tu remplaces b par la position à tester:
0 si tu veux tester le premier bit (valeur 1),
1 si tu veux tester le deuxième (valeur 2),
2 si tu veux tester le troisième (valeur 4),
...
7 si tu veux tester le huitième (valeur 128),
...
etc

En attendant de passer sous ORACLE

tu peux déjà essayer cette solution "à moindre frais".

**Mayamok** · 15/12/2006, 13h40

C'est comme si vous utilisiez

Code :

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

(v and 2^b)

, qui retourne "True" si le bit b dans le nombre v est à 1. mais je ne sais pas si le composant d'évaluation sait traiter ça.

De toutes manières, je teste plusieurs bits, et c'était l'objet de ma fonction. Je pense que je vais me rabattre sur une série de champs booléens (heureusement que j'ai un nombre fixe de positions à tester!)

Encore un grand merci pour votre temps et votre attention.

**=JBO=** · 15/12/2006, 13h47

Envoyé par Mayamok

C'est comme si vous utilisiez

Code :

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

(v and 2^b)

, qui retourne "True" si le bit b dans le nombre v est à 1. mais je ne sais pas si le composant d'évaluation sait traiter ça.

Justement non !
Le composant responsable de l'évaluation ne reconnait l'opérateur AND que sous sa forme Logique (et non pas binaire).

D'où la formule mathématique...

Bon courage pour les modifications !

**=JBO=** · 15/12/2006, 15h06

Pardonne moi si je t'importunes,

Je réfléchissez au "coût" des modifications.

Si tu passes sur des champs Booléens, dans ta requête tu devras quand même les tester un à un (donc 8 tests pour gérer un octet).
Sans parler du coût des transformations de ton code.

C'est peut-être une alternative sérieuse que de ne pas toucher au champ integer et de compléter ta requête avec autant de tests que nécessaires mais basés sur la formule mathématique.

Dans v on place l'integer à tester.
Dans b on place une chaîne de caractères avec le "rang" des bits qui doivent être levés:

Par exemple pour tester si les bits de rang 0, 1 et 6 sont levés dans l'integer 73:
v=73
b="016"

Expression pour tester le bit de rang 6, sous réserve que ce n° de rang apparaisse dans b:

iif(instr(b,6), (v\2^6) mod 2,1)

Il ne reste plus qu'à généraliser et simplifier l'expression pour être capable de tester si un ou plusieurs bits aux rangs compris entre 0 et 7, sont tous levés:

Code :

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

1
2
3
4
5
6
7
8
    IIf(InStr(b, 0), v Mod 2, 1) And
    IIf(InStr(b, 1), (v \ 2) Mod 2, 1) And 
    IIf(InStr(b, 2), (v \ 4) Mod 2, 1) And 
    IIf(InStr(b, 3), (v \ 8) Mod 2, 1) And 
    IIf(InStr(b, 4), (v \ 16) Mod 2, 1) And 
    IIf(InStr(b, 5), (v \ 32) Mod 2, 1) And 
    IIf(InStr(b, 6), (v \ 64) Mod 2, 1) And 
    IIf(InStr(b, 7), (v \ 128) Mod 2, 1)

Je pense que ça vaut le coup d'utiliser cette expression complexe plutôt que de modifier la table.

Stockage de bits dans un Integer

Access

Discussions similaires

Partager

Partager