cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 2023
-
17 mai 2005 à 01:59
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 2006
-
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