Enlever des champs vides

pierre4064 Messages postés 28 Date d'inscription mercredi 4 février 2004 Statut Membre Dernière intervention 31 mars 2004 - 23 févr. 2004 à 09:59
pierre4064 Messages postés 28 Date d'inscription mercredi 4 février 2004 Statut Membre Dernière intervention 31 mars 2004 - 23 févr. 2004 à 13:08
Bonjours à tous,

Je vous explique mon problème: je rempli une un combobox par une base de donnée mais je n'arrive pas à enlever les champs vides:

Dim cn As New Connection
Dim rs As ADODB.Recordset
Dim stSQL As String

cn.Provider = "microsoft.jet.OLEDB.4.0"
cn.ConnectionString = "data source=C:\BaseDeDonnéesEntreprises.mdb"
cn.Open

Set rs = New ADODB.Recordset
stSQL = "SELECT * FROM entreprises WHERE Nom<>null ORDER BY Nom "
rs.Open stSQL, cn, adOpenKeyset, adLockPessimistic
NomResp.Clear
Do Until rs.EOF = True
NomResp.AddItem rs("nom")
rs.MoveNext
Loop
rs.Close

Je vous remercie par avance de vos réponses.

;)

3 réponses

ndsaerith Messages postés 304 Date d'inscription vendredi 16 janvier 2004 Statut Membre Dernière intervention 10 mai 2017 2
23 févr. 2004 à 10:15
Met une condition si le nom <> "" ou " " alor on akoute dans la combo, juste apres le do until ( au fait le while c mieux pour les bouvles pour remplir les combos ;-) )
0
cs_chris81 Messages postés 589 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 29 avril 2008 2
23 févr. 2004 à 10:19
sinon tu selectionne tout et tu dis
If recorset.Nom <> "" tu ajoute sinon tu saute.
0
pierre4064 Messages postés 28 Date d'inscription mercredi 4 février 2004 Statut Membre Dernière intervention 31 mars 2004
23 févr. 2004 à 13:08
Merci beaucoup, c'est tout bête mais je n'y avias pas pensé.
:)
0
Rejoignez-nous