Bonjour à tous.

J'ai eu pour la première fois une erreur qui est apparu lors de l'utilisation d'une base de donnée.

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
conna.Provider = "Microsoft.Jet.OLEDB.4.0"
conna.ConnectionString = lien_BDD
conna.Open()
 
For i = 0 To Nb_item - 1
            'recup le gain en classement carrière
            pos_car = Liste_export_WRC.List_export_pilote_wrc_rallye.Items(i).SubItems(11).Text
            sqla1.ActiveConnection = conna
            sqla1.CommandText = "SELECT * FROM Dotation_Pilote_Carierre WHERE Position=" & pos_car & ""
            orsa1.Open(sqla1)
 
            If IsDBNull(orsa1("Valeur").Value) Then
                gain_car = "0"
            Else
                gain_car = orsa1("Valeur").Value
            End If
...
...
...
...
J'ai une erreur sur la ligne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
orsa1.Open(sqla1)
<== Erreur non spécifiée (Exception de HRESULT : 0x80004005 (E_FAIL))

Quelqu'un à-t-il déjà eu ce problème ????