VB,SQl et passage de paramètre

Bonjour,

Je souhaite à partir d'un TextBox récuperer la valeur et l'inclure dans un code avec du Sql : Ex : Selec x,y from MaTable Where [La Valeur du textBox]
et que le résultat de cette requête soit visible dans une grille .

merci d'avance, :cry: :?

T'as pas déja un bout de code? ou tu pars de rien?

Citation:

---

Envoyé par christian_manzoni

Bonjour,

Non en fait je suis sur un poste de travail et le code est chez moi ,, c'est pour rajouter un module dans un pg que j'ai fais .... donc on parts de zero si tu veux .... j'attaque la base (Access 2002) par ADO.

MAis je souhairerais plus utiliser du Sql dans le code

Merci d'avance si tu peux m'aider

---

ce bout de code te permet simplement de te connecter à la base et d'exéctuer la requete contenue dans MaChaine (que tu es entierement libre de parametrer a la maniere d'une chaine de caractère)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim cnx As New ADODB.Connection Dim rst As New ADODB.Recordset Dim MaChaine As String   'connection With cnx .Provider = "Microsoft.Jet.Oledb.4.0" .ConnectionString = "c:\mabase.mbd" .Mode = adModeShareDenyNone .Open End With   'prépartion du code sql MaChaine = "select * from MaTable where id = " & monparametre   With rst .CursorType = adOpenForwardOnly .LockType = adLockReadOnly .ActiveConnection = cnx .Open MaChaine End With

---

Après ca, quel est l'objet dans lequel tu veux copie le résultat de ta requete (soit "rst") ?

Pour info, tu as des très bon tutos là dessus;)

C'est assez facile à apprendre!

En fait toi tu afficherai le resultat dans quel objet ou plutot kel objet le plus adapté à l'affichage des datas ??:oops:

tu es sur VB ou VBA? parce que VBA n'as pas tous les mêmes objets

Mais surtout ca dépend ce que tu veux faire!
T'as 1 ou plusieurs colonnes?
Tu veux une liste déroulante ou non?

je corrige mon code précédent :

Code:

---

MaChaine = "select * from MaTable where valeur = " & TextBox.value

---

Donc je suis VB6, plutot dans une grille pour les résultats : L'application c'est une gestion de mes sorties de VTT .

:oops:

alors ca veux dire que tu veux plusieurs colonnes

Il y a le Datagrid (mais je l'ai jamais utilisé donc regarde l'aide pour le remplir) ou une Listbox avec plusieurs colonne

voila un bout de code pour remplir ton ListBox

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim i As Integer i = 0 rst.MoveFirst   'parcours de toutes les lignes de la requete While Not (rst.EOF) 'copie des valeurs dans la listbox MaListeBox.AddItem rst(0), i 'colonne 1 MaListeBox.List(i, 1) = rst(1) 'colonne 2 MaListeBox.List(i, 1) = rst(2) 'colonne 3 rst.MoveNext 'passe à la ligne suivante i = i + 1 Wend   'ferme la requete rst.Close

---

rst(0) corespond à la première colonne du résultat de ta requete, rst(1) la 2eme ...

je te remercie pour tout ces renseignements maintenant il ne reste plus qu'à ....et encore merci ... :lol: :lol: :lol:

si ton pblm est résolu, n'oublie pas de mettre le tag "Résolu"

je reste abonné a cette discussion si tu as de nouveau un souci