Combobox et access

Version imprimable

Combobox et access

Bonjour à tous j'ai un problème j'ai fouiller quelques forums ainsi que des tutoriel de youtube mais je pense pas avoir saisi comment faire.

Dans ma form ( n’importe quel) j'ai un combox et elle doit chercher les élément d'un document acces. et les afficher dans ce combobox. Une colonne avec des noms de compagnie.

pour l'instant je n'ai pas de code concret j'ai essayer celui la mais je pense que je suis dans le chamb mais je le laisse aucas

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
 
 
Imports System
 
Imports System.Data
 
Imports System.Data.OleDb
 
Imports Microsoft.VisualBasic
Public Class Form1
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
         "U:\test1.accdb")
 
        Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
        Mycommand.CommandText = "SELECT COMPAGNIE FROM T"
        MyConnexion.Open()
        Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
 
        Do While myReader.Read()
 
            ComboBox1.Items.Add(myReader.GetString(0))
 
        Loop
        myReader.Close()
 
        MyConnexion.Close()
    End Sub
End Class

Merci de l'aide!

18/07/2013, 15h29
_Ez3kiel

J'ai compris ce que tu souhaites faire, mais pas ton problème.

Ton code ne marche pas ? Il plante à une ligne ? Avec un message d'erreur ?
18/07/2013, 15h38
louif07

aucune ligne d'erreur quand le le démarre le programme je click sur combobox rien ne s'Affiche pourtant dans mon tableau access il ya des données. Je suis pret à recommencer du début mon code mais j 'ai besoin d'aide pour pouvoir le faire.

encore merci du soutien! :)

N'ayant pas access et pas de prototype sous la main, je veux bien t'aider mais ce sera à l'aveugle. ;)

Dans un premier temps, on retirer ton code de Form1_load pour le mettre dans une fonction à part qui nous retournera un reader. (Ainsi si dans le futur tu souhaites remplir ta combo au click d'un bouton ou autre, tu n'auras plus qu'à récupérer les données que te renvois ta fonction)
Egalement on va créer une procédure qui prendra en paramètre notre reader pour remplir la combobox.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        remplirCombo(chargerBDD)
 
 
    End Sub
 
    Private Sub remplirCombo(dr As OleDbDataReader)
 
    End Sub
 
    Private Function chargerBDD() As OleDbDataReader
 
    End Function

Dans ChargerBDD on va faire la connexion et récupérer les données, si j'ai bien lu ta base se situe à U:\test1.accdb et pour une base .accdb le provider à utiliser est Provider=Microsoft.ACE.OLEDB.12.0. Voir ConnectionString

Donc on aura :

Code:

1
2
3
4
5
   Private function chargerBDD() As OleDbDataReader
 
 
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=U:\test1.accdb;Persist Security Info=False;")
    End Function

On va ouvrir notre connexion dans une structure USING ce qui fera qu'elle se fermera et libérera ses ressources une fois qu'on aura fini

Code:

1
2
3
4
5
6
7
8
9
    Private Function chargerBDD() As OleDbDataReader
 
 
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=U:\test1.accdb;Persist Security Info=False;")
 
        Using MyConnexion
            MyConnexion.Open()
 
        End Using

Notre connexion est -en théorie- ouverte, donc maintenant on peut récupérer nos données avec une oleDbCommand

Code:

1
2
3
4
5
6
7
8
9
    Private Function chargerBDD() As OleDbDataReader
        Dim Mycommand As OleDbCommand
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=U:\test1.accdb;Persist Security Info=False;")
 
        Using MyConnexion
            MyConnexion.Open()
 
            Mycommand = New OleDbCommand("SELECT COMPAGNIE FROM T", MyConnexion)
        End Using

On va stocker ses données dans un DataReader et return ce DataReader, mais également on va entourer notre code avec Try Catch pour voir les erreurs s'il y en a.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Private Function chargerBDD() As OleDbDataReader
        Dim Mycommand As OleDbCommand
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=U:\test1.accdb;Persist Security Info=False;")
 
 
        Try
            Using MyConnexion
                MyConnexion.Open()
 
                Mycommand = New OleDbCommand("SELECT COMPAGNIE FROM T", MyConnexion)
 
                Return Mycommand.ExecuteReader
            End Using
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return Nothing
        End Try

Donc on a notre fonction qui retourne un reader, maintenant on va exploiter ce reader pour remplir notre combobox dans la procédure remplirCombo(dr as oleDbDataReader)

A l'identique on va réutiliser Using pour libérer le reader à la fin de son parcours, et remplir notre combobox durant le parcours

Code:

1
2
3
4
5
6
7
8
9
10
    Private Sub remplirCombo(dr As OleDbDataReader)
 
        Using dr
            While dr.Read()
 
                ComboBox1.Items.Add(dr("COMPAGNIE").ToString)
 
            End While
        End Using
    End Sub

Ainsi on a au final :

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
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        remplirCombo(chargerBDD)
 
 
    End Sub
 
    Private Sub remplirCombo(dr As OleDbDataReader)
 
        Using dr
            While dr.Read()
 
                ComboBox1.Items.Add(dr("COMPAGNIE").ToString)
 
            End While
        End Using
    End Sub
 
    Private Function chargerBDD() As OleDbDataReader
        Dim Mycommand As OleDbCommand
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=U:\test1.accdb;Persist Security Info=False;")
 
 
        Try
            Using MyConnexion
                MyConnexion.Open()
 
                Mycommand = New OleDbCommand("SELECT COMPAGNIE FROM T", MyConnexion)
 
                Return Mycommand.ExecuteReader
            End Using
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return Nothing
        End Try
 
    End Function

Ce code n'est pas le plus optimisé au monde ni le plus propre, mais il est -en théorie encore car y'a toujours des soucis :aie: - fonctionnel.

18/07/2013, 17h01
Pol63

ne pas mettre de code dans le form_load il avale les erreurs (ou alors mettre un try catch et regarder si ca rentre dans le catch) (bug de microsoft à priori)
à la place du form_load il y a le sub new sinon

sinon l'erreur doit etre que jet ne sais pas ouvrir les accdb (le reste du code me parrait bon) il faut alors passer par ace ole db comme provider
18/07/2013, 17h28
louif07

Le semble parfait mais ca reste que quand je clique sur mon combo box il reste vide donc ca pourrait être les noms dans les requêtes qui serait faux. Et que je me serai trompé. Comment savoir ou dois je placé le nom de mes tables dans les requêtes?

Merci de votre soutien c'est très apprécié!
18/07/2013, 17h32
_Ez3kiel

Quelle est la structure de la table T ?

La requête SELECT COMPAGNIE FROM T signifie que tu récupères les enregistrements de la table T et que tu ne veux que la colonne 'COMPAGNIE', après il faudrait qu'on voit la structure de la table pour t'aider à faire ta requête SQL.

Et tu peux aussi te documenter : http://sqlpro.developpez.com/cours/sqlaz/select/
18/07/2013, 18h07
louif07

merci pour tous je marque résolut maintenant je dois faire mon chemin et travailler ca. Il en faut que j'aille toute les réponses je marque résolut merci à tous! :ccool:
19/07/2013, 09h17
_Ez3kiel

Bon courage, n'hésite pas à revenir si tu as des questions ou des difficultés. ;)