Problème de tests sur un Id (de type INT) pour décider de l'action à prendre

Hello,

Je suis en train de déboguer le code d'un collègue et à un endroit, il fait quelque chose de ce genre :

Code:

---

1 2 3 4 5

If monId > 0 Then 'du code pour quand l'objet existe déjà Else 'du code pour quand l'objet est nouveau End If

---

Bon déjà, dans la DB, vu que l'id est de type INT, l'autoincrément commence à la borne négative de la plage de données autorisée par le type INT donc le test ">" est de toute façon incorrect.

Mais du coup, que mettre comme test ?

J'ai pour premier reflex de tester s'il vaut Nothing mais pour un variable de type Integer, la mettre à Nothing équivaut à la mettre à 0. Ce n'est évidemment pas la bonne solution.

Dans mes applications, j'ai une propriété IsNew As Boolean dans mes objets qui me permet de savoir si l'objet est nouveau ou pas. Je pourrais éventuellement utilisé le même procédé mais le nombre de modifications à faire risque d'être pas mal important dans ce cas.

Du coup, je me demande s'il n'y a pas un truc que j'ignore histoire de pouvoir continuer à tester l'id sans devoir ajouter une propriété booléenne partout (c'est un peu dans l'urgence^^).

A vos suggestions et merci d'avance :D

Bonjour,

Citation:

---

Envoyé par Kropernic

Mais du coup, que mettre comme test ?

J'ai pour premier reflex de tester s'il vaut Nothing mais pour un variable de type Integer, la mettre à Nothing équivaut à la mettre à 0. Ce n'est évidemment pas la bonne solution.

---

Heu, mettre à 0 n'équivaut pas à nothing
Pour permettre à un integer d'être positionné à nothing il faut faire ainsi

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim i As New Nullable(Of Integer) Try If i.HasValue Then MessageBox.Show(i.ToString) Else MessageBox.Show("i n'a pas de valeur") If Not IsNothing(i) Then MessageBox.Show(i.ToString) Else MessageBox.Show("i vaut nothing") 'ou If i Is Nothing Then MessageBox.Show("i vaut nothing")   i = 0 If Not IsNothing(i) Then MessageBox.Show(i.ToString) Else MessageBox.Show("i vaut nothing") Catch ex As Exception MessageBox.Show(ex.Message) End Try

---

Je ne sais pas si cela va te permettre d'avancer.

Mais...

Si il fait ce test, c'est surement que lorsqu'il crée l'objet pour la première fois (dans le code), l'ID contient par défaut 0.
Si il charge un objet, il contiendra quelque chose au dessus de zéro...

Ce qu'il fait que tu appelles surement une seule fonction genre Save(), qui teste cette valeur pour savoir si c'est un ajout ou une modification.

Si c'est ça... ce test en vaut bien un autre.

pour compléter les types nullables peuvent s'écire de la sorte :

Code:

---

dim i as integer?

---

@mactwist : S'il fait ce test, c'est parce qu'il avait l'habitude de passer à la trappe la moitié des valeurs possibles pour un entier en commençant l'incrémentation à 1. Mais est arrivé le premier projet où il travaille sur un DB que j'ai modélisée et où je trouve que cette moitié de valeur inférieur est quand même fort utile. Du coup, un objet venant de la DB peut avoir un Id ayant une valeur négative, positive ou égale à 0.

@rv et pol : Nullable(Of T) !!! C'est exactement ce qu'il me fallait. Un grand merci :)

Sinon, pour ma culture personnelle (je pourrais sûrement trouver sur le net mais y aurait tellement de résultat dans google que j'saurais pas lequel regarder), pourquoi les types par valeur ne peuvent "valoir" Nothing ? Vous cassez pas le cul s'il faut rentrer dans des détails super techniques hein. Car je suppute que cela ait à voir avec la manière dont les objets sont stockés en mémoire.

Citation:

---

Envoyé par Kropernic

Sinon, pour ma culture personnelle (je pourrais sûrement trouver sur le net mais y aurait tellement de résultat dans google que j'saurais pas lequel regarder), pourquoi les types par valeur ne peuvent "valoir" Nothing ? Vous cassez pas le cul s'il faut rentrer dans des détails super techniques hein. Car je suppute que cela ait à voir avec la manière dont les objets sont stockés en mémoire.

---

tu as visé juste
il y a 2 types de types en .net (^^)
les types par valeur et les types par référence
les objets sont des types par référence, quand tu as une variable typée as button, ta variable est un pointeur (4 ou 8 octets selon x86/x64) vers l'objet en question, qui lui peut prendre plus de ram
nothing est donc un pointeur vide, qui ne pointe vers rien
les types par valeur (types primitifs et structures) (date/boolean/integer/short ... et les structures (point...)) eux stocke le contenu de la variable directement
dim i as integer fait donc que l'espace mémoire est directement le nombre, qui est initialisé par défaut (avec des bits à 0 je suppose, ce qui fait qu'il vaut 0)

c'est aussi pour ca

Code:

---

1 2 3 4 5 6 7

dim i1 as integer = 5 dim i2 as integer = i1 i2+=1 ' i2 est incrémenté mais pas i1 dim b1 as new button dim b2 as button = b1 b1.Text = "aa" ' b1 et b2 ont .text = "aa" car ce sont 2 pointeurs mais qui pointent vers le même espace mémoire, la même instance

---

et après on pourrait dériver sur byref/byval ^^

Ah bin voilà. Je savais déjà pour les types par référence.

Me manquait juste la partie où tu expliques qu'un objet avec un type par valeur est la valeur et non pointeur.

Du coup, quand on déclare As Integer? ou As Nullable(Of Integer), que fait .NET ? Il crée un genre de classe anonyme avec une seule propriété de type Integer qui serait accéder automatiquement ?

Pour les passages de paramètres ByVal/ByRef, je n'ai jamais lu de documentation sur le sujet mais je pense avoir une idée assez claire de comment cela se passe.

Citation:

---

Envoyé par Kropernic

Du coup, quand on déclare As Integer? ou As Nullable(Of Integer), que fait .NET ? Il crée un genre de classe anonyme avec une seule propriété de type Integer qui serait accéder automatiquement ?

---

il utilise simplement la structure "System.Nullable<T>" : http://referencesource.microsoft.com...em/nullable.cs.
Points important dans cette structure : les conversions et la surcharge de l'opérateur "=="

Merci pour la source Meziantou. C'était instructif.

Tant que j'y suis et pour vérifier que j'ai bien intégré le concept...

Est-ce que je peux me servir d'un type référence, disons une classe custom C, pour passer un objet d'un formulaire à un autre comme si c'était un paramètre ByRef d'une procédure/fonction ?

Un peu de code pour explicité ma question :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Class Form1 Private unObjet As CustomClass '...   Private Sub button1_Click(sender As System.Object, e As System.EventArgs) Handles button1.Click Dim frm as Form2 frm.unObjet = Me.unObjet frm.ShowDialog() End Sub   '... End Class

---

Une fois revenu sur Form1 après l'instruction frm.ShowDialog(), est-ce que la variable unObjet contient bien ce qui y a été mis dans Form2 ?

C'est bien juste ou je passe encore à côté d'un détail ?

EDIT : Après quelques petits tests, j'avais bien tout compris. Et c'est en fait vachement pratique !