Discussion :

[djdjo59]

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

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

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

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

Un peu d'aide svp

[Jean-Michel Ormes]

Bonjour,

Code :

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

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.

[djdjo59]

ok merci, ...et comment faire ?

[Jean-Michel Ormes]

Bah c'est quelque chose du style :

Code :

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

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

Tu ne nous montres pas où tu as déclaré ton ListEleves.

[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

[djdjo59]

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)



humm.. j'ai déclaré ça dans un module?^o)

[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

[djdjo59]

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

Code :

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

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

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

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

1
2
3
4
 
Do While myReader.Read()
  ListEleves.Items.Add(myReader.GetString(1))
Loop

[djdjo59]

j'ai modifié, il ne trouve plus d'erreur sur cette ligne, mais maintenant c'est sur MyConnexion.Open()