Discussion :

[draman212]

Salut,
Je suis un étudiant et je suis en train de faire mon projet de fin d'étude.
Je travaille en vb.net et mon probleme c'est comment charger un combobox avec une DB Access..
Pourriez vous m'aiguiller afin que je puisse réaliser cela ?
Et merci d'avance

[yonpo]

Salut,

Il faut donnée un valeur à DataSource et à DisplayMember de ton combobox:

Code :

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

1
2
3
 
ComboBox.DataSource = DataSet.Tables("TaTable")
ComboBox.DisplayMember = "TonChamp"

[draman212]

en faite j'utilise le datareader et je trouve Toujours pas la solution il y a pas d'erreur mais ca n'affiche rien!!!!!la requettte est bien executé mais le combobox reste vide..!!!!

[yonpo]

Après avoir ouvert ta base:

Code :

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

1
2
3
4
5
6
7
8
 
Dim Reader As OleDbDataReader = TonCommand.ExecuteReader()
 
Do While Reader.Read()
 
ComboBox.Items.Add(Reader.GetString(0)) 'ajoute tous les éléments de ta table
 
Loop

[draman212]

c'est toujours le même problème, voila mon code

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
Imports System.Data
 
Imports System.Data.OleDb
Public Class Form1
    Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\vb.net\ajouter\personne.mdb;")
    Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Mycommand.CommandText = "select nom from personne where id = "form1.textbox1.text" "
        MyConnexion.Open()
        Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
 
 
        Do While (myReader.Read())
 
            ComboBox1.Items.Add(myReader.GetString(0)) 'ajoute tous les éléments de ta table
 
        Loop
 
 
        MyConnexion.Close()
    End Sub
End Class

[yonpo]

"Nom" et "id" sont des champs?
"Personne" est le nom de ta BD et de ta table?

[draman212]

oui..

[yonpo]

Essaye de déclenché l'évènement sur un clic.
L'index de ta combobox ne peut pas changer puisqu'il est vide

[yonpo]

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
 
Imports System.Data
Imports System.Data.OleDb
 
Public Class Form1
    Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\vb.net\ajouter\personne.mdb;")
    Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
    Private Sub ComboBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.Click
        Mycommand.CommandText = "select nom from personne where id = "form1.textbox1.text" "
        MyConnexion.Open()
        Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
 
 
        Do While (myReader.Read())
 
            ComboBox1.Items.Add(myReader.GetString(0)) 'ajoute tous les éléments de ta table
 
        Loop
 
 
        MyConnexion.Close()
    End Sub
End Class

[yonpo]

La syntaxe de ta requête est mauvaise. Essaye plus tôt:

Code :

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

"select nom from personne where id =" & TextBox1.Text & ""

[draman212]

j'ai toujours le même problème

[nasty]

Bonjour
tu peux verifier si ton DataReader contient bien des lignes avec .HasRow

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
 
Imports System.Data
Imports System.Data.OleDb
 
Public Class Form1
    Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\vb.net\ajouter\personne.mdb;")
    Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
    Private Sub ComboBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.Click
        Mycommand.CommandText = "select nom from personne where id = "form1.textbox1.text" "
        MyConnexion.Open()
inputbox("","", Mycommand.CommandText) 'permet de recuperer la requete et de trouver l'erreur :)
        Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
 
 if myReader.HasRow then

        Do While (myReader.Read())
 
            ComboBox1.Items.Add(myReader.GetString(0)) 'ajoute tous les éléments de ta table
 
        Loop
else
MessageBox.Show("aucune ligne dans le reader")
End If


        MyConnexion.Close()
    End Sub
End Class

En esperant t'avoir un peu aider

Nasty

[draman212]

merciii beaucoup a vous.. deja j'ai pu recuperé mes donnée à partir de l'interface graphique..