Dernière réponse
Sujet : [VB6] DataGrid et DataList
chkemp	Bein pour les espaces je debute alors... et l'editeur et un peu flou en plus l'aide en ligne a des erreurs comme indique en haut du topic...   strQ= "Select * From Produits WHERE N fournisseur = "&  Datalist1.BoundText   il proposes un espace apres  = alors qu'il n'en faut pas ...   En tout cas je te remercie pour ton aide

Votre réponse
Nom d'utilisateur	Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Mot de passe	Vous avez perdu votre mot de passe ? Cliquez ici !
Le ton de votre message
Votre réponse Smilies     Liste des smilies perso Wiki smilies Chercher un smiley
Options	Activer votre signature Désactiver les smilies Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

chkemp

Bein pour les espaces je debute alors... et l'editeur et un peu flou en plus l'aide en ligne a des erreurs comme indique en haut du topic...   strQ= "Select * From Produits WHERE N fournisseur = "&  Datalist1.BoundText   il proposes un espace apres  = alors qu'il n'en faut pas ...   En tout cas je te remercie pour ton aide

Bendes

Excuse pour les espaces CT logique, j'pensais ke tu savais et normalement l'éditeur doit le faire de lui-même ou du moins te prévenir...   Je n'ai jamais utilisé de bouquin tj l'aide en line -> je n'ai pas de référence

chkemp

A p.... d'espace il faut ecrire :   "Select * From Produits Where [N fournisseur]='" & Datalist1.BoundText & "'"   Merci Bendes je vais pouvoir un peu avancer dans mon projet !   Tu as une info pour un bon bouquin ?

chkemp

Pour l'alphanumerique si j'ecrit :   "Select * From Produits Where [N fournisseur]='"&Datalist1.BoundText&"'"   il me met Erreur de compilation Attendu Fin d'instruction !

Bendes

Numérique : Select * From Produits Where [N fournisseur]="& Datalist1.BoundText   Alphanumérique : Select * From Produits Where [N fournisseur]='"& Datalist1.BoundText&"'" (tu rajoute des simples quotes...)

chkemp

Ca y 'est pour les donnees numeriques il faut ecrire   "Select * From Produits Where [Produits]![N fournisseur]="& Datalist1.BoundText   Par contre si je fait une recherche avec du texte je n'ai pas trouver la syntaxe

Bendes

A part l'erreur de syntaxe, dans l'ensemble c'est ce à quoi tu voulais arriver ??   L'erreur de syntaxe n'est qu'une question de vérification...

chkemp

Bon bein ca marche pas , j'ai droit a :   Erreur de syntaxe dans l'expression 'N fournisseur =19'   A l'aide

chkemp

Je vais essayer et je te tient au courant   Tu ne connaitrais pas un bon bouquin tRaitant de vb et des ADO?   Merci

Bendes

Voila ce que je te propose :   Private Sub Form_Load() ' Ceci tu le faire directement lors du design dans les propriétés de la DataList DataList1.BoundText = "N fournisseur" EndSub   Private Sub Datalist1_Click()   With ado_Lié_à_ta_DataGrid .RecordSource = "Select * From Produits WHERE N fournisseur = " & Datalist1.BoundText   .Refresh   End With

chkemp

Je fait l'exercice   Creation d'un controle DataGrid lie a un controle DataList   avec la BDD Nwind livre avec Vb   N fournisseur : champs numerique sur la BDD BoundText renvoi la valeur N fournisseur

Bendes

Pour pouvoir t'aider j'ai plusieurs questions...   - N fournisseur ?? c'est un champs texte ou numérique - Que veux-tu que la propriété "BoundText" te renvoi ??

chkemp

A l'aide je suis bloque pour mon projet !

chkemp

Au secours !

chkemp

Bonjour j'essai de faire l'exercice : Creation d'un controle DataGrid lie a un controle DataList   et ca marche pas   voici le code Private Sub Datalist1_Click()   Dim strQ As String strQ= "Select * From Produits WHERE N fournisseur = "& _ Datalist1.BoundText   With adoProducts  .RecordSource = strQ  .Refresh End With   With DataGrid1  .ClearFields  .ReBind End With End Sub   Lorsque je lance le prog j'ai droit a :"Aucune valeur donnee pour un ou plusieurs des parametres requis   si je remplace DataList1.BoundText par une valeur, la ca marche ! la cmd devient donc : strQ= "Select * From Produits WHERE N fournisseur = '5'"   Je comprends pas d'ou vient l'erreur   Merci pour votre aide