Bonjour à tous,


System : Windows 8.1
Version de .Net : Visual Studio Communoty 2013
Version de Base de donnée : Access 2007
Machine : Athlon X3 440
RAM : 4 Go


j'ai connecté une base de donnée a VB.Net en suivant un tuto, mais j'ai un problème avec mon code. lors de l'exécution, les enregistrements apparaissent sans souci, je peux créer un nouveau sans souci, cependant lorsque je clique sur le bouton Ajouter j'ai le message d'erreur suivant.

An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll

j'ai ajouter un On Error Resume Next,

Mais, la mise a jour ne passe pas.

J'ai remarquer aussi en important la base depuis l'assistant de VB.NET à partir de l'onglet Data Source, puis en faisant un Drag and Drop des champs sur un formulaire, je peux voir les enregistrement, mais la mise a jour de ma base ne ce fais pas.

Voici mon 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
Imports System.Data.OleDb
Public Class Form1
 
    Dim Cnx As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\loic\Documents\facture.accdb")
    Dim Da As New OleDbDataAdapter("select * from Client", Cnx)
    Dim Ds As New DataSet
    Dim Bnd As BindingManagerBase
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Da.Fill(Ds, "Client")
        Bnd = BindingContext(Ds.Tables("Client"))
        TextBox1.DataBindings.Add("Text", Ds.Tables("Client"), "N°")
        TextBox2.DataBindings.Add("Text", Ds.Tables("Client"), "Nom")
        TextBox3.DataBindings.Add("Text", Ds.Tables("Client"), "Prénom")
        TextBox4.DataBindings.Add("Text", Ds.Tables("Client"), "Téléphone personnel")
        TextBox5.DataBindings.Add("Text", Ds.Tables("Client"), "Téléphone mobile")
        TextBox6.DataBindings.Add("Text", Ds.Tables("Client"), "Adresse")
        TextBox7.DataBindings.Add("Text", Ds.Tables("Client"), "Ville")
        TextBox8.DataBindings.Add("Text", Ds.Tables("Client"), "Code postal")
    End Sub
 
    Private Sub BtnPrécédent_Click(sender As Object, e As EventArgs) Handles BtnPrécédent.Click
        Bnd.Position -= 1
        LblEnregistrement.Text = Bnd.Position & " sur " & Ds.Tables("Client").Rows.Count
    End Sub
 
    Private Sub BtnSuivant_Click(sender As Object, e As EventArgs) Handles BtnSuivant.Click
        Bnd.Position += 1
    End Sub
 
    Private Sub BtnDébut_Click(sender As Object, e As EventArgs) Handles BtnDébut.Click
        Bnd.Position = 0
    End Sub
 
    Private Sub BtnFin_Click(sender As Object, e As EventArgs) Handles BtnFin.Click
        Bnd.Position = Ds.Tables("Client").Rows.Count
    End Sub
 
    Private Sub Nouveau_Click(sender As Object, e As EventArgs) Handles Nouveau.Click
        Bnd.AddNew()
    End Sub
 
    Private Sub Supprimer_Click(sender As Object, e As EventArgs) Handles Supprimer.Click
        Bnd.RemoveAt(Bnd.Position)
        Da.Update(Ds, "Client")
    End Sub
 
    Private Sub Modifier_Click(sender As Object, e As EventArgs) Handles Modifier.Click
        Bnd.EndCurrentEdit()
        Da.Update(Ds, "Client")
    End Sub
 
    Private Sub Ajouter_Click(sender As Object, e As EventArgs) Handles Ajouter.Click
        ' On Error Resume Next
        Dim FAjouter As New OleDbCommandBuilder(Da)
        Bnd.EndCurrentEdit()
        Da.Update(Ds, "Client")
    End Sub
 
End Class
merci... pour toute réponse.