Problème d'insertion dans la BDD Access 2007

**haylox** · 13/05/2013, 14h14

Salut,

ça fait un jours de recherche pour mon problème sans résultats , j'essaye d’insérer une nouvelle ligne dans une table (Client) de ma BDD Access 2007
en utilisant bindingsource après avoir ajouter la BDD dans les sources de données de mon projet et l'avoir copier dans le dossier de mon projet également. Voici le code de l’événement newBtn clicked :

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
    Private Sub newBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newBtn.Click
        If Me.newBtn.Text = "Nouveau" Then
            Me.Interface_Ajout()
            Me.ClientBindingSource.AddNew()
            Me.positionLab.Text = Me.Clt_Position
            Me.numClientTxt.Text = last_num() + 1
        Else
            If Me.newBtn.Text = "Ajouter" Then
                If Me.nomClientTxt.Text = "" Or Me.prenomClientTxt.Text = "" Or Me.cinClientTxt.Text = "" Then
                    If MessageBox.Show("Vous avez laissez des champs vides,voulez vous continuer?", "Ajout", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
 
                        Me.ClientBindingSource.EndEdit()
                        Me.ClientTableAdapter1.Update(Gestion_Des_ReclamationsDataSet1.Client)
                        Me.Interface_Initial()
                        'MsgBox(Me.Gestion_Des_ReclamationsDataSet1.Tables("Client").Rows.Count & "--" & Me.ClientBindingSource.Count)
                        MessageBox.Show("Client Bien Ajouté!", "Ajout", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    End If
                Else
                    Me.ClientBindingSource.EndEdit()
                    Me.ClientTableAdapter1.Update(Gestion_Des_ReclamationsDataSet1.Client)
                    Me.Interface_Initial()
                    MessageBox.Show("Client Bien Ajouté!", "Ajout", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                End If
            End If
        End If
 
    End Sub

Pour le fonctions et les procèdure utilisés dedant , voici leur 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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
Public Class Client
    Public Sub Interface_Initial()
        Me.numClientTxt.ReadOnly = True
        Me.nomClientTxt.ReadOnly = True
        Me.prenomClientTxt.ReadOnly = True
        Me.adresseClientTxt.ReadOnly = True
        Me.cinClientTxt.ReadOnly = True
 
        Me.newBtn.Enabled = True
        Me.newBtn.Text = "Nouveau"
        Me.cancelBtn.Enabled = False
        Me.editBtn.Enabled = True
        Me.editBtn.Text = "Modifier"
        Me.deleteBtn.Enabled = True
 
        Me.GroupBox4.Enabled = True
 
 
    End Sub
    Public Sub Interface_Ajout()
 
        Me.nomClientTxt.ReadOnly = False
        Me.prenomClientTxt.ReadOnly = False
        Me.adresseClientTxt.ReadOnly = False
        Me.cinClientTxt.ReadOnly = False
 
        Me.newBtn.Enabled = True
        Me.newBtn.Text = "Ajouter"
        Me.cancelBtn.Enabled = True
        Me.editBtn.Enabled = False
 
        Me.deleteBtn.Enabled = False
 
        Me.GroupBox4.Enabled = False
 
 
    End Sub
    Public Sub Interface_Modif()
 
        Me.nomClientTxt.ReadOnly = False
        Me.prenomClientTxt.ReadOnly = False
        Me.adresseClientTxt.ReadOnly = False
        Me.cinClientTxt.ReadOnly = False
 
        Me.newBtn.Enabled = False
        Me.editBtn.Text = "Valider"
        Me.cancelBtn.Enabled = True
 
        Me.deleteBtn.Enabled = False
 
        Me.GroupBox4.Enabled = False
 
 
    End Sub
 
    Public Function Clt_Position() As String
        Return Me.ClientBindingSource.Position + 1 & " / " & Me.ClientBindingSource.Count
    End Function
 
    Public Function last_num() As Integer
        Return Gestion_Des_ReclamationsDataSet1.Tables("Client").Compute("MAX(Num_Clt)", "")
    End Function
    Private Sub Client_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Interface_Initial()
 
        Me.ClientTableAdapter1.Fill(Gestion_Des_ReclamationsDataSet1.Client)
        Me.positionLab.Text = Me.Clt_Position
    End Sub

quand j’insère un nouvel enregistrement tout passe bien , je le voie dans l'interface , mais après avoir quitter l'interface quand je la ré-exécute je ne trouve rien ou également je ne trouve rien dans la base de données...aidez moi