Drole de bug avec DataGrid et requete

Bonjour,

J'ai un drole de bug que je ne comprends pas.

J'affiche dans un DataGrid le contenu d'une table. J'ai produit une procédure pour valider si la table est vide ou pleine. Si c'est le cas ca n'affiche rien. SINON je call une autre procédure pour afficher les données dans la table.

Voici le code pour vérifier si la table PIECES est vide ou pleine.
Code:

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 Private Sub verifier_trier_piece() Dim strCon = CStr("provider=microsoft.jet.oledb.4.0;" & "data source= " & Application.StartupPath & "\demandes.mdb" & ";") Dim CnEnreg As OleDb.OleDbConnection Dim CmdEnreg As OleDb.OleDbCommand CnEnreg = New OleDb.OleDbConnection(strCon) CnEnreg.ConnectionString = strCon CnEnreg.Open() CmdEnreg = CnEnreg.CreateCommand() 'Creation de commande Dim requete As String = vbEmpty requete = "SELECT ID_Piece FROM Pieces" CmdEnreg.CommandText = requete Try CmdEnreg.ExecuteNonQuery() 'Exécution de requete Dim enumerate As OleDb.OleDbDataReader = CmdEnreg.ExecuteReader() If enumerate.HasRows = True Then '' la piece existe! CnEnreg.Close() CnEnreg = Nothing enumerate.Close() enumerate = Nothing CmdEnreg = Nothing Call Me.afficher_DansGrid_Pieces() Else ' elle n'existe pas. CnEnreg.Close() CnEnreg = Nothing enumerate.Close() enumerate = Nothing CmdEnreg = Nothing MsgBox("Aucune pièce trouvée avec la lettre " & Me.Cbox_Pieces.Text, MsgBoxStyle.Information) End If Catch ex As OleDb.OleDbException MsgBox(ex.Message) CnEnreg.Close() CnEnreg = Nothing CmdEnreg = Nothing End Try End Sub
Après je call cette procédure qui affiche les données dans la table PIECES.
Code:

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 Dim strCon$ = CStr("provider=microsoft.jet.oledb.4.0;" & "data source= " & Application.StartupPath & "\Demandes.mdb" & ";") Dim CnEnreg As New OleDb.OleDbConnection Dim CmdR As New OleDb.OleDbCommand Dim DtsetRecherche As New DataSet Dim dtAdapteurRecherche As New OleDb.OleDbDataAdapter 'Dim IEnum As IEnumerator CnEnreg.ConnectionString = strCon$ Dim requete As String requete = "select Id_Piece from Pieces" CnEnreg.Open() CmdR = CnEnreg.CreateCommand() 'Creation de commande CmdR.CommandText = requete ' mode non connecté DtsetRecherche = New DataSet Try ' prepare le code pour afficher le resultat de la requete dans la datagridview dtAdapteurRecherche = New OleDb.OleDbDataAdapter dtAdapteurRecherche.SelectCommand = CmdR dtAdapteurRecherche.Fill(DtsetRecherche, "Pieces") Me.DG_Techniciens.DataSource = DtsetRecherche.Tables("Pieces") Me.DG_Pieces.Refresh() Me.DG_Pieces.Columns.Item(0).HeaderText = "ID Piece" Me.DG_Pieces.Columns.Item(0).Visible = true Me.DG_Pieces.AllowUserToAddRows = False Me.DG_Pieces.AllowUserToDeleteRows = False Me.DG_Pieces.AllowUserToOrderColumns = False Me.DG_Pieces.AllowUserToResizeColumns = False Me.DG_Pieces.AllowUserToResizeRows = False CnEnreg = Nothing CmdR = Nothing dtAdapteurRecherche = Nothing 'Objet déconnectée DtsetRecherche = Nothing Catch ex As OleDb.OleDbException MsgBox(ex.Message) CnEnreg = Nothing CmdR = Nothing dtAdapteurRecherche = Nothing 'Objet déconnectée DtsetRecherche = Nothing End Try CnEnreg = Nothing CmdR = Nothing dtAdapteurRecherche = Nothing 'Objet déconnectée DtsetRecherche = Nothing
A la ligne

Code:

Me.DG_Pieces.Columns.Item(0).HeaderText = "ID Piece"

tout arrête. Le programme plante. Voici le message d'erreur.

Citation:

