Bonsoir, je suis debutant en vb.net j'essaie de developper une application de gestion de location, mais je galère j'essaie de relier 3 combobox, le premier est Résidences, le deuxieme "bloc" et le troisième "appartement" , j'aimerai filtrer je galere a trouver la requete, j'utilise ms-access comme sgbd
ce code me genère une erreur de type "Informations supplémentaires : Erreur de syntaxe (opérateur absent) dans l'expression « id_res =Residence Seville »."
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 da = New OleDbDataAdapter("Select nom_res from Residences", MyConn) da.Fill(ds, "Residences") Dim view2 As New DataView(tables(0)) With ComboBox2 .DataSource = ds.Tables("Residences") .DisplayMember = "nom_res" .ValueMember = "nom_res" .SelectedIndex = 0 .AutoCompleteSource = AutoCompleteSource.ListItems End With 'Dim st As String 'st = ComboBox2.SelectedValue.ToString() da = New OleDbDataAdapter("Select nom_bloc from bloc where id_res =" & ComboBox2.SelectedValue.ToString() & "", MyConn) 'da.SelectCommand = New OleDb.OleDbCommand(MyConn) da.Fill(ds, "Bloc") Dim view3 As New DataView(tables(0)) With ComboBox3 .DataSource = ds.Tables("Bloc") .DisplayMember = "id_bloc" .ValueMember = "nom_bloc" .SelectedIndex = 0 End With 'st = ComboBox3.SelectedValue.ToString() da = New OleDbDataAdapter("Select num_app from appartement", MyConn) da.Fill(ds, "Appartement") Dim view4 As New DataView(tables(0)) With ComboBox4 .DataSource = ds.Tables("Appartement") .DisplayMember = "id_app" .ValueMember = "num_app" .SelectedIndex = 0 End With
Merci d'avance
Partager