Discussion :

[mbilla]

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 :

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

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

[Phil Rob]

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,

[clementmarcotte]

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 :

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

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 :

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

con1.open

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