Bonjour,

Voici un programme que je doit créer pour la gestion d'une base de données.


Or j'ai une erreur lorsque je clique sur le bouton "Mise à jour" du formulaire et l'application passe en "not responding" idem pour le bouton "bibilothèque".

La base de donnée est une base de données Access.


Voici mon code source:

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
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim Connexion As String
    Dim ConnexionOLE As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim dv As DataView
    Dim cb As OleDbCommandBuilder
 
    Public Sub AfficheTous()
        Connexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\juninho\Documents\bd1.mdb"
        ConnexionOLE = New OleDbConnection
        ConnexionOLE.ConnectionString = Connexion
        da = New OleDbDataAdapter("Select * from switchs", ConnexionOLE)
        ds = New DataSet()
        da.Fill(ds, "switchs")
        dv = ds.Tables("switchs").DefaultView
        DataGridView1.DataSource = dv
        dv.AllowEdit = True
    End Sub
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AfficheTous()
    End Sub
 
    Private Sub Bibliothèque_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bibliothèque.Click
        Connexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\juninho\Documents\bd1.mdb"
        ConnexionOLE.ConnectionString = Connexion
        da = New OleDbDataAdapter("Select * from switchs where [LibelleObjet]='bibliothèque'", ConnexionOLE)
        ds = New DataSet()
        da.Fill(ds, "switchs")
        dv = ds.Tables("switchs").DefaultView
        DataGridView1.DataSource = dv
        dv.AllowEdit = True
    End Sub
 
    Private Sub Tous_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tous.Click
        AfficheTous()
    End Sub
 
    Private Sub MiseAjour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MiseAjour.Click
        Connexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\juninho\Documents\bd1.mdb"
        ConnexionOLE.ConnectionString = Connexion
        cb = New OleDbCommandBuilder(da)
        da.Update(ds, "switchs")
    End Sub
 
    Private Sub Quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quitter.Click
        Application.Exit()
 
    End Sub
End Class
Merci pour votre aide