Discussion :

[ICyam]

Bonjour,

Voila le contexte :
Je liste les dossiers dans une ListView, lorsque je sélectionne une ligne de cette dernière chaque éléments se met en place dans des TextBox que je peux modifier. Lorsque les modifications sont faites, je veux mettre a jour l'enregistrement dans la base de donnée. et c'est la que j'ai une erreur d'exception que je ne comprend 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
  'Base de Donnée
        Dim MaConnexion As New OleDbConnection(MaBDD)
        'test d'ouverture
        If MaConnexion.State = ConnectionState.Closed Then MaConnexion.Open() 'Ouverture
 
        'Elements sélectionner dans la liste
        Dim dossier As ListViewItem = LV_Dossiers.SelectedItems(0)
        Dim id As String = dossier.SubItems(0).Text
 
        'Commande SQL pour récupérer tous les utilisateurs/Dossier de la base de données et transfert des résultats dans Users
        Dim CommandSQL As New OleDbCommand("UPDATE Dossiers SET NomUser=@nom, PrenomUser=@prenom, NomDossier=@nomD, DesDossier=@desD, MPDUser=@mdpD WHERE IDUser=@id", MaConnexion)
        CommandSQL.Parameters.AddWithValue("@nom", TB_Nom.Text)
        CommandSQL.Parameters.AddWithValue("@prenom", TB_Prenom.Text)
        CommandSQL.Parameters.AddWithValue("@nomD", TB_NomDossier.Text)
        CommandSQL.Parameters.AddWithValue("@desD", TB_DescriptionDossier.Text)
        CommandSQL.Parameters.AddWithValue("@mdpD", LB_mdpC.Text)
        CommandSQL.Parameters.AddWithValue("@id", id)
 
        CommandSQL.ExecuteNonQuery() 'Excustion de la commande SQL
        CommandSQL.Parameters.Clear() 'Nétoyage des parametres
        MaConnexion.Close()
 
        'Réiniatilisation et mise à jour de la liste des dossiers
        majListView()

Base de données Access :


Erreur d'exception :


Merci par avance pour votre aide.

[r.morel]

Salut,
Un de tes paramètres doit avoir une valeur nul ?
@+

[ICyam]

Justement, aucun de mes paramètres n'est vide. Y compris le Mot de passe que j'ai mis à "0" lorsqu'il n'y en a pas.

J'ai même remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
CommandSQL.Parameters.AddWithValue("@nom", TB_Nom.Text)
        CommandSQL.Parameters.AddWithValue("@prenom", TB_Prenom.Text)
        CommandSQL.Parameters.AddWithValue("@nomD", TB_NomDossier.Text)
        CommandSQL.Parameters.AddWithValue("@desD", TB_DescriptionDossier.Text)
        CommandSQL.Parameters.AddWithValue("@mdpD", LB_mdpC.Text)
        CommandSQL.Parameters.AddWithValue("@id", id)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
CommandSQL.Parameters.AddWithValue("@nom", "1")
        CommandSQL.Parameters.AddWithValue("@prenom", "2")
        CommandSQL.Parameters.AddWithValue("@nomD", "3")
        CommandSQL.Parameters.AddWithValue("@desD", "4")
        CommandSQL.Parameters.AddWithValue("@mdpD", "5")
        CommandSQL.Parameters.AddWithValue("@id", "12")

Histoire de tester les paramètres.



Je sèche...

[Pol63]

peut etre que c'est le fait que id soit un string en c# et un nombre dans access

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CommandSQL.Parameters.AddWithValue("@id", 12)

ca marche avec ca ?

[ICyam]

Toujours pareil.... Mais je crois que j'avais déjà essayé avant de poster sur le fofo...

On dirais qu'il y a une erreur dans ma requête, mais je ne vois pas où et je me crève les yeux et je m'énerve en plus...

cdt,

[Pol63]

en même temps access n'a jamais été un bon outil, les messages d'erreur y sont toujours le moins explicite possible
et c'est plus un jouet pour débutant qu'une vraie base de données, aucun pro ne travaille avec ça s'il peut faire autrement

