Discussion :

[brahounidz]

Bonjour tous le monde
dans mon formulaire de saisie je veux insérer 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 même 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 l'erreur

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

Le problème c'est que ta requête liée à ton DataAdpater est un INSERT, or INSERT ne renvoie que le nombre de lignes modifiées et pas des données de ta table. Donc tu ne peux pas remplir un DataTable.
Regarde les réponses que l'on t'a faite sur ton autre sujet de la rubrique VB.NET (où aurait pu/du se situer aussi cette problématique) https://www.developpez.net/forums/d2...-table-access/

[ONTAYG]

Bonjour,

Je pense que tu veux parler des champs multivalués, à éviter et à fuir.

ONTAYG