Bonjour tout le monde,

J'ai 4 formulaires (windows Form).

Chacun d'entres eux se connectent à une base de données Access.

Deux sur quatre me donne un message d'erreur qui est le suivant :

Une exception non gérée du type 'System.Data.OleDb.OleDbException' s'est produite dans system.data.dll
J'ai mis un try catch :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Try
code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
Le contenu du message box est le suivant :

Aucune valeur donnée pour un ou plusieurs des paramètres requis.
Voici le code concerné, pourriez-vous me dire ce qu'il se passe ?

Merci d'avance.

beegees

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
Private Sub frmBA3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Try
 
            'ouverture de la connection(à partir du répertoire de l'application)sur la même ligne
 
            cnxstr = "provider = microsoft.jet.oledb.4.0 ; data source = " & Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) + "\delibes\delibes.mdb;"
 
            cnn = New OleDbConnection
 
            cnn.ConnectionString = cnxstr
 
            cnn.Open()
 
            'Création de la requête sql
 
            sql = "select * from [rqt BA3_S1] ORDER BY [NomBA3s1]"
 
            'Création de la commande et on l'instancie (sql) 
 
            cmd = New OleDbCommand(sql)
 
            'Création du dataadapter (dta) et on l'instancie (cmd)
 
            dta = New OleDbDataAdapter(cmd)
 
            'On instancie la commande (cmd) à la connection (cnx) 
 
            cmd.Connection() = cnn
 
            'On charge le dataset (dts) grace à la propriété fill du dataadapter (dta)
 
            dta.Fill(dts, "BA3_S1")
 
            'On charge la datatable (dtt) grace à la propriété tables du dataset (dts) 
 
            dtt = dts.Tables("BA3_S1")
 
            DataGrid1.SetDataBinding(dts, "BA3_S1")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub