Problème combobox et base de données

Version imprimable

Voila, je suis en train de développer une fonction qui remplie un combobox à partir d'une requête SQL.
Sauf que lorsque je l'exécute j'ai un message d'erreur "ExecuteReader: la propriété connexion n'a pas été initialisé" du cou, mon combobox ne se remplie pas.
Voici l'exemple de 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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
    Public Function ChargeCombo(ByVal combobox As ComboBox, ByVal req As String)
 
        Try
            'Instanciation de la connexion
            ObjetConnection = New OleDbConnection
 
            'On donne les valeurs à la connexion
            ObjetConnection.ConnectionString = strConn
 
            'Instanciation d'un objet Commande
            ObjetCommand = New OleDbCommand(req)
 
            'On ouvre la connexion
            ObjetConnection.Open()
 
            'Instanciation d'un objet datareader
            ObjetDatareader = ObjetCommand.ExecuteReader
 
            ' On vide le ComboBox 
            combobox.Items.Clear()
 
            If ObjetDatareader.HasRows Then
                ' tant que le DataReader a une ligne d'enregistrements
                While ObjetDatareader.Read
                    ' ajouter la donnée au ComboBox 
                    combobox.Items.Add(ObjetDatareader.GetValue(0))
                End While
            Else
                MessageBox.Show("Il n'y a pas de données", "Infos", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If Not (ObjetDatareader Is Nothing) Then ObjetDatareader.Close()
            If Not (ObjetConnection Is Nothing) Then ObjetConnection.Close()
        End Try
        Return ComboBox
    End Function

De plus, j'aimerais savoir si on est obligé d'utiliser un datareader et pas un dataset et aussi j'aimerais a partir de la même requête pouvoir compléter des textbox en fonction de mon combobox.
En gros, si dans ma table j'ai les colonnes nom et prénom, que mon combobox contient les noms, j'aimerais qu'en changeant le dans le combobox que le prénom change automatiquement dans le textbox.

D'avance merci pour l'aide que vous pourrez m'apporter

@++
dubidon

04/05/2007, 18h27
M51-F

Tout d'abord ton code est incomplet:
- on ne voit pas le contenu du strConn (string connection)
- de la requete SQL (req).

Pour allez plus loin je t'invite à voir ce lien sur les databases et autres infos VBnet Cours VbNet

Une mine d'info :king: :king:

Bonjour,

Citation:

Envoyé par dubidon

De plus, j'aimerais savoir si on est obligé d'utiliser un datareader et pas un dataset

c'est comme tu veux.
Comme tu dois le savoir, le DataSet te permet d'être en mode déconnecté alors qu'avec le DataReader tu restes connecté.
Tout dépend de ton besoin.
Moi j'utilise plus souvent des DataSet que des DataReader.
Par contre, je ne trouve pas ton raisonnement très objet. Tu ne viendrais pas d'un langage procédural par hasard ?

Je te conseilles plutôt de développer une classe Personne (désolé c'est du c#):
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 public class Personne { private string m_Nom; public string Nom { get{ return m_Nom;} set{ if (m_Nom != value) m_Nom = value;} } private string m_Prenom; public string Prenom { get{ return m_Prenom;} set{ if (m_Prenom!= value) m_Prenom= value;} } public Personne(string nom, string prenom) { m_Nom = nom; m_Prenom = prenom; } }
Ensuite lorsque tu récupères la liste des personne, tu instancie pour chaque personne la classe personne et tu les ajoutes dans une liste de type List<Personne>.
Après, il est très facile d'ajouter les éléments de ta liste à ton ComboBox, soit manuellement, soit en utilisant le DataBinding.

Pour ta deuxième question, si tu utilises des objets persos comme la classe Personne, tu devrais pouvoir retrouver la personne sélectionné et ensuite mettre à jour le TextBox.
Si tu utilises un DataSet, tu peux très facilement, à l'aide d'un BindingSource mettre à jour automatiquement le TextBox suivant la sélection du nom dans le ComboBox.

A bientôt
Bye

05/05/2007, 14h07
dubidon

merci a vous pour ces réponses, j'ai pas mis ma requete et ma connexion car ces valeurs sont valables et fonctionnels puisque testé avec un datagrid.

Pour l'utilisation de classe, c'est vrai que je suis habitué a travailler en procédural et j'ai énormément de mal à me faire à la programmation objet sous vb.net
Dès que j'aurais mon projet avec moi je vais regarder tout cela

encore merci pour vos réponses

@++
dubidon

voila, j'essaie absolument de mettre mes données contenues dans un datatable dans un combobox, mais je n'y arrive pas.
J'ai bien essayer d'adapter ce code destiné au listbox, et même de remplacer mon combobox par un listbox, mais çà ne fonctionne pas
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Remplir une Listbox ligne par ligne Dim matable As New DataTable matable = ObjetDataSet.Tables("FICHEPATIENT") Dim Ligne As DataRow() For Each Ligne In Matable.Rows List1.Items.Add(ligne.Item(" Nom ")) Next
du cou je commence un peu à déseperer là, déja qu'il ne connais pas le ligne.item, j'ai essayer de passer outre en utilisant "table.Rows.Item(column)"
mais j'ai toujorus un probleme qui empeche ce code de focntionner corecttement, au niveau du "For Each Ligne In table.Rows", il me sort ce message d'erreur :

Impossible d'effectuer un cast d'un objet de type 'System.Data.DataRow' en type 'System.Data.DataRow[]'.

quelqu'un pourrait t'il eclairer ma lanterne, qui ne brille pas fort là

d'avance merci

@++
dubidon

09/05/2007, 12h59
Pilloutou
Bonjour,

avec le DataTable c'est assez facile. Il faut utiliser le DataBinding.

Exemple avec un ListBox:
Code:

1 2 MyListBox.DataSource = ObjetDataSet.Tables("FICHEPATIENT") MyListBox.DisplayMember = "Nom"
Et voilà. Tu peux faire la même chose avec un ComboBox.

N'hésite pas à poser des questions.

Bye

merci pour ces quelques lignes, j'ai bien retranscrit ce que tu me dis pour une listbox, mais rien ne se passe, j'ai déjà l'avantage de n'avoir aucun message d'erreur, mais rien ne se charge dans la listbox

voici quand même le code complet

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
    ' Déclaration Objet Connection
    Private ObjetConnection As OleDbConnection
 
    ' Déclaration Objet Commande
    Private ObjetCommand As OleDbCommand
 
    ' Déclaration Objet DataAdapter
    Private ObjetDataAdapter As OleDbDataAdapter
 
    ' Déclaration Objet DataSet
    Private ObjetDataSet As New DataSet
 
    ' Déclaration Objet DataTable
    Private ObjetDataTable As New DataTable
 
    ' Déclaration objet DataReader
    Dim ObjetDatareader As OleDbDataReader = Nothing
 
    'Paramêtres de connexion à la DB
    Private strConn As String = "Data Source=****\SQLEXPRESS;Provider=SQLOLEDB;Initial Catalog=DBabcdom;Persist Security Info=True;User ID=**;Password=*******"
 
    ' Déclaration d'un  OleDbCommandBuilder
    Private ObjetCB As OleDbCommandBuilder
 
 
 
    Public Function ExecReq(ByVal req As String, ByVal table As String, ByVal colonne As String)
        Dim list1 As New ListBox
 
        'on vide le dataset 
        ObjetDataSet.Clear()
        'Instanciation d'un Objet Connexion
        ObjetConnection = New OleDbConnection
        'Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.ConnectionString = strConn
        'Ouvrir la connexion
        ObjetConnection.Open()
        'Instancier un objet Commande
        ObjetCommand = New OleDbCommand(req)
        'Instancier un objet Adapter
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        'initialiser l'objet Command
        ObjetCommand.Connection() = ObjetConnection
        'initialiser l'objet OleCBComandBuilder (sinon pas d'update)
        ObjetCB = New OleDbCommandBuilder(ObjetDataAdapter)
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        ObjetDataAdapter.Fill(ObjetDataSet, table)
        'Créer une datatable à partir du dataset
        ObjetDataTable = ObjetDataSet.Tables(table)
 
 
        list1.DataSource = ObjetDataSet.Tables(table)
        list1.DisplayMember = colonne
 
        Return list1
 
    End Function

voila le code qui fait appel a la fonction

Code:

1
2
3
4
 
        strSql = "SELECT * FROM BENEFICIAIRES"
        table = "BENEFICIAIRES"
        ListBox1 = BD.ExecReq(strSql, table, "NomBeneficiaire")

d'avance merci pour votre aide et votre patience

@++
dubidon

09/05/2007, 17h11
Pilloutou

Si rien ne s'affiche, cela peut-être dû au fait que la liaison de ta DataTable n'est pas faite correctement.

Vérifie avec le debugger que la DataTable est bien lié à ton listBox.

Courage, ça va marcher.
Bye
09/05/2007, 17h37
dubidon

j'ai bien vérifier avec le débogueur est ma datatable est bien lié à ma listbox, mais par contre est ce que le fait que je remplisse une listbox " fictive" et que j'affecte cette listbox a celle qui existe vraiment sur ma forme ne cause pas un problème ???

merci

@++
dubidon

Oui ce n'est pas terrible.
Pour que ce soit plus propre tu devrais faire ainsi:

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
30
31
32
33
34
Public Sub ExecReq(ByVal req As String, ByVal table As String, ByVal colonne As String)
 
        'on vide le dataset 
        ObjetDataSet.Clear()
        'Instanciation d'un Objet Connexion
        ObjetConnection = New OleDbConnection
        'Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.ConnectionString = strConn
        'Ouvrir la connexion
        ObjetConnection.Open()
        'Instancier un objet Commande
        ObjetCommand = New OleDbCommand(req)
        'Instancier un objet Adapter
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        'initialiser l'objet Command
        ObjetCommand.Connection() = ObjetConnection
        'initialiser l'objet OleCBComandBuilder (sinon pas d'update)
        ObjetCB = New OleDbCommandBuilder(ObjetDataAdapter)
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        ObjetDataAdapter.Fill(ObjetDataSet, table)
 
    End Sub
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    ExecReq("Req","Table" , "Colonne")
 
        'Créer une datatable à partir du dataset
        ObjetDataTable = ObjetDataSet.Tables(table)
 
    listBox1.DataSource = ObjetDataTable
    listBox1.DisplayMember = "Nom"
 
    End Sub

Désolé, il y a peut-être des erreurs dans le code, je suis plus adepte du C#.
Tu pourrais aussi passer en paramètre de ta fonction ExecReq ton DataSet ainsi elle sera mieux réutilisable.

Bye

Encore merci pour ton aide et ta patience, j'ai essayer de metrte en place ce que tu me conseil, mais il faudrait que je mette tout dans la meme form, hors j'aimerais séparer tout ce qui est connexion a la BD et traitement des données dans une classe.

j'ai donc fait çà :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
    Public Sub ExecReq(ByVal req As String, ByVal table As String, ByVal colonne As String, ByVal datas As DataSet)
 
        'on vide le dataset 
        'ObjetDataSet.Clear()
        'Instanciation d'un Objet Connexion
        ObjetConnection = New OleDbConnection
        'Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.ConnectionString = strConn
        'Ouvrir la connexion
        ObjetConnection.Open()
        'Instancier un objet Commande
        ObjetCommand = New OleDbCommand(req)
        'Instancier un objet Adapter
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        'initialiser l'objet Command
        ObjetCommand.Connection() = ObjetConnection
        'initialiser l'objet OleCBComandBuilder (sinon pas d'update)
        ObjetCB = New OleDbCommandBuilder(ObjetDataAdapter)
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        ObjetDataAdapter.Fill(datas, table)
end sub

code du form load

Code:

1
2
3
4
5
6
7
8
 
        BD.ExecReq("Req", "Table", "Colonne", ObjetDataSet)
 
        'Créer une datatable à partir du dataset
        ObjetDataTable = ObjetDataSet.Tables(table)
 
        ListBox1.DataSource = ObjetDataTable
        ListBox1.DisplayMember = "Nom"

Du cou maintenant j'arrive bien a avoir quelque chose dans ma listbox, mais j'obtiens

System.Data.DataRowView

et malgré quelques recherches, je n'arrive pas à savoir ce qui va pas

@++
dubidon

10/05/2007, 12h52
Pilloutou

Hello,

Citation:

Du cou maintenant j'arrive bien a avoir quelque chose dans ma listbox, mais j'obtiens

System.Data.DataRowView

T'inquiète c'est une erreur classique.;)

Cela signifie que ta propriété DisplayMember n'est pas correcte. En gros, la colonne "Nom" n'est pas une colonne de ton DataTable.

Si tu veux faire le test, n'attribues pas de valeur à la propriété DisplayMember et tu auras le même résultat: autant de System.Data.DataRowView affiché que de ligne dans ta DataTable.

Bye.
10/05/2007, 14h24
dubidon

Merci beaucoup Pilloutou pour ton aide et ta patience; Tout fonctionne correctement et j'avais bien fais une petite erreur de syntaxe qui était passé inaperçue a mes yeux ;)

Merci encore

@++
dubidon
10/05/2007, 19h44
Pilloutou
Bonjour,

désolé pour la réponse tardive.
Effectivement il n'y a pas de propriétés DataSource sur un TextBox contrairement au ComboBox. Tout simplement parce qu'avec le TextBox tu peux n'afficher qu'une valeur.
Comment faire ? Et bien même s'il n'y a pas de propriétés DataSource, il y a la propriété DataBindings qui est une collection de Binding.

si tu veux éditer toi-même cette propriété, voici un exemple :

Code:

this.txtPrenom.DataBindings.Add(new System.Windows.Forms.Binding("Text", tonDataSource, "NomColonne", true));

Mais le plus simple est encore que tu utilises un BindingSource et ce que tu veux faire sera fait très simplement.

Tu utilises VS2005 ? Tu n'utilises pas de DataSet typés ?

Sinon voici comment faire:

Tu ajoutes un BindingSource, tu lui définies son nom, par exemple clientBindingSource
Ensuite, tu sélectionne ton ComboBox (ou ta ListBox) et tu sélectionnes les propriétés.
Sur la propriété DataSource tu définies ton BindingSource. En cliquant sur la flèche du bas, une fenêtre doit apparaître te permettant de le sélectionner.
Pour la propriété DisplayMember, tu tapes le nom de la colonne que tu souhaites visualiser.
Ensuite tu sélectionne les propriétés de ton TextBox.
Sur la propriété DataBindings-Text tu choisis si tu peux le BindingSource et le nom de la colonne que tu souhaites afficher dans le TextBox (mais ça m'étonnerait que tu puisses vu que tu n'utilises pas de DataSet typés ou tout autre type). Si tu ne peux pas, tu saisies quelque part près de l'initialisation:

Code:

this.txtPrenom.DataBindings.Add(new System.Windows.Forms.Binding("Text", clientBindingSource, "NomColonne", true));

Une fois que tu as chargé tes données, tu dois initialiser ton BindingSource.
Tu enlèves:
Code:

1 2 ListBox1.DataSource = ObjetDataTable ListBox1.DisplayMember = "Nom"
et tu mets:

Code:

clientBindingSource = ObjetDataTable

En espérant que ça aille.

Sinon je ne peux que te conseiller d'aller sur le site de Microsoft pour télécharger le projet exemple en Vb.Net Ma Cave à vin.

Bye.
11/05/2007, 09h16
dubidon

Merci beaucoup pilloutou pour le temps que tu m'accorde.
J'ai bien mis en place ce que tu m'as mis précédemment et j'arrive bien a obtenir les valeurs dans mon textbox a partir de mon bindingsource.
Mais faut il que je relis ma listbox ou combobox au bindingsource aussi, ou dois-je faire une methode qui me permette en fonction de mon valuemember de mon combobox de selectionner la ligne correpsondant dans mon bindingsource ??
Je sais pas si je suis assez explicite dans mes explications ;)

en tout cas encore merci

@++
dubidon
11/05/2007, 11h30
Pilloutou

Bonjour,

il faut que tu relis ton ComboBox ou ListBox à ton BindingSource. Dans la propriété DataSource, tu définies ton BindingSource. Tu définies la propriété DisplayMember en saisissant le nom de la colonne que tu souhaites afficher.
Ensuite lorsque l'utilisateur modifiera un élément dans le ComboBox ou dans le ListBox, le prenom dans le TextBox sera modifié automatiquement.

Bye.
11/05/2007, 14h25
dubidon

alors là merci beaucoup pour tout l'aide que tu m'a apporté, çà marche impec.

Je vais suivre ton conseil et ce week end je vais regarder le projet ma cave a vin de microsoft. Cà va certainement bien m'aider.

Encore merci pour ton aide et ta patience

@++
dubidon
12/05/2007, 09h02
Pilloutou

Y a pas de quoi.

Pense au tag résolu.

Bye