Discussion :

[stef33150]

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:


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...

[tomlev]

Il faut vérifier si la valeur est null avant l'appel à GetString :

Code :

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

1
2
3
If Not(.IsDBNull(1)) Then
    Res = .GetString(1)
End If

[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...

[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 :

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

1
2
3
If Not(.IsDBNull(.GetOrdinal("RESResidence"))) Then
    Res = .GetString(.GetOrdinal("RESResidence"))
End If

[stef33150]

ça ne fonctionne toujours pas...

Franchement je sais pas du tout d'où cela peut provenir.

[tomlev]

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

[stef33150]

voilà ce qu'il me met:

[stef33150]

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

Code :

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

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.

[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) ?