BD access avec combobox

Version imprimable

17/03/2010, 11h37
draman212

BD access avec combobox

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 :D
17/03/2010, 11h44
yonpo
Salut,

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

1 2 3 ComboBox.DataSource = DataSet.Tables("TaTable") ComboBox.DisplayMember = "TonChamp"
17/03/2010, 12h00
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..!!!!

Après avoir ouvert ta base:

Code:

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

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

Code:

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

17/03/2010, 14h14
yonpo

"Nom" et "id" sont des champs?
"Personne" est le nom de ta BD et de ta table?
17/03/2010, 14h17
draman212

oui..
17/03/2010, 14h21
yonpo

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

Code:

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

17/03/2010, 14h28
yonpo

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

Code:

"select nom from personne where id =" & TextBox1.Text & ""
17/03/2010, 15h22
draman212

j'ai toujours le même problème :(

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

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

17/03/2010, 15h49
draman212

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