Discussion :

[js8bleu]

Bonjour à tous,

je suis entrain de vouloir concevoir un logiciel avec VB 6.0 et Access et je suis bloqué dans une de mes requêtes. Il s'agit de celle-là :

Code :

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

rssexe.open "select * from tableabonne where numabonne = '" & txtnumabonne & "' ", cn, 1, 2

numabonne est de type numérique alors que txtnumabonne est de type texte.

Il refuse donc de m'afficher le résultat.

Quelqu'un pourrait-il m'aider s'il vous plaît?

Merci d'avance.

Cordialement.

[ProgElecT]

F2 => Classe ==> Conversion ==> CDbl ... CInt ... CLng ... CSng .... Val ....

Il faudrait peut être aussi verifier si le contenu de txtnumabonne est bien un numerique

Code :

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

1
2
3
4
5
6
If IsNumeric(txtnumabonne.Text) = True Then
 rssexe.open "select * from tableabonne where numabonne = '" & Val(txtnumabonne.Text) & "' ", cn, 1, 2
 Else
 MsgBox "entrez un numerique", vbInformation
 Exit sub
End If

Motif de l'edit:
Bien vue Delbeke (salut), copier/coller rapide, du coup je n'ai pas fait attention a ce detail important

[Delbeke]

Bonsoir Progelec.

Si numabonne , le champs de la base, est de type numérique, il ne faut pas mettre les simples quotes

Code :

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

1
2
3
4
5
6
If IsNumeric(txtnumabonne.Text) = True Then
 rssexe.open "select * from tableabonne where numabonne = " & Val(txtnumabonne.Text) & " ", cn, 1, 2
 Else
 MsgBox "entrez un numerique", vbInformation
 Exit sub
End If

[js8bleu]

Bonsoir à tous,

mon problème est enfin résolu grâce à la requête : "rssexe.open "select * from tableabonne where numabonne = " & val (txtnumabonne), cn, 1, 2". Merci à tous du fond du coeur pour vos contribution qui m'ont (soyez-en sûr) apporter la solution. Merci encore et excellente soirée à tous.

Cordialement