Erreur lors du clic sur "mise à jour"

**juninho** · 29/12/2008, 20h52

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** · 30/12/2008, 09h01

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** · 30/12/2008, 20h00

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** · 03/01/2009, 23h03

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** · 21/01/2009, 09h26

Bonjour
merci, je vais esayer

**juninho** · 26/01/2009, 06h50

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...

**tomlev** · 26/01/2009, 09h52

Essaie d'indiquer aussi dans la DataTable (dans le dataset) quelle est la clé primaire

**juninho** · 03/02/2009, 09h22

Bonjour,

je me re consacre à ce projet dès ce soir.

Sinon une question supplémentaire:

J'ai trouver sur msdn, le code pour supprimer une ligne d'une datatable ( commande DELETE je crois).

Mais si j'ai bien compris ( VB.Net ou C#), il faut préciser la ligne à supprimer.

Vais pas écrire ce code 100 fois car j'ai 100 lignes potentiellement supprimable ?

Il doit bien y avoir un truc pour effacer des donner d'une base Access via une ComboBox ou autre... .

ca serais plus simple sachant que utilisateur lamba devrais s'en sortir d'où l'importance de l'interface graphique.

Merci

**tomlev** · 03/02/2009, 10h17

Envoyé par juninho

J'ai trouver sur msdn, le code pour supprimer une ligne d'une datatable ( commande DELETE je crois).

DELETE c'est du SQL...
Par contre tu as la méthode DataRow.Delete, qui marque la ligne comme supprimée. Elle sera effectivement enlevée de la DataTable quand tu appelleras AcceptChanges (appelé automatiquement lors du DataAdapter.Update, à moins que tu aies mis AcceptChangesDuringUpdate à false)

Envoyé par juninho

Mais si j'ai bien compris ( VB.Net ou C#), il faut préciser la ligne à supprimer.

Vais pas écrire ce code 100 fois car j'ai 100 lignes potentiellement supprimable ?

Non, il ne faut l'écrire qu'une fois, mais avec un paramètre qui indique la ligne à supprimer...

**juninho** · 03/02/2009, 12h18

Tu as vu juste, c'est bien de ça dont je parlais.

Sinon pour le paramètre, il faut que ce soit la ligne séléctionner via l'interface graphique.

Vais chercher pour voire comment on fait, sinon, je posterais en réponse ici même... .

Merci

**juninho** · 06/02/2009, 14h11

Bonjour

voici les fruits de mes recherches:

http://msdn.microsoft.com/fr-fr/library/5ycd1034.aspx

http://msdn.microsoft.com/fr-fr/library/feh3ed13.aspx

http://msdn.microsoft.com/fr-fr/library/tat996zc.aspx

Mais étant un Grand débutant, je suis loin d'avoir tout compris... .

**tomlev** · 06/02/2009, 14h21

J'ai pas compris sur quoi tu bloques, donc c'est difficile de t'aider...

**juninho** · 09/02/2009, 09h59

Bonjour

me revoilà pour de plus amples précisions:

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
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
 
 
 
 
namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        private void Form1_Load(object sender, EventArgs e)
        {
            // TODO : cette ligne de code charge les données dans la table 'switchscruasDataSet.Switchs'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
            this.switchsTableAdapter.Fill(this.monDataSet.Switchs);
 
        }
 
        private void Quitter_Click(object sender, EventArgs e)
        {
            Application.Exit();
        }
 
        private void Ajout_Click(object sender, EventArgs e)
        {
            DataRow newSwitchsRow = monDataSet.Tables["Switchs"].NewRow();
 
            newMatableRow["N°"] = "";
            newMatableRow["Numéro Interne"] = "";
            newMatableRow["Adresse MAC"] = "";
            newMatableRow["Switch"] = "";
            newMatableRow["Lieu"] = "";
 
            switchscruasDataSet.Tables["Switchs"].Rows.Add(newSwitchsRow);
 
        }
 
 
    }
}

Le code ci-dessus est celui de mon application.
En recherchant sur internet, je suis tomber sur le code ( pour le bouton Ajout).

