Bonsoir à tous =)

Je suis toujours dans la finition de mes projets pour mon BTS, je me heurte à un p'tit probleme.
J'ai réaliser un module qui va etre utiliser pour se connecter, fermer un base de données Access, mais aussi toute les actions comme les selects, les inserts, les deletes ...

Le Insert fonctionne correctement, je me heurte cependant a un p'tit probleme avec mon Select. Je voudrais pouvoir obtenir le resultat du reader utilisé dans ma fonction dans mon programme principal sans avoir a redéclarer tout mes objets de relatifs a la connexion et l'exploitation de ma BDD.

Mon module s'organise comme ça :

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
 
    Dim MyConnexion As New System.Data.OleDb.OleDbConnection()
    Dim MyCommand As OleDbCommand = MyConnexion.CreateCommand()
    Dim MyReader As OleDbDataReader = MyCommand.ExecuteReader
 
    Public Sub ConnexionBDD(ByVal files_bdd As String)
        Try
            MyConnexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & files_bdd
            MyConnexion.Open()
        Catch ex As Exception
            MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message)
        End Try
    End Sub
 
    'Select dans la base de données Access
    Public Function SelectBDD(ByVal QuerySQL As String)
        MyCommand.CommandText = QuerySQL
        Return MyReader
    End Function
Je cherche depuis plusieurs minutes maintenant sans rien trouver réellement que je puisse comprendre ... Je fais donc appelle une nouvelle fois à vous

Merci d'avance
Bonne soirée (nuit)

mrocks