[Catégorie modifiée VB6 - .Net] Charger datagrid access

Question

Bonjour, voila j'ai créer une fonction dans un module pour charger un datagridwiev


 Public Function DataContact(ByRef SetContact As DataSet) As Boolean
        Dim Connection As OleDbConnection = Nothing
        Dim AdapTContact As OleDb.OleDbDataAdapter
        Dim DtSet As New DataSet()
        Dim Sql As String
        'Parametrage de la chaine de connection
        Connection = EtablirConnection()
        'definition de la requete
        Sql = "select * from TContact;"
        'definition du DataAdapter
        AdapTContact = New OleDbDataAdapter(Sql, Connection)
        ' remplissage du dataset
        AdapTContact.Fill(DtSet, "CONTACTS")
        Return True
        Connection.Close()
    End Function


ensuite j'ai un form avec un datagridwiev qui se charge au lancement


If (DataContact(SetContact)) = True Then
            Matable = SetContact.Tables("CONTACTS")
            DGVcontact.DataSource = Matable
        End If

lolokun · Answer

Bonjour,

Oui, et? Y'a une question?


L'expérience, c'est une connerie par jour, mais jamais la même..

thomasaurelien · Answer

Ah oui excuse en faite quand je lance l'application il n'y a pas d'érreur mais rien n'apparait dans mon datagridwiev

Renfield · Answer

tentes de voir en pas a pas ce qu'il se passe ; si les données sont bien chargées...

en passant, pas mal ton :

        Return True
        Connection.Close()

^^


Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

thomasaurelien · Answer

C'est bon j'ai réussi. Voici le code si sa interresse quelqu'un

Dans le module :

 Public Function DataContact() As DataSet
        Dim Cnx As OleDbConnection = Nothing
        Dim AdapTContact As OleDb.OleDbDataAdapter
        Dim DtSet As New DataSet()
        Dim Sql As String

        'Parametrage de la chaine de connection
        Cnx = EtablirConnection()
        'definition de la requete
        Sql = "select * from CONTACTS;"
        'definition du DataAdapter
        AdapTContact = New OleDbDataAdapter(Sql, Cnx)
        ' remplissage du dataset
        AdapTContact.Fill(DtSet, "CONTACTS")
        Return DtSet
        'Fermeture de la connection
        Cnx.Close()
    End Function


Dans le chargement d'un form

        Dim Matable As DataTable
        Matable = DataContact.Tables("CONTACTS")
        DGVcontact.DataSource = Matable

Renfield · Answer

tu vas laisser ça ?

      Return DtSet
        'Fermeture de la connection
        Cnx.Close()


Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

thomasaurelien · Answer

Ben sa marche mais Jpense si que tu dit cela le code n'est pas optimal !

Renfield · Answer

Ton Close ne sera jamais appelé !!!!!

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

thomasaurelien · Answer

Ouais exact étant après le return

[Catégorie modifiée VB6 -> .Net] Charger datagrid access

8 réponses

Votre réponse

Discussions similaires