requette parametrer en vbRésolu

Question

Salut 
j ai 7 tables dans une base de donnee access et j essaye de faire une requette parametrer depuis vb6 pour afficher le resulatat dans un msflexgrid mais sans resulatat voici code 

Private Sub Cmd_Click()
Dim rep
Dim i As Integer
Dim RsRecep As New ADODB.Recordset
Dim strsql As String

   rep = InputBox("Entrez le numéro de commande à chercher ?")

strsql = "SELECT Fournisseurs.Fournisseur, Commande.N_Commande,"
strsql = strsql & " Commande.Date_Commande, Matieres.Matiere, Titres.Titre,"
strsql = strsql & " Couleurs.Couleur, Detail_Commande.Observation,"
strsql = strsql & " Detail_Commande.Qte"
strsql = strsql & " FROM Matieres, Articles, Couleurs, Detail_Commande, Titres,Fournisseurs , Commande"
strsql strsql & " WHERE Matieres.Code_Matiere Articles.Code_Matiere AND"
strsql strsql & " Articles.Code_Couleur Couleurs.Code_Couleur AND"
strsql strsql & " Articles.Ref_Article Detail_Commande.Ref_Article AND"
strsql strsql & " Articles.Code_Titre Titres.Code_Titre AND"
strsql strsql & " Fournisseurs.N_Fournisseur Commande.N_Fournisseur AND"
strsql = strsql & "(((Commande.N_Commande)=rep));"
    
    RsRecep.CursorType = adOpenDynamic
    RsRecep.LockType = adLockOptimistic
    RsRecep.CursorLocation = adUseClient
    RsRecep.Open strsql, conn
        With Flex
           .Rows = RsRecep.RecordCount
                For i = 1 To RsRecep.RecordCount
                .Col = 0
                .Text = RsRecep("N_Commande")
                .Col = 1
                .Text = RsRecep("Date_Commande")
                .Col = 2
                .Text = RsRecep("Fournisseur")
                .Col = 3
                .Text = RsRecep("Matiere")
                .Col = 4
                .Text = RsRecep("Titre")
                .Col = 5
                .Text = RsRecep("Couleur")
                .Col = 6
                .Text = RsRecep("Qte")
                .Col = 7
                .Text = RsRecep("Observation")
            Next
        End With
End Sub

Et merci beaucoup

gwoui2 · Accepted Answer

Je n'ai rien v&#233;rifi&#233; non plus, mais je suis &#233;tonn&#233; de la derni&#232;re ligne de la requ&#234;te :
strsql = strsql & "(((Commande.N_Commande)=rep));"
J'aurai mis :
strsql = strsql & " Commande.N_Commande=" & rep & ";"
ou selon le type de donn&#233;e du champ N_Commande :
strsql = strsql & " Commande.N_Commande='" & rep & "';"

Paladin2107 · Answer

Slt

Je n'ai pas v&#233;rifi&#233; ta requete ms elle me parait tres lourde tu doit pouvoir simplifi&#233;

Private Sub Cmd_Click()
Dim rep
Dim i As Integer
Dim RsRecep As New ADODB.Recordset
Dim strsql As String

   rep =  InputBox("Entrez le num&#233;ro de commande &#224; chercher ?")

strsql = "SELECT Fournisseurs.Fournisseur, Commande.N_Commande,"
strsql = strsql & " Commande.Date_Commande, Matieres.Matiere, Titres.Titre,"
strsql = strsql & " Couleurs.Couleur, Detail_Commande.Observation,"
strsql = strsql & " Detail_Commande.Qte"
strsql = strsql & " FROM Matieres, Articles, Couleurs, Detail_Commande, Titres,Fournisseurs , Commande"strsql strsql & " WHERE Matieres.Code_Matiere Articles.Code_Matiere AND"strsql strsql & " Articles.Code_Couleur Couleurs.Code_Couleur AND"strsql strsql & " Articles.Ref_Article Detail_Commande.Ref_Article AND"strsql strsql & " Articles.Code_Titre Titres.Code_Titre AND"strsql strsql & " Fournisseurs.N_Fournisseur Commande.N_Fournisseur AND"
strsql = strsql & "(((Commande.N_Commande)=rep));"
    
    RsRecep.CursorType = adOpenDynamic
    RsRecep.LockType = adLockOptimistic
    RsRecep.CursorLocation = adUseClient
    RsRecep.Open strsql, conn
        With Flex
           .Rows = RsRecep.RecordCount
                For i = 1 To RsRecep.RecordCount
                 .Row = i 
                .Col  = 0
                .Text =  RsRecep ![ N_Commande]
                .Col  = 1
                .Text = RsRecep![Date_Commande]
                 .......
                .Rs.movenext
            Next
        End With
End Sub

Couscous

Paladin2107 · Answer

oui tu as tt a fait raison je n'ai pas v&#233;rifi&#233; cette requete.

il faut mettre les ' ' pour les champs de type autre que num&#233;rique. 
strsql = strsql & " Commande.N_Commande='" & rep & "'"

Couscous

Boudchiche · Answer

Slt
Merci pour vos réponces mais malheuresement il me donne le même message "type de donnees incompatible dans l'expression du critere".
Est que vous pouvez me dire aussi comment je peut simplifier ma requette.
Merci

tbbuim1 · Answer

Vérifie, si dans la définition de ta table, tous les types correspondent à ceux que tu passes quand tu fais des = 
Lorsque tu fais un = numérique, tu n'as pas besoin de mettre des cotes.

gwoui2 · Answer

Il n'y a pas de lien d&#233;fini entre les tables Commande et Detail_Commande dans ta requete.

Le plus simple est de commencer par une requ&#234;te plus simple, et d'ajouter petit &#224; petit les liaisons aux diff&#233;rentes tables, afin de trouver ton probl&#233;me 
En commen&#231;ant par exemple par 
strsql  = "select Commande.N_Commande, Commande.Date_Commande FROM Commande  WHERE Commande.N_Commande='" & rep & "';"

tbbuim1 · Answer

Ou mieux, tu peux tester la requête sous access avec l'assistant de requête.
tu pourrais faire tes tests plus facilement (si tu sais te servir d'access)
Mais bon, c'est ultra simple, alors ya pas de raison qui peu le plus peu le moins. Il te suffit de double cliquer sur un champ pour le faire s'afficher, donc tu verras rapidement où le bas blaisse.
Fais un copier coller de ta requête sous Access dans la partie SQL et par contre mets une valeur à la place de rep en prenant soin d'enlver les "' & compagnie.
T'as requête se construira d'elle même...

Boudchiche · Answer

Merci pour tout j ai touvé le probleme etait que je mettais ='" & rep & "';" alors que je devais mettre juste =" & rep & ";"
Comme on me l as deja dit.
Merci a vous

Requette parametrer en vb

8 réponses

Discussions similaires