[VB.NET] Comment remplacer le prédicat dans la clause WHERE par une variable ?
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:
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:
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) |
