[VB 2003] Problème de connexion à une base de donnée Access

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 :

Citation:

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:

Try

code

Code:

1
2
3
Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

Le contenu du message box est le suivant :

Citation:

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:

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

Salut,

Pourrais-tu nous dire sur quelle ligne se situe l'erreur.
As-tu importé
System
System.Data
System.Data.OleDb

As-tu essayé d'inverser deux codes ?

Gwendal

Salut Gdal,

Voici ce que j'importe au début de le classe :
Code:

1 2 3 4 5 6 7 #Region "Importation des espaces de noms" Imports System Imports System.Data Imports System.Data.OleDb Imports Microsoft.VisualBasic 'Imports Microsoft.Office.Interop #End Region
Voici la ligne qui pose problème :

Code:

dta.Fill(dts, "BA3_S1")

Je vais essayer d'inverser le code.

Qu'en penses-tu ?

Merci encore

beegees