peut etre le addwithvalue (qui doit être marqué [obsolete] d'ailleurs), essaye avec un .add qui spécifie le type de la colonne

[ICyam]

en même temps access n'a jamais été un bon outil, les messages d'erreur y sont toujours le moins explicite possible
et c'est plus un jouet pour débutant qu'une vraie base de données, aucun pro ne travaille avec ça s'il peut faire autrement

En même temps Access est bien pratique (Tout dans un seul et même fichier), ceci étant dit, j'aimerai bien trouver un tuto sur l'utilisation de base SQLite par exemple (Mais c'est un aparté)

peut etre le addwithvalue (qui doit être marqué [obsolete] d'ailleurs), essaye avec un .add qui spécifie le type de la colonne

Tu peux être plus explicite sur l'utilisation de .Add à la place de .AddWithValue (Qui n'est pas marqué comme obsolète il me semble (VS2015) je doit admettre que je sèche une peux plus là...

Merci par avance.

[Pol63]

En effet c'est une des surcharges de .add qui est deprecated
Sinon c'est .add(nom, type).value = valeur je crois

[StringBuilder]

Ce qui me surprends un peu, c'est que l'erreur ne se trouve pas au moment de l'exécution, ni au moment du passage des paramètres, mais au moment de l'instanciation de CommandSQL :

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim CommandSQL As New OleDbCommand("UPDATE Dossiers SET NomUser=@nom, PrenomUser=@prenom, NomDossier=@nomD, DesDossier=@desD, MPDUser=@mdpD WHERE IDUser=@id", MaConnexion)

D'après mes souvenirs, OleDb, tout comme Odbc, ne support pas les paramètres nommés, mais uniquement les paramètres nommés (contrairement aux connecteur natifs).

Ainsi, peux-tu modifier la déclaration en :

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim CommandSQL As New OleDbCommand("UPDATE Dossiers SET NomUser=?, PrenomUser=?, NomDossier=?, DesDossier=?, MPDUser=? WHERE IDUser=?", MaConnexion)

Attention à bien passer les paramètres dans le bon ordre !

[ICyam]

Ainsi, peux-tu modifier la déclaration en :

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim CommandSQL As New OleDbCommand("UPDATE Dossiers SET NomUser=?, PrenomUser=?, NomDossier=?, DesDossier=?, MPDUser=? WHERE IDUser=?", MaConnexion)

Attention à bien passer les paramètres dans le bon ordre !

Bonjour,

J'ai bêtement changer ma ligne par la ligne que tu m'as donner, sans rien changer au reste du code (Ligne que je comprend d’ailleurs pas), ce qui donnerais :

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
Private Sub BtnModifDossier_Click(sender As Object, e As EventArgs) Handles BtnModifDossier.Click
        'Base de Donnée
        Dim MaConnexion As New OleDbConnection(MaBDD)
        'test d'ouverture
        If MaConnexion.State = ConnectionState.Closed Then MaConnexion.Open() 'Ouverture
 
        'Elements sélectionner dans la liste
        Dim dossier As ListViewItem = LV_Dossiers.SelectedItems(0)
        Dim id As String = dossier.SubItems(0).Text
 
        'Commande SQL pour récupérer tous les utilisateurs/Dossier de la base de données et transfert des résultats dans Users
        Dim CommandSQL As New OleDbCommand("UPDATE Dossiers SET NomUser=?,PrenomUser=?,NomDossier=?,DesDossier=?,MPDUser=? WHERE IDUser=?", MaConnexion)
        CommandSQL.Parameters.AddWithValue("@nom", TB_Nom.Text)
        CommandSQL.Parameters.AddWithValue("@prenom", TB_Prenom.Text)
        CommandSQL.Parameters.AddWithValue("@nomD", TB_NomDossier.Text)
        CommandSQL.Parameters.AddWithValue("@desD", TB_DescriptionDossier.Text)
        CommandSQL.Parameters.AddWithValue("@mdpD", LB_mdpC.Text)
        CommandSQL.Parameters.AddWithValue("@id", id)
 
        CommandSQL.ExecuteNonQuery() 'Excustion de la commande SQL
        CommandSQL.Parameters.Clear() 'Nétoyage des parametres
        MaConnexion.Close()
 
        'Réiniatilisation et lise à jour de la liste des dossiers
        majListView()
    End Sub

quoi qu'il en soit, l'erreur d'exception reste la même au même moment.

Ce que je ne comprend pas, c'est que partout ailleurs, dans mon code, le paramètre @variable fonctionne très bien... Exemple ce bout de code fonctionne parfaitement :

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
 Private Sub BtnNouveauDossier_Click(sender As Object, e As EventArgs) Handles BtnNouveauDossier.Click
 
        'Base de Donnée
        Dim MaConnexion As New OleDbConnection(MaBDD)
        'test d'ouverture
        If MaConnexion.State = ConnectionState.Closed Then MaConnexion.Open() 'Ouverture
 
        'Commande SQL pour récupérer tous les utilisateurs/Dossier de la base de données et transfert des résultats dans Users
        Dim CommandSQL As New OleDbCommand("INSERT INTO Dossiers(NomUser, PrenomUser, NomDossier, DesDossier, MDPUser) VALUES(@nom, @prenom, @nomD, @desD, @mdpU)", MaConnexion)
        CommandSQL.Parameters.AddWithValue("@nom", TB_Nom.Text)
        CommandSQL.Parameters.AddWithValue("@prenom", TB_Prenom.Text)
        CommandSQL.Parameters.AddWithValue("@nomD", TB_NomDossier.Text)
        CommandSQL.Parameters.AddWithValue("@desD", TB_DescriptionDossier.Text)
        'Si le mot de passe est vide on fixe le mot de passe à "0"
        If TB_Mdp1.Text = "" Then
            CommandSQL.Parameters.AddWithValue("@mdpU", "0")
        Else
            CommandSQL.Parameters.AddWithValue("@mdpU", TB_Mdp1.Text)
        End If
        CommandSQL.ExecuteNonQuery() 'Excustion de la commande SQL
        CommandSQL.Parameters.Clear() 'Nétoyage des parametres
        MaConnexion.Close()
 
        'Réiniatilisation et lise à jour de la liste des dossiers
        majListView()
 
    End Sub

Je sèche tellement que je suis en train de me demander si je ne vais changer de Gestionnaire de BDD comme par exemple SQLite, mais ce me demande de reprendre tout mon code non ?

Cordialement,

[Pol63]

access ne prend pas en charge les @nom
du moins il ne prend pas en compte les noms mais repère bien que c'est une variable, et il utilise l'ordre d'apparation à faire coincider avec l'ordre du .Add (c'est bien ton cas)
donc tant qu'à faire autant utiliser @nom au lieu de ?

norlament le langage sql suit pas mal de normes, access ne suit pas toujours les normes, mais sur des requetes simples on peut généralement passer d'un sgbdr à l'autre sans rien changer
(sur une requête récursive avec des fonctions fenetrées je dis pas ^^)

peut tu nous donner la stacktrace de l'exception et les infos sur une éventuelles InnerException
(via le bouton afficher les détails au moment de l'erreur)
parce que je ne vois pas ce qui cloche dans ton cas quand même


au passage :

Dim MaConnexion As New OleDbConnection(MaBDD) + MaConnexion.Close()
=> il vaut mieux utiliser using / end using qui fermera la connexion et libèrera la mémoire même en cas d'erreur
If MaConnexion.State = ConnectionState.Closed Then MaConnexion.Open() 'Ouverture
=> tu viens de l'instancier donc elle est fermée, donc juste .Open suffit
CommandSQL.Parameters.Clear() 'Nétoyage des parametres
=> inutile vu que tu n'utilises pas ce command plus loin

[ICyam]

access ne prend pas en charge les @nom
du moins il ne prend pas en compte les noms mais repère bien que c'est une variable, et il utilise l'ordre d'apparation à faire coincider avec l'ordre du .Add (c'est bien ton cas)
donc tant qu'à faire autant utiliser @nom au lieu de ?

norlament le langage sql suit pas mal de normes, access ne suit pas toujours les normes, mais sur des requetes simples on peut généralement passer d'un sgbdr à l'autre sans rien changer
(sur une requête récursive avec des fonctions fenetrées je dis pas ^^)

peut tu nous donner la stacktrace de l'exception et les infos sur une éventuelles InnerException
(via le bouton afficher les détails au moment de l'erreur)
parce que je ne vois pas ce qui cloche dans ton cas quand même

Voila, je pense que tout y est

au passage :

Dim MaConnexion As New OleDbConnection(MaBDD) + MaConnexion.Close()
=> il vaut mieux utiliser using / end using qui fermera la connexion et libèrera la mémoire même en cas d'erreur
If MaConnexion.State = ConnectionState.Closed Then MaConnexion.Open() 'Ouverture
=> tu viens de l'instancier donc elle est fermée, donc juste .Open suffit
CommandSQL.Parameters.Clear() 'Nétoyage des parametres
=> inutile vu que tu n'utilises pas ce command plus loin

Merci des conseil... ça a du te piquer les yeux ca non ? Je vais optimiser tout cela....

[Pol63]

non rien de bien grave à mettre une ligne de code inutile, y en a qui nous présente du code totalement étrange parfois ^^


tu as essayé dans access ? je crois qu'il y a un menu où l'on peut écrire une requete, et si tu mets des paramètres y a un popup par paramètre ou tu peux mettre la valeur
si ca passe dans access regarde le contenu de CommandSQL.Parameters en détail (clic droit / espion express ou shift + F9) pour vérifier qu'il y a bien ce qu'il y a écrit dans le code (bon nombre de paramètre, bon ordre, bonne valeur)

[StringBuilder]

Dans le détail de l'exception, peux-tu afficher le contenu de "keys" et "values" ?

En effet, le message indique un paramètre manquant (ou vide).

Aussi, dans ta capture d'écran, je n'arrive pas à voir quelle ligne provoque l'erreur.
C'est le ExecuteNonQuery() ?

[ICyam]

Dans le détail de l'exception, peux-tu afficher le contenu de "keys" et "values" ?

En effet, le message indique un paramètre manquant (ou vide).

Aussi, dans ta capture d'écran, je n'arrive pas à voir quelle ligne provoque l'erreur.
C'est le ExecuteNonQuery() ?

Oui, c'est cette ligne de commande :

Désolé, je n'avais pas vu qu'on pouvait copier le contenu du détail dans le presse papier :

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
 
L'exception System.Data.OleDb.OleDbException n'a pas été gérée
  ErrorCode=-2147217904
  HResult=-2147217904
  Message=Aucune valeur donnée pour un ou plusieurs des paramètres requis.
  Source=Microsoft JET Database Engine
  StackTrace:
       à System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(OleDbHResult hr)
       à System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult)
       à System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult)
       à System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult)
       à System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)
       à System.Data.OleDb.OleDbCommand.ExecuteNonQuery()
       à ICyamBank.WinGestDossiers.BtnModifDossier_Click(Object sender, EventArgs e) dans C:\Users\aandr\onedrive\dossiers_pc\documents\visual studio 2015\Projects\ICyamBank\ICyamBank\Fenetres\WinGestDossiers.vb:ligne 180
       à System.Windows.Forms.Control.OnClick(EventArgs e)
       à System.Windows.Forms.Button.OnClick(EventArgs e)
       à System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
       à System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
       à System.Windows.Forms.Control.WndProc(Message& m)
       à System.Windows.Forms.ButtonBase.WndProc(Message& m)
       à System.Windows.Forms.Button.WndProc(Message& m)
       à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
       à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
       à System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
       à System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
       à System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
       à System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       à System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       à System.Windows.Forms.Application.RunDialog(Form form)
       à System.Windows.Forms.Form.ShowDialog(IWin32Window owner)
       à System.Windows.Forms.Form.ShowDialog()
       à ICyamBank.WinPrincipal_ICyamBank.GestionDesDossiersToolStripMenuItem_Click(Object sender, EventArgs e) dans C:\Users\aandr\onedrive\dossiers_pc\documents\visual studio 2015\Projects\ICyamBank\ICyamBank\Fenetres\WinPrincipal_ICyamBank.vb:ligne 32
       à System.Windows.Forms.ToolStripItem.RaiseEvent(Object key, EventArgs e)
       à System.Windows.Forms.ToolStripMenuItem.OnClick(EventArgs e)
       à System.Windows.Forms.ToolStripItem.HandleClick(EventArgs e)
       à System.Windows.Forms.ToolStripItem.HandleMouseUp(MouseEventArgs e)
       à System.Windows.Forms.ToolStripItem.FireEventInteractive(EventArgs e, ToolStripItemEventType met)
       à System.Windows.Forms.ToolStripItem.FireEvent(EventArgs e, ToolStripItemEventType met)
       à System.Windows.Forms.ToolStrip.OnMouseUp(MouseEventArgs mea)
       à System.Windows.Forms.ToolStripDropDown.OnMouseUp(MouseEventArgs mea)
       à System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
       à System.Windows.Forms.Control.WndProc(Message& m)
       à System.Windows.Forms.ScrollableControl.WndProc(Message& m)
       à System.Windows.Forms.ToolStrip.WndProc(Message& m)
       à System.Windows.Forms.ToolStripDropDown.WndProc(Message& m)
       à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
       à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
       à System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
       à System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
       à System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
       à System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       à System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       à ICyamBank.My.MyApplication.Main(String[] Args) dans :ligne 81
       à System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
       à System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
       à Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
       à System.Threading.ThreadHelper.ThreadStart_Context(Object state)
       à System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
       à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
       à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
       à System.Threading.ThreadHelper.ThreadStart()
  InnerException:

C'est mieux comme ca ?

[ICyam]

non rien de bien grave à mettre une ligne de code inutile, y en a qui nous présente du code totalement étrange parfois ^^


tu as essayé dans access ? je crois qu'il y a un menu où l'on peut écrire une requete, et si tu mets des paramètres y a un popup par paramètre ou tu peux mettre la valeur
si ca passe dans access regarde le contenu de CommandSQL.Parameters en détail (clic droit / espion express ou shift + F9) pour vérifier qu'il y a bien ce qu'il y a écrit dans le code (bon nombre de paramètre, bon ordre, bonne valeur)

Je ne vois pas où je peux exécuter une commande SQL dans Access

Il y a tellement de donnée dans la fenêtre qui s'ouvre avec MAJ+F9 que je ne sais où regarder, peux tu être plus explicite ?

Dans CommandSQL.DbParameterCollection tout m'a l'air conforme :

[Pol63]

Mode création de requête ou un truc dans le genre
Les paramètres semblent biens

[ICyam]

Voila le requête générer directement depuis Access :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UPDATE Dossiers SET Dossiers.NomUser = "Andrieu", Dossiers.PrenomUser = "Alexandre", Dossiers.NomDossier = "Dossier Alexandre Andrieu", Dossiers.DesDossier = "Description dossier Alexandre Andrieu", Dossiers.MDPUser = "1234" WHERE Dossiers.ID = "2";

[Pol63]

bouton sql direct
ou clic droit quelque part / afficher sql

[ICyam]

C'est ce que j'ai fait et ca donne ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
UPDATE Dossiers SET Dossiers.NomUser = "Andrieu", Dossiers.PrenomUser = "Alexandre", Dossiers.NomDossier = "Dossier Alexandre Andrieu", Dossiers.DesDossier = "Description dossier Alexandre Andrieu", Dossiers.MDPUser = "1234"
WHERE ((([Dossiers].[ID])="2"));