Utilisation du datagridview avec vb express 10

J'utilise VB express et voudrais affiche le résultat de ma requête dans un datagridview mais j'obtiens toujours une notification d'erreurs:
Une exception de première chance de type 'System.Data.OleDb.OleDbException' s'est produite dans System.Data.dll. Quelqu'un pourrait t il m'aider.

ci-dessous le

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Imports System.Data.OleDb   Public Class Form1 Dim con1 As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Users\Sethro\Desktop\Test.mdb") Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim sql As String sql = "SELECT * FROM users" Dim adapter As New OleDbDataAdapter(sql, con1) Dim dt As New DataTable("users") adapter.Fill(dt) DGV.DataSource = dt End Sub End Class

---

Merci

Bonjour,

Ton code se trouve dans la procédure événementielle de chargement du Form. ( Form1_Load( ... )
Déplace tout ce code dans une procédure événementielle d'un bouton (Button.Click( ... )

Après cela, ce code s'exécutera au Click du bouton, donc bien après l'ouverture du programme.
Probablement que l'erreur se produira encore, il faut alors savoir sur quelle ligne de code elle survient.

A bientôt,

Bonjour,

Si mes souvenirs sont exacts, ce message d'erreur dans VB Express 2010 n'empêche pas la compilation, ni l'exécution du programme, si il n'apparait qu'une fois par objet. Il peut même apparaître plus d'une fois, tant que ce n'est pas le même objet.

Mais rien ne t'empêche de mettre un point d'arrêt au début de ta procédure, que ce soit dans le Form_load ou dans un bouton, et de l'exécuter au pas-à-pas en vérifiant où cela plante. Et si cela ne plante pas, c'est parce qu'il y a un problème, apparemment avec ta requête.

Et puis, personnellement, j'essaierais cette partie comme cela au pas à pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load try Dim sql As String sql = "SELECT * FROM users" Dim adapter As New OleDbDataAdapter(sql, con1) Dim dt As New DataTable("users") adapter.Fill(dt) DGV.DataSource = dt catch ex as exception messagebox.show(ex.message) end try   End Sub

---

Parce que si tu la fais au pas à pas tu vas voir immédiatement quelle instruction plante, parce que ton curseur va sauter directement sur la ligne catch en sautant toutes les autres.

P.S. Es-tu sûr que ta connexion est vraiment ouverte ? Parce que moi, je ne suis pas sûr pantoute qu'elle s'ouvre automatiquement. Mets un espion sur con1. Si tu vois que sa valeur reste à Nothing, c'est qu'elle n'est pas ouverte automatiquement par l'adapteur et ouvre la toi-même avec :

Code:

---

con1.open

---

Parce que si ta connexion n'est pas ouverte, c'est normal que tu ne ramasses rien.