Discussion :

[emardjean]

Salut,
apres une connection, et une requete, je teste un champs(numero de portable). Malheuresement ce champs n'est pas toujours valide. S'il n'est pas valide mon programme vb s'envoit en l'air.
Comment puis-je faire?

Code :

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

1
2
3
4
5
6
7
 
  sOU = rs.Fields.Item(0).Value
  Set oOU = GetObject(sOU)
  sCite = oOU.Get("houseIdentifier")
  sPhoneNumber = oOU.Get("telephoneNumber")
  mobile = oOU.Get("mobile")
   rs.MoveNext

Ici s'il n'y a pas de mobile, mon programme plante. Comment puis-je tester si ce champs existe dans la base.

merci

[pc75]

Bonjour,

Peut-être ?

Code :

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

1
2
3
 
if not IsNull(rs.Fields.Item(0).Value) then
......

[AdHoc]

bonjour,
personnellement, dans ce genre de cas, je procede autrement (cas copie table à table différentes),

Code :

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

1
2
3
4
5
6
7
8
9
for each objField in rs.fields
   if objField.name = sMonChampRecherche then
      bTrouve = true
      exit for
   end if
next
if bTrouve then
    etc etc
end if

[ThierryAIM]

AdHoc, tu testes l'existence d'un champ

dans le cas de emardjean, c'est un champ vide qui lui cause soucis et la réponse de pc75 me semble tout à fait convenir

[emardjean]

En faite, je plante pas sur le getobjet, mais sur la ligne oOU.Get("mobile"))
Suite à vos remarque j'ai fait cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
   sOU = rs.Fields.Item(0).Value
   Set oOU = GetObject(sOU)
   sCite = oOU.Get("houseIdentifier")
   sPhoneNumber = oOU.Get("telephoneNumber")
   If Not IsNull(oOU.Get("mobile")) Then
           mobile = oOU.Get("mobile")
   Else
            mobile = ""
   End If

Mais je plante toujours sur oOU.Get("mobile").
Il faut savoir que je recupere bien les deux autres champs.
Je n'arrive pas à récuperer les objets optionnels du ldap.

[Megaxel]

Et avec "IsNothing" au lieu de "IsNull" ?

[AdHoc]

Comment puis-je tester si ce champs existe dans la base

tu testes l'existence d'un champ

Serai je totalement hors sujet ?


Dans ton cas, je ne comprend pas pourquoi tu ne travaille pas directement avec les objets Field (de la collection Fields).

Si la question est de tester la validité de la valeur du champ, remplace le etc etc par

Code :

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

 if not(isnull(objField.value) ) then

ou plus simple, si ton champ est censé etre une chaine, concatene le avec la chaine vide

Code :

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

 "" & objField.value

[ThierryAIM]

Serai je totalement hors sujet ?

oui et non, car je crois surtout que la question est très mal posée

[emardjean]

Bon, alors je reprends.
Mon code permet d'interroger un ldap.
Une fois que j'ai récupérè la personne. Je recherche les infos dont j'ai besoins.
Ces infos sont contenues dans un objet utilisateur qui est l'item rs.Fields.Item(0).Value
Cette objet existe toujours. Mais si j'ai bien comprit les données de l'objet ne sont pas toujours les même.
Je repete si j'ai bien compris. Le oOU.get est toujours valide sur le telephonenumber et sur l'adresse, mais
le get mobile peut ne pas fonctionner, car si la personne n'a pas de portable cette attribut n'existe pas dans le ldap
Ouf, pas facile d'expliquer, quand on a pas toutes les connaissances requisent.
Merci pour votre patience.

[AdHoc]

Okay, j'étais donc bien complétement hors sujet (ou plutot à la surface), la prochaine je lirai le post au lieu de l'interpreter
donc on reprend,
ecrit une fonction à laquelle tu passe ton objet et le nom du champ à tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
sub bTest(obj as object, sChamp as string)
on error goto erreur
obj.get(sChamp)
btest = true
Fin:
exit sub
 
Erreur:
btest = false
resume fin
end sub

J'utilise souvent ce type de fonction avec les objets

[ThierryAIM]

la prochaine je lirai le post ou de l'interpreter

Le problème, c'est que ce n'est quand même pas à ceux qui essaient gentilment d'aider d'interpréter les questions

le posteur doit faire un minimum d'effort pour formuler sa question le plus clairement et le plus précisement possible
C'est dans Les règles du forum


Une question comme celle-ci, je ne me donne même pas la peine de chercher une reponse ou une solution

[emardjean]

Encore désolé.
Mais il n'est pas très facile quand on est sous pression, que l'on récupere un code mal ecrit et bourré d'erreur dans un language que l'on ne connait pas d'expliqué son problème.
Bref j'avoue ma question était mal posé et je m'en excuse encore.
et Je vous remercie de votre patience.
Sincéres salutations