Bonjour,

Je suis confronté à un problème qui je pense est simple, je souhaite récupérer une donnée dans le champ d'une table Access, seulement une erreur survient lorsque je tente d'accéder à la Base, voici le debug :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
'Modbus TCP MSAccess Logging.vshost.exe' (CLR v4.0.30319: Modbus TCP MSAccess Logging.vshost.exe): Loaded 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Data.resources\v4.0_4.0.0.0_fr_b77a5c561934e089\System.Data.resources.dll'. Module was built without symbols.
Exception thrown: 'System.InvalidOperationException' in System.Data.dll
The thread 0x26c4 has exited with code 0 (0x0).
The thread 0xfd4 has exited with code 0 (0x0).
The program '[11588] Modbus TCP MSAccess Logging.vshost.exe: Program Trace' has exited with code 0 (0x0).
The program '[11588] Modbus TCP MSAccess Logging.vshost.exe' has exited with code 0 (0x0).
Voici la partie du code posant problème :

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
 Dim SQL As String 'SQL Commande 
                Dim objCmd As New OleDb.OleDbCommand 'Commande
                Dim Time As String
                'Connection String to the Access Database
                Dim Con = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\jacja\Documents\Finale.accdb")
                'SQL Commande
                SQL = "SELECT Data1 FROM Table2"
                    objCmd = New OleDb.OleDbCommand(SQL, Con) 'Définition de la commande SQL
                    objCmd.CommandText = SQL
                    Con.Open() 'Connexion à la DataBase
                    Dim myReader As OleDbDataReader = objCmd.ExecuteReader()
                    Console.WriteLine(myReader(1).ToString())
                    myReader.Close()
                    Con.Close() 'Ferme la connexion à la DataBase
            Catch ex As Exception 'If erreur
                Label10.ForeColor = Color.Red
                Label10.Text = "Database Error!"
            End Try
L'erreur semble provenir de
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 Console.WriteLine(myReader(1).ToString())
mais je ne comprend pas pourquoi ?

Voici un screen de ma DataBase :
Nom : DATABASE.png Affichages : 427 Taille : 16,6 Ko


Merci d'avance pour votre aide