Connection à base de donnée ?

Version imprimable

Salut
j'essaie de me connecter à une base de données en VB net,

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
Imports System
Imports System.Data.OleDb
Imports System.Data
Imports Microsoft.VisualBasic
 
Public Class ouvrirbaseeleves
    Inherits System.Windows.Forms.Form
 
    Private Sub ouvrirbaseeleves_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & "E:\Elèves.accdb")
        Dim MyCommand As OleDbCommand = MyConnexion.CreateCommand()
        MyCommand.CommandText = "Select * From 1TSIG"
        MyConnexion.Open()
        Dim myReader As OleDb.OleDbDataReader = MyCommand.ExecuteReader()
        Do While myReader.Read()
            ListEleves.Items.Add(myReader.GetString(0))
        Loop
        myReader.Close()
        MyConnexion.Close()
 
        'TODO : cette ligne de code charge les données dans la table 'ElèvesDataSet.Absent'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.AbsentTableAdapter.Fill(Me.ElèvesDataSet.Absent)
        'TODO : cette ligne de code charge les données dans la table 'ElèvesDataSet._1TSIG'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me._1TSIGTableAdapter.Fill(Me.ElèvesDataSet._1TSIG)
 
    End Sub

seulement lorsque j'ouvre l'application ce message d'erreur apparaît à cette ligne

Code:

ListEleves.Items.Add(myReader.GetString(0))

http://img10.imageshack.us/img10/3784/sanstitreucn.jpg

Un peu d'aide svp :)

06/05/2009, 12h12
Jean-Michel Ormes

Bonjour,

Code:

ListEleves.Items.Add(myReader.GetString(0))

Je suppose que ListEleves est une liste d'Eleves donc il te faut convertir ton myReader en objet de type List.
06/05/2009, 20h29
djdjo59

ok merci, ...et comment faire ? :(
06/05/2009, 20h56
Jean-Michel Ormes

Bah c'est quelque chose du style :

Code:

ListEleves.Items.Add((Eleves) myReader.GetString(0))

Tu ne nous montres pas où tu as déclaré ton ListEleves.
06/05/2009, 21h19
wakan

Bonjour,
Ca a peut etre pas grand chose avoir avec le sujet et c'est peut etre pas réalisable mais pourquoi tu fais pas de link ?
A bientôt
08/05/2009, 13h07
djdjo59

Citation:

Envoyé par wakan

Bonjour,
Ca a peut etre pas grand chose avoir avec le sujet et c'est peut etre pas réalisable mais pourquoi tu fais pas de link ?
A bientôt

Link ? désolé jamais vu je ne savais meme pas que c'était faisable !!
voilà l'erreur lorsque j'ajoute (Elèves)

http://img9.imageshack.us/img9/7273/sanstitreeyy.jpg

humm.. j'ai déclaré ça dans un module?^o)
http://img23.imageshack.us/img23/4831/sanstitremud.jpg
08/05/2009, 13h15
Jean-Michel Ormes

Bonjour,

Je vais me répéter : On ne sait pas ce qu'est ton ListEleves. Pourrais-tu nous montrer où tu l'as déclaré? Sans cela, on ne pourra pas t'aider

ListEleves est une listbox
je l'ai déclaré ainsi:
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub ListEleves_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListEleves.SelectedIndexChanged For i = 0 To 25 TSIGBindingSource.Add(i) Next End Sub End Class
j'avais essayé ce code pour faire apparaître la base de données, je sais que ce code est faux ^^

08/05/2009, 20h47
Jean-Michel Ormes
Ok, autant pour moi. Si c'est une listbox, ton erreur vient probablement de la méthode GetString().

J'ai regardé l'aide du site msdn ici :

http://msdn.microsoft.com/fr-fr/libr...ader.read.aspx

notamment l'exemple d'utilisation de la méthode Read(). Donc je te propose d'essayer ceci :
Code:

1 2 3 4 Do While myReader.Read() ListEleves.Items.Add(myReader.GetString(1)) Loop
09/05/2009, 13h28
djdjo59

j'ai modifié, il ne trouve plus d'erreur sur cette ligne, mais maintenant c'est sur MyConnexion.Open()
http://img11.imageshack.us/img11/1845/capturerevc.jpg