Lier plusieurs combobox

Version imprimable

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

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

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 »."
Merci d'avance

25/07/2016, 09h19
François DORIN

Bonjour,

Je pense que l'erreur vient de la requête SQL qui est mal formée. Il manque des apostrophes autour de la valeur testée :

Code:

da = New OleDbDataAdapter("Select nom_bloc from bloc where id_res ='" & ComboBox2.SelectedValue.ToString() & "'", MyConn)
25/07/2016, 17h16
Amrz22

Bonjour dorinf, j'ai essayé ta requete mais toujours le meme souçis, le deuxieme combobox reste vide
25/07/2016, 20h26
clementmarcotte

Bonjour,

Ce serait intéressant que tu mettes tout ton code, parce que, cela m'oblige à deviner.

Avant que de formuler ma réponse, voici ce que je comprends de ton problème. Dans la partie non montrée de ton code, tu sembles avoir créé un DataSet et au moins une DataTable. Mais j'aurais bien aimé voir ta chaîne de connexion, parce que selon ta version de Visual Studio et ta version d'Access, (ou du moins de la version d'Access qui a servie à créer le fichier, la chaîne de connexion peut varier.

Toujours si j'ai bien compris, les informations de ta base Access sont déjà dans la table de ton DataSet. Cela voudrait donc dire, qu'une fois que tu as récupéré tes informations de ta base Access dans ta DataTable interne, tu n'as plus besoin de requête SQL. Le DataView (plus léger, moins versatile et plus facile d'utilisation) et le BindingSource (plus lourd, plus versatile et plus compliqué) ont la capacité de filtrer une DataTable et même de créer à la volée une nouvelle table ou un tableau contenant juste les données filtrées. Même que la propriété "Filter" permet d'utiliser le ET logique et le OU logique (AND et OR). En prime, tu peux aussi trier et faire certains calculs.

Voici donc comme je vois la chose :

Dans un premier temps, tu charges ton premier ComboBox, avec la colonne correspondante de la DataTable que tu as récupérée d'Access et tu récupères la sélection dans une variable.

Dans un deuxième temps, tu filtres ta deuxième colonne, en fonction de la réponse à ton premier combobox, tu charges ton deuxième combobox, et tu gardes la sélection dans une seconde variable.

Dans un troisième temps, tu filtres ta troisième colonne en fonction du résultat de ton deuxième ComboBox, tu charges ton troisième combobox et tu gardes la sélection dans une troisième variable.

Ensuite, tu combines tes trois sélections avec des AND et tu filtres toute ta table.

En principe, tu devrais retrouver les résultats correspondant à tes trois ComboBoxes
25/07/2016, 22h52
François DORIN

Citation:

Envoyé par Amrz22

Bonjour dorinf, j'ai essayé ta requete mais toujours le meme souçis, le deuxieme combobox reste vide

Toujours un soucis, peut-être. Toujours le même, peut-être pas. Tu avais un message d'erreur (Informations supplémentaires : Erreur de syntaxe (opérateur absent) dans l'expression « id_res =Residence Seville ».). L'as-tu encore suite à la modification de la requête SQL ?

Je tiens a vous remercier pour votre aide, j'ai réussi à trouver la solution

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
    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
 
        Dim appid As Integer = Convert.ToInt32(ComboBox3.SelectedValue.ToString())
            fillapp(appid)
        'ComboBox4.SelectedIndex = 0
 
    End Sub
    Private Sub fillapp(appid As Integer)
        Dim con As New OleDbConnection()
        Dim cmd As New OleDbCommand()
        cmd.Connection = MyConn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "SELECT id_app, Num_app FROM Appartement WHERE id_bloc =@appid"
        cmd.Parameters.AddWithValue("@appid", appid)
        Dim objDs As New DataSet()
        Dim dAdapter As New OleDbDataAdapter()
        dAdapter.SelectCommand = cmd
        'con.Open()
        dAdapter.Fill(objDs)
        'con.Close()
        If objDs.Tables(0).Rows.Count > 0 Then
            ComboBox4.DataSource = objDs.Tables(0)
            ComboBox4.ValueMember = "id_app"
            ComboBox4.DisplayMember = "num_app"
 
        End If
    End Sub

ceci est un exemple de code pour remplir le combobox appartement grace a la selection du combobox "Bloc" maintenant tout marche à merveille , merci beaucoup