VB,SQl et passage de paramètre

**christian_manzoni** · 07/07/2006, 14h52

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,

**repié** · 07/07/2006, 15h07

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

**repié** · 07/07/2006, 15h14

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

**repié** · 07/07/2006, 15h19

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 :

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

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!

**christian_manzoni** · 07/07/2006, 15h25

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

**repié** · 07/07/2006, 15h26

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?

**repié** · 07/07/2006, 15h29

je corrige mon code précédent :

Code :

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

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

**christian_manzoni** · 07/07/2006, 15h30

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

**repié** · 07/07/2006, 15h37

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 :

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

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 ...