Discussion :

[andy38]

Bonjour, Vb Net utilisé. J’ai cette Form qui a un treeView à gauche et un
Data grid à droite qui est remplit par un dataset provenant d’une
Base de données Access. J’ai déjà la connexion avec la base de
Données vivante sous OLE dB 4.0 qui a construit le dataset. Et
Utilisant la requête suivante requete = "SELECT * FROM PRODUITS WHERE
CATEGORIE = 'Inventaire\Bushing';" .Jusqu’ici ca va, je voudrais savoir
Si c’est possible de remplacer le prédicat dans la clause WHERE,
Exemple 'Inventaire\Bushing';" par une variable
'J’essaiyé ceci mais ca marche pas

Code :

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

requete = "SELECT * FROM PRODUITS WHERE CATEGORIE = 'lb1Path.Text';"

Comme vous voyez, ce que j’essaie de faire c’est lorsque je clique
Sur une des branches de l’arbre qui est en somme une des Catégorie qui
S’affiche par lb1Path.Text de pouvoir s’écrire dans la requete.
voir mon code

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
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub se_connecter(ByVal requete As String, ByVal table As String) 
Dim base, chemin As String 
'Chemin d'accès à la b.d. située dans le dossier bin 
chemin = Application.StartupPath & "\INVENTAIRE.MDB" 
base = "provider=microsoft.jet.oledb.4.0;data source=" + chemin 
 
Dim connexion As OleDbConnection = New OleDbConnection(base) 
connexion.Open() 
'Lien entre la base et la requête 
Dim Liaison As New OleDbDataAdapter(requete, base) 
Dim Memoire As New DataSet 
'Charge la table en mémoire 
Liaison.Fill(Memoire, table) 
 
Dim Vue As New DataView(Memoire.Tables(table)) 
grille.DataSource = Vue 
connexion.Close() 
 
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect 
 
Dim node As System.Windows.Forms.TreeNode 
node = TreeView1.SelectedNode 
 
lb1Path.Text = sender.SelectedNode.FullPath 
 
'MessageBox.Show(TreeView1.SelectedNode.ToString) 
 
'Dim choix As Byte 
Dim requete, table As String 
 
'Sélectionne tout 
requete = "SELECT * FROM PRODUITS WHERE CATEGORIE = 'Inventaire\Bushing';" 
table = "PRODUITS" 
se_connecter(requete, table)

[AASI]

salut
essaye avec...

Code :

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

 "SELECT * FROM PRODUITS WHERE CATEGORIE =" & lb1Path.Text & ";"

[AASI]

ou avec les ' selon le type de valeur du champ Categorie..

Code :

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

"SELECT * FROM PRODUITS WHERE CATEGORIE ='" & lb1Path.Text & "';"

[eagleleader]

Fais attention qu'il n'y ai pas d'apostrophes dans ton chemin d'accès : => si ta requête tombe en erreur essaye ceci =

Code :

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

"SELECT * FROM PRODUITS WHERE CATEGORIE = """ & lb1Path.Text & """"