requete select sql access

Version imprimable

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

Code:

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

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
 
 
        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:

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

je n'arrive pas a trouver mon erreur

Dans access la requete fonctionne correctement

Merci

11/03/2007, 02h32
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:

Dim Reader As New OleDb.OleDbDataReader

par :

Code:

Dim Reader As OleDb.OleDbDataReader

Car OleDb.OleDbDataReader n'a pas de constructeur.

toujours une erreur

Pour ce code toujours la meme erreur :
:aie:

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
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

11/03/2007, 13h57
nicolas_cs2i

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

Merci de ton aide
11/03/2007, 14h17
Jérôme Lambert

Ce ne serait pas Nom_Utilisteur qui serait mal orthographié ?

EDIT:
Ah ok :)
Tant mieux.
11/03/2007, 15h17
nicolas_cs2i

:marteau: 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 :D )

Cordialement

J'ai trouvé la cause de mon erreur :marteau: :marteau: :marteau:

Surtout ne rigolez pas !!!

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

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

11/03/2007, 18h12
Jérôme Lambert

Je m'étais justement posé la question, si on pouvait utiliser session comme nom de table/champs mais en essayant directement sous Acces, ça n'avait pas posé de problème.
24/07/2015, 18h58
ryszard

Mot "session"

C'est curieux. Moi aussi, j'avais le champ nommé Session dans ma base de données et j'avais exactement le même problème. Merci.
21/04/2017, 12h45
jakobe

Citation:

Envoyé par Jérôme Lambert

Je m'étais justement posé la question, si on pouvait utiliser session comme nom de table/champs mais en essayant directement sous Acces, ça n'avait pas posé de problème.

it's been about 10 years,too late to tell you
i guess by now you know the answer,and i hope you're doing fine
in vb .net you can't mention the name Session because it's already reserved
so if you gonna use it you must add [Session] to make it work
that's all :) , hope you read it

Jakobe
21/04/2017, 12h47
jakobe

Citation:

Envoyé par ryszard

C'est curieux. Moi aussi, j'avais le champ nommé Session dans ma base de données et j'avais exactement le même problème. Merci.

it's been about 2 years,too late to tell you i think :/
i guess by now you know the answer,and i hope you're doing fine
in vb.net you can't mention the name Session because it's already reserved
so if you gonna use it you must add [Session] to make it work
that's all :) , hope you read it
Note : you can translate to fr if you didn't understand , sorry my english is bad

Jakobe
27/04/2017, 10h45
ryszard

Mot «Session»

Thank you very much Jakobe.
It is very kind of you. It's never too late. Your comment will serve to others. It's always nice to learn the new things.
My programme, I was writting, works very good since two years.
Sorry for my English. Yours, I understand very well. Thank you once aggain.
Ryszard