Discussion :

[nicolas_cs2i]

J'ai une erreur dans le bout de code suivant :
J'ai importer :

Code :

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

1
2
Imports System.Data
Imports System.Data.OleDb

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
 
 
        Dim ConnexionString As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mabase.mdb")
        Dim objConnexion As New OleDbConnection
 
        objConnexion.ConnectionString = ConnexionString
 
        Dim temp As String
 
        Dim Requete As String = ("SELECT Nom_Utilisateur FROM SESSION")
        Dim Commande As New OleDbCommand(Requete, objConnexion)
        Dim Reader as new OleDataReader 
 
        objConnexion.Open()
 
        Reader = Commande.ExecuteReader()
 
        Do While Reader.Read()
            temp = Reader.Item("Nom_Utilisateur").ToString
            If temp <> "" Then
                CmbNomUtilisateur.Items.Add(temp)
            End If
        Loop
 
        objConnexion.Close()
        objConnexion.Dispose()
 
    End Sub

le code de l'erreur est

Code :

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

Échec de IErrorInfo.GetDescription avec E_FAIL(0x80004005).

je n'arrive pas a trouver mon erreur

Dans access la requete fonctionne correctement

Merci

[Jérôme Lambert]

Je sais pas si ça a un rapport avec ton erreur mais il faut déjà modifier la ligne suivant :

Code :

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

Dim Reader As New OleDb.OleDbDataReader

par :

Code :

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

Dim Reader As OleDb.OleDbDataReader

Car OleDb.OleDbDataReader n'a pas de constructeur.

[nicolas_cs2i]

Pour ce code toujours la meme erreur :

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
Private Sub frmSession_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim ConnexionString As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\suivica.mdb")
 
        Dim objConnexion As New OleDbConnection
        objConnexion.ConnectionString = ConnexionString
 
        Dim temp As String
 
        Dim Requete As String = ("SELECT Nom_Utilisateur FROM SESSION")
        objConnexion.Open()
 
        Dim Commande As New OleDbCommand(Requete, objConnexion)
        Dim Reader As OleDb.OleDbDataReader
 
        'erreur ici !!!!!!!!!!!!!!!!!!!!!!!
        Reader = Commande.ExecuteReader
 
        Do While Reader.Read()
            temp = Reader.Item("Nom_Utilisateur").ToString
            If temp <> "" Then
                CmbNomUtilisateur.Items.Add(temp)
            End If
        Loop
 
        objConnexion.Close()
        objConnexion.Dispose()
 
    End Sub

J'ai testé ce code sur une autre base cela fonctionne parfaitement ...
Cela doit donc venir de la table et non du code !!!

Dans ma table SuiviCA Jai bien une table SESSION et un champ Nom_Utilisateur pourtant

[nicolas_cs2i]

Le problème devait venir de la base car j'ai recréer la base de donnée et cela fonctionne parfaitement...
Le code est donc ok...

Merci de ton aide

[Jérôme Lambert]

Ce ne serait pas Nom_Utilisteur qui serait mal orthographié ?

EDIT:
Ah ok
Tant mieux.

[nicolas_cs2i]

Erreur de saisie dans le post mais pas dans le code... cela ne venait pas de ca , je ne conprend toujours pas l'erreur mais le problème est réglé.

Merci à toi (ou à vous, au choix )

Cordialement

[nicolas_cs2i]

J'ai trouvé la cause de mon erreur

Surtout ne rigolez pas !!!

J'ai recréé ma base et cette fois cela ne fonctionne encore plus :

Code :

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

1
2
3
4
CREATE TABLE SESSION (ID_Session GUID CONSTRAINT contrainte_Id_Session PRIMARY KEY UNIQUE NOT NULL,
                                         Nom_Utilisateur TEXT(20) CONSTRAINT contrainte_Nom_Utilisteur UNIQUE NOT NULL,
                                         Mot_De_Passe TEXT(20) CONSTRAINT contrainte_Mot_De_Passe NOT NULL,
                                         Droit SMALLINT CONSTRAINT contrainte_Droit NOT NULL)

J'ai donc recommencé l'opération de création de ma base pas a pas en testant chaque modification de la base avec mon code (qui marche avec une base par defaut)
Et dés le renommage de la 1ere table ca ne fonctionne plus

Je change alors mon nom de table en SESSIONNNN au lieu de SESSION et la MIRACLE mon code fonctionne de nouveau ...

Il est donc impossible de nommer une table SESSION ???

Merci au courageux (et patient) qui voudront bien essayer... car chez moi ca ne fonctionne que si je renomme ma table.

Cordialement