Discussion :

[brahounidz]

Bonjour tout le monde

je suis débutant, je viens de débuter a développer une application pour le suivi des dossiers d'associations
je veux que les éléments cochés de ma CheckedListBox soit insérés dans le même champ (pieces_fourni) de ma table (tab_asso) Access
et ceux qui ne sont pas cochés soit insérés dans le même champ(pieces_manquant) de la meme table
est ce que quelqu’un peut vérifier avec moi le code j'ai passé pas mal de temps essayant de résoudre ce problème mais sans résultats
voici le 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
35
36
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
cn.Open()
 
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
Dim x, z As Integer
 
Dim cmd As New OleDbCommand("INSERT INTO tab_asso(id_dossier,denomination,date_recep,nom_prenom,adresse,wilaya,code_wilaya,region,pieces_fourni,pieces_manquant) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & DateTimePicker1.Value.Date & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & ComboBox1.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & CheckedListBox1.Items(x).ToString & ",""',""' , '" & CheckedListBox1.Items(z).ToString & "' ", cn)
 
        cmd.Connection = cn
        da = New OleDbDataAdapter(cmd)
        da.Fill(dt)
        CheckedListBox1.DataSource = dt
        CheckedListBox1.DisplayMember = "dossier_ass"
        CheckedListBox1.ValueMember = "DESIGNATIONS"
        CheckedListBox1.Text = ""
        cmd.CommandType = CommandType.Text
 
        For i = 0 To CheckedListBox1.Items.Count - 1
 
 
            If CheckedListBox1.GetItemChecked(i) = True Then
                i = x
            Else
                i = z
            End If
 
        Next
        cmd.ExecuteNonQuery()
 
        MessageBox.Show("Data inserted successfuly")
 
        cn.Close()
 
    End Sub

[umfred]

Je ne suis pas sûr que ce soit une bonne idée de structure de données.... mais bon, il suffit de concaténer les champs dans 2 chaines

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Chaine_fourni as String, Chaine_manquant as String
For i = 0 To CheckedListBox1.Items.Count - 1
 
 
            If CheckedListBox1.GetItemChecked(i) = True Then
                Chaine_fourni &= CheckedListBox1.Items(i).Text
            Else
                Chaine_manquant &= CheckedListBox1.Items(i).Text
            End If
 
        Next

ou quelque chose comme ça.

PS: ta requête n'est pas sécurisée; on pourrait mettre "); drop table tab_asso;" dans un des champs et adieu ta table

[popo]

Je suis du même avis que umfred.
Ta structure n'est pas bonne.

Et ce, pour 2 raisons très simples.
La première, tu dois faire un traitement pour transformer tes données dans un sens et dans l'autre.
La seconde, en cas d'ajout de pièces, tu devras allonger la taille de tes colonnes pieces_fourni et pieces_manquant (au passage si tu dois écrire des nom de colonnes en française, c'est mieux de respecter les accords en genre et en nombre).

Je pourrai éventuellement rajouter une troisième raison : l'une des informations est inutile.
Si tu as la liste des pièces et que tu sais lesquelles sont fournies, tu peux aisément déduire celles qui manquent sans avoir besoin de les stocker.

Je verrai bien une table "association", une table "piece" et une table "lien_piece_association" pour les relier.

[ONTAYG]

Bonjour,

Ne surtout pas utiliser cette possibilités d'Access, car si un jour tu passes sur une base plus robuste cette fonctionnalité n'existe pas.

Philippe

[umfred]

Tu peux préciser la fonctionnalité dont tu parles?

[ONTAYG]

Tu peux préciser la fonctionnalité dont tu parles?

Re

Il s'agit des champs multivalués sous Access : https://access.developpez.com/actu/3...de-Denis-Hulo/

C'est une aberration d'utiliser ce genre de truc, car si on est amené à changer des SGBD on est mort cela ne respecte pas les règles.

ONTAYG

[brahounidz]

... Ta structure n'est pas bonne...

je dois les stocker pour d’autres traitement sur un autre formulaire

[umfred]

je dois les stocker pour d’autres traitement sur un autre formulaire

Non tu n'as pas besoin de les stocker ainsi, tu dois juste savoir si les pièces ont été fournies ou pas, pour un dossier; donc tu peux récupérer une liste des documents manquants par une requête et ensuite traiter cette liste.