ADO valeur Null [Résolu]

cs_JeffC1977 929 Messages postés vendredi 10 novembre 2000Date d'inscription 10 septembre 2010 Dernière intervention - 17 mai 2005 à 01:59 - Dernière réponse : cs_CanisLupus 3758 Messages postés mardi 23 septembre 2003Date d'inscription 13 mars 2006 Dernière intervention
- 17 mai 2005 à 12:43
Salut... Je sais qu'il vient d'avoir une question sur le forum mais ca ne fonctionne pas pour moi....

J'utilise ADO avec VB6

J,ai des valeurs nul dans mon programme et je veux faire apparaitre les informations dans plusieurs textbox (certain avec de l'info d'autre n'ayant pas d'info donc null)

Mon code fonctionne tres bien pour les textbox contenantr de l'info mais pour les valeurs null ca plante...

Voici mon code...

Private Sub cmdRecherche_Click()


'On Error GoTo err


Set BD = New ADODB.Recordset
'ListView1.ListItems.Clear


BD.Open "SELECT * FROM [dossiers_actif] WHERE [DOSSIER] like '%" & txtRechercheAvancee.Text & "%'", Connection, adOpenKeyset, adLockBatchOptimistic


BD.Update


txtDossier.Text = BD!DOSSIER


If Not IsNull(BD!TRAVAIL) Then
txtTravail.Text = BD!TRAVAIL
End If


If Not IsNull(BD!LIVRAISON) Then
txtLivraison.Text = BD!LIVRAISON
End If


If IsNull(BD!ATTENTE_TERRAIN) Then
txtAttenteTerrain.Text = ""
Else
txtAttenteTerrain.Text = BD!ATTENTE_TERRAIN
End If

Bon Je fais le test présentement sur la colonne Attente_Terrain. Les autres collones continennent de l'information.

Ca me dit comme erreur...
Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé.
Le nom de ma colonne ne contient pas d'erreur dans le code....Elle se nomme Vraiment ATTENTE_TERRAIN

J'ai essayé également

If Not IsNull(BD!ATTENTE_TERRAIN) Then
txtAttenteTerrain.Text = BD!ATTENTE_TERRAIN
End If

Mais ca plante aussi... :(

Je ne sais vraiment plus ou est le prob...

Si quelq'un peut m'aider...

Merci d'avance
Afficher la suite 

2 réponses

Meilleure réponse
BasicInstinct 1471 Messages postés mardi 5 février 2002Date d'inscription 20 octobre 2014 Dernière intervention - 17 mai 2005 à 09:30
3
Merci
Pour le NULL:

au lieu de faire
If Not IsNull(BD!TRAVAIL) Then
txtTravail.Text = BD!TRAVAIL
End Iftu dois pouvoir faire:
txtTravail.Text = BD!TRAVAIL & ""

Pour BD!ATTENTE_TERRAIN
dsl je vois pas.

BasicInstinct

Merci BasicInstinct 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

cs_CanisLupus 3758 Messages postés mardi 23 septembre 2003Date d'inscription 13 mars 2006 Dernière intervention - 17 mai 2005 à 12:43
0
Merci
Salut, déjà, si tu utilises un base access, remplace les '%' par des '*' et dis nous si c'est mieux.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.