Discussion :

[juninho]

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

[Danyel]

A vrai dire on ne peut pas vraiment t'aider car tu nous dit juste : J'ai une erreur, merci de m'aider ...
Il va etre difficile pour nous de deviner la dite erreur

[juninho]

Bonjour

effectivement j'étais un peu HS hier et j'ai oublier la capture d'écran avec l'erreur... .

La voici:


désolé pour l'oubli et merci

[tomlev]

A priori ta table switchs n'a pas de clé primaire, et donc le command builder ne sait pas générer les commandes UPDATE/INSERT/DELETE adéquates pour la mettre à jour.
Mets une clé primaire sur la table et ça devrait passer

[juninho]

Bonjour
merci, je vais esayer

[juninho]

Bonjour

me revoici après des semaines d'interros... .

J'ai donc mis en place en clé primaire, sur mon unique table de ma Base Access, mais j'ai toujours cette erreur...