Requête Selection sur vb6Résolu

Question

Bonjour
Je voudrai vous faire part d'un petit programme qui me pose probl&#232;me et je demande de l'aide dans la mesure du possible.

Objet: J'ai une base de donn&#233;es sous access et je voudrai visualiser tous les champs de la table obeissant &#224; certaines conditions. Hmt &#233;tant un champ de la table intitul&#233;e "Electropompe" et "Profondeur" &#233;tant une variable &#224; entrer par le clavier.

Exemple: D&#232;s que j'ex&#233;cute le programme, je fais entrer une valeur num&#233;rique relative &#224; "Profondeur". Lorsque je fais un click souris sur la commande S&#233;lection, tous les champs dont la Hmt <=  Profondeur seront affich&#233;s.

Malheureusement, apr&#232;s ex&#233;cution une fen&#234;tre m'indiquant une erreur "Trop peu de param&#232;tres, 1 attendu" s'affiche.

 Code source en vb6 
Private Sub S&#233;lection_Click()
Dim Profondeur, Db, Hmt, D&#233;bit As Integer
Profondeur  = Val(Text1.Text)
BDPompes.RecordSource = "SELECT * FROM Electropompe WHERE Hmt<=Profondeur;"
'* s&#233;lectionne tous les champs de la table "Electropompe"
BDPompes.Refresh
End Sub

Merci infiniment de votre aide

BB

cs_CanisLupus · Accepted Answer

Salut,

BDPompes.RecordSource = "SELECT * FROM Electropompe WHERE Hmt<=" & Profondeur & ";"

Serait plus indiqu&#233; car Profondeur est une variable d&#233;finie dans ton progamme et non dans la BDD.

Cordialement, CanisLupus

BruNews · Answer

Ta variable 'Profondeur' reste inutilis&#233;e.

ciao...
BruNews, MVP VC++

cs_Belkacem16 · Answer

&#231;a marche. Merci de ton aide

BB

Requête Selection sur vb6

3 réponses

Discussions similaires