Accès à une table ACCESS par VB: Problème valeur NULL

Version imprimable

12/02/2010, 09h07
stef33150

Accès à une table ACCESS par VB: Problème valeur NULL

Bonjour, j'ai un souci pour accéder à une table d'une base de donnés montée sous ACCESS.

En fait, il se trouve dans cette table je possède des champs vides.
Dans mon code vb je vois pas comment faire pour renvoyer une valeur NULL dans reader.getstring(1). Pour le moment, voilà ce que je fais et voilà l'erreur qu'il me met:
http://img85.imageshack.us/img85/6823/erreurdbnull.png

Petite précision, c'est une application en développement objet, mais c'est seulement le champ (1) que je veux comparer (ne prêter pas attention aux 'nothing' plus bas). Et le type de données est bien respecté (j'ai du string dans ma base et je fais un getstring(1).

Voilà, en espérant une réponse de votre part,
Merci à tous d'avance...
12/02/2010, 10h52
tomlev
Il faut vérifier si la valeur est null avant l'appel à GetString :
Code:

1 2 3 If Not(.IsDBNull(1)) Then Res = .GetString(1) End If
12/02/2010, 11h01
stef33150

Merci de ta réponse mais il met toujours un défaut 'InvalidCastException'. Pourtant je respecte bien le type de données (ma zone RESResidence est en texte dans la base et je fais un GetString sous vb et ma variable est de type string aussi)...

Donc là je ne vois pas du tout d'où cela peut venir...
Je suis un peu dans le brouillard...

:?
12/02/2010, 11h40
tomlev
Bizarre... tu es sûr que RESResidence est bien le 2e champ de ton SELECT ? Sinon, plutôt que de passer par l'index, tu peux faire ça :
Code:

1 2 3 If Not(.IsDBNull(.GetOrdinal("RESResidence"))) Then Res = .GetString(.GetOrdinal("RESResidence")) End If
12/02/2010, 11h55
stef33150

ça ne fonctionne toujours pas... :(

Franchement je sais pas du tout d'où cela peut provenir.
12/02/2010, 12h17
tomlev

sur quelle instruction ça plante ? le GetString ?
Et si tu fais GetValue à la place de GetString, tu récupères quoi comme valeur ?
12/02/2010, 12h26
stef33150

voilà ce qu'il me met:
http://img14.imageshack.us/img14/2722/getvalue.jpg

Je crois avoir trouvé la solution. En fait, mon code donne ceci maintenant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
        With Reader
            Do While .Read
                Dim Res As String
 
                If IsDBNull(.Item(1)) Then
                    Res = ""
                Else
                    Res = .GetString(1)
                End If
                '          0            1            2              3             4          5
                'SELECT RESNumero, RESResidence, RESAdresse, RESInformation, REScodeVIL, REScodeCLI
                'FROM Residence
                o_Residence.Add(New Residence(.GetInt32(0), Res, Nothing, Nothing, Nothing, Nothing))
            Loop
        End With

Avec ça, les données passent bien, je suppose que ça doit fonctionner comme cela.
Merci de votre aide en tout cas.

12/02/2010, 15h29
tomlev

Bizarre, ça aurait du marcher avec le code que je t'avais indiqué...
Tu es sûr que tu avais bien fait .IsDBNull(1) et pas IsDBNull(1) ?