System.ArgumentOutOfRangeException was unhandled
Message="L'index était hors limites. Il ne doit pas être négatif et doit être inférieur à la taille de la collection. Nom du paramètre*: index"
ParamName="index"
Source="mscorlib"
StackTrace:
à System.Collections.ArrayList.get_Item(Int32 index) à System.Windows.Forms.DataGridViewColumnCollection.get_Item(Int32 index) à Gestion_Des_Services.Gestions.afficher_DansGrid_Pieces() dans K:\Programme Gestion Des Demandes\Gestion Des Services\Gestion Des Services\Gestions.vb:ligne 464 à Gestion_Des_Services.Gestions.verifier_trier_piece() dans K:\Programme Gestion Des Demandes\Gestion Des Services\Gestion Des Services\Gestions.vb:ligne 309 à Gestion_Des_Services.Gestions.Btn_Trier_Piece_Click(Object sender, EventArgs e) dans K:\Programme Gestion Des Demandes\Gestion Des Services\Gestion Des Services\Gestions.vb:ligne 276 à 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(Int32 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.Run(ApplicationContext context) à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun() à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine) à Gestion_Des_Services.My.MyApplication.Main(String[] Args) dans 17d14f5c-a337-4978-8281-53493378c1071.vb:ligne 81 à System.AppDomain._nExecuteAssembly(Assembly 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.Run(ExecutionContext executionContext, ContextCallback callback, Object state) à System.Threading.ThreadHelper.ThreadStart()
InnerException:

Le problème est que la table a 2 enregistrements et il y a juste un champ, Id_Piece qui est une clé unique et champ String.

Le code que vous voyez est utilisé et modifiés pour deux autres DataGrid et ils fonctionnent très bien.

En dernier recours j'ai détruit le contrôle DataGrid DG_Pieces dans le projet et je l'ai recréé sans modification des propriétés. Rien ne change! Ça plante toujours à la même place.... Si je comprends bien il ne semble pas voir les 2 enregistrements dans la table. mais c'est illogique! :marteau: :cfou:

Avez-vous une idée du problème ?

Merci :)

AngelEvil!

deja de faire executenonquery puis executereader c'est étrange
les 2 executes la requete ...

après faire une première requete pour voir si ca va retourner des données c'est étrange aussi
autant faire la requete, si ca ne retourne rien, le datagrid sera vide quand meme

ensuite pour l'erreur générée c'est parce que ton datagrid n'a pas de colonne au moment ou tu veux modifier le header de la colonne, donc t'as pas du le remplir ...
ou alors il faut créer les colonnes manuellement

Citation:

deja de faire executenonquery puis executereader c'est étrange
les 2 executes la requete ...

Hum... dans un exemple de code en mode connecté et pour savoir si la requête retourne des lignes il y avait la ligne suivante pour valider :
Code:

1 2 Dim enumerate As OleDb.OleDbDataReader = CmdEnreg.ExecuteReader() If enumerate.HasRows = True Then '' la piece existe!
La raison de cette méthode ? PArce que je n'ai pas trouvé l'équivalent en mode non connecté. Donc on se débrouille avec les moyens qu'on a!

Citation:

après faire une première requete pour voir si ca va retourner des données c'est étrange aussi
autant faire la requete, si ca ne retourne rien, le datagrid sera vide quand meme

Heuuu j'ai pas la même logique! Pourquoi demander de faire de quoi quand ce n'est pas nécessaire ? Pourquoi essayer d'afficher de quoi quand il n'y a rien ?!?!?!?!!? A moins que ça n'affiche pas les nom des colonnes (header) c'est ok! Sinon je dois valider. C'est le client qui ne veut pas voir des entêtes (header) dans les DataGrid lorsqu'il n'y a pas d'info à afficher.

Citation:

ensuite pour l'erreur générée c'est parce que ton datagrid n'a pas de colonne au moment ou tu veux modifier le header de la colonne, donc t'as pas du le remplir

Si ce que vous dites est exact pourquoi pour les deux autres DataGrid qui ont le même code (sauf le nom du DataGrid qui change) tout fonctionne à la perfection ?!!??!

Avec le code suivant ca affecte le résultat de la requete au DataGrid.
Code:

1 2 3 4 5 6 7 8 9 10 dtAdapteurRecherche = New OleDb.OleDbDataAdapter dtAdapteurRecherche.SelectCommand = CmdR dtAdapteurRecherche.Fill(DtsetRecherche, "Pieces") Me.DG_techniciens.DataSource = DtsetRecherche.Tables("Pieces") Me.DG_Pieces.Refresh() Me.DG_Pieces.Columns.Item(0).HeaderText = "Nom de la pièce" Me.DG_Pieces.Columns.Item(0).Visible = True
Il y a bien 2 enregistrements! Donc ils devraient être affichés et surtout la colonne devrait être affiché! Surtout que c'est juste un champ dans la table!

Merci de vos éclaircissements!

Bon en lisant la FAQ sur les combobox j'ai trouvé du code qui relie le combo avec un datadapteur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
    Private Sub Btn_Trier_Piece_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Trier_Piece.Click
 
            Dim con As OleDb.OleDbConnection
            Dim cs As String = CStr("provider=microsoft.jet.oledb.4.0;" & "data source= " & Application.StartupPath & "\Demandes.mdb" & ";")
            Dim da As OleDb.OleDbDataAdapter
            Dim ds As DataSet
 
            con = New OleDb.OleDbConnection(cs)
 
            da = New OleDb.OleDbDataAdapter("SELECT Id_Piece as [Nom Pièce] FROM pieces", con)
            ' pour avoir des noms différents pour les colonnes du DataGrid
            ' utiliser des alias SELECT Champ1 AS NouveauNom
 
            ds = New DataSet("Pieces")
 
            da.Fill(ds, "Pieces")
 
            DG_Pieces.DataBindings(ds, "Pieces")
 
    End Sub

Cette ligne plante....

Code:

DG_Pieces.DataBindings(ds, "Pieces")

Le message est le suivant :

Citation:

Property access must assign to the property or use this value

Je ne suis pas bilingue. Et je suis le code de la FAQ.... je suis perdu!

Merci :)

AngelEvil!

oki C'est vraiment la connexion avec l'objet qui cause problème... Résolu!