Dans le vrai code, j'ai bien sur remplacer le "mon" du Dataset par le nom de ce dernier, idem pour maTable, par le nom de la table.

Cependant, pas de souci lors de la compilation.
Mais lors de la saisie de nouvelle données, le numéro auto-incrémenter, passe à -1 au lieu de 75, et j'ai une exception.
Malheusement, je ne peut pas metre une capture avant ce soir... .

J'éditerais mon poste ce soir, mais au cas où si je code suffit à me mettre sur la voie... .

Sinon, l'exception est:
Format de chaine d'entrée incorrect. Impossible de stocker<> dans la colonne N°. Type attendu est Int32.

Pourtant je suis sûr de ne pas m'être planter sur le int concernant cette colonne... .

Sinon pour rappel, le but est d'enregistrer des données via l'interface graphique... .

Merci à vous

**tomlev** · 09/02/2009, 10h23

Envoyé par juninho

Format de chaine d'entrée incorrect. Impossible de stocker<> dans la colonne N°. Type attendu est Int32.

Tu ne peux pas mettre une string dans une colonne qui attend un Int32...

EDIT: tu es passé à C# entre temps ?

**juninho** · 09/02/2009, 10h29

Disons que mon responsable m'ademander de le faire et C# et BV.net en même temps.

il parait que c'est la même chose à la synthaxe prêt... .

sinon pour le fichier Access, dans la table, j'ai bien préciser numeric et non pas int... .

**tomlev** · 09/02/2009, 11h04

Envoyé par juninho

Disons que mon responsable m'ademander de le faire et C# et BV.net en même temps.

Il aime le temps perdu ton responsable

Envoyé par juninho

il parait que c'est la même chose à la synthaxe prêt... .

A peu près, oui (sauf qu'il n'y a pas de "h" à syntaxe

)

Envoyé par juninho

sinon pour le fichier Access, dans la table, j'ai bien préciser numeric et non pas int... .

Ce qui pose problème ici c'est le type indiqué dans la colonne de la DataTable, pas dans la base.
Et de toutes façons, numeric c'est quand même un nombre...

**juninho** · 09/02/2009, 12h33

Ok merci beaucoup Tomlev

Sinon j'ai vu que tu était "heureux" ou satisfait de me voir aller vers le C#.

Mais que reproche tu à VB.net ?

C'est un langage dont les jours sont comptés ?

Merci

**tomlev** · 09/02/2009, 12h39

Envoyé par juninho

Mais que reproche tu à VB.net ?

Ben c'est surtout une question de goût (notamment la syntaxe que je n'aime pas trop), mais il y a aussi des raisons plus profondes :
- le late-binding (résolution du type lors de l'exécution), source de bugs
- la conversion implicite de/vers des chaines de caractères
- la gestion implicite des paramètres de sortie qui peut induire des bugs
- l'instruction Handles que je trouve un peu obscure (on ne sait jamais très bien à quel moment le handler est affecté, ni ce qui se passe quand la cible change...)
- la possibilité d'utiliser le nom d'une classe Form comme si c'était une instance de la classe (une aberration d'un point de vue POO)
Bref, beaucoup de petites choses comme ça, souvent liées à l'héritage de VB6 qui n'était pas un "vrai" langage objet

Envoyé par juninho

C'est un langage dont les jours sont comptés ?

Non, Microsoft n'a pas du tout l'intention de le laisser tomber (malheureusement

)

**juninho** · 09/02/2009, 13h15

Ok merci opur tout

j'espère avoir bientôt ton niveau... .

En tout cas

pour ton aide

**juninho** · 10/02/2009, 07h56

Bonjour Tomlev

J'ai bien regarder les propriétées de cette collonne dans la Datatable.

Effectivement System.Data.Int32 est séléctionner.

Qui dis int dis nombres positifs ou négatifs ( si je ne me trompe pas).

Donc dans ce cas, pourquoi lors de l'execution du programme, quand dans cette fameuse colonne, je sais par exemple "74", j'ai droit à cette exception ?

74 c'est bien un INT non ?

Merci

Erreur lors du clic sur "mise à jour"

Windows Forms

Discussions similaires

Partager

Partager