Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

DATASET, LISTVIEW ET EXCEL


Information sur la source

Catégorie :Trucs & Astuces Source .NET ( DotNet ) Classé sous : dataset, listview, excel, rahou, ly Niveau : Initié Date de création : 26/12/2005 Vu / téléchargé: 16 602 / 2 934

Note :
7,25 / 10 - par 4 personnes
7,25 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Cette petite appli permet entre autre de remplir un listview à partir d'un dataset,
exporter les données d'un liste view vers excel.
L'application utilise des fonctions et des procédures simples qui ne nécessitent
pas plus de deux paramétres de base pour faire le travail nécessaire.
Pour utiliser cette appli, une base de données MS Access a été fournie en exemple. Merci de parcourir le répertoire du codes sources pour le localiser.
Le nom de la table par défaut est "Customers". Si vous le voulez bien, vous pouvez choisir une autre base de données access et donner le nom de la table voulue.
 

Source

  • '============================================================
  • 'Ce code permet de remplir un list view à partir d'un dataset
  • '============================================================
  • Public Sub RemplirListView(ByVal unDataSet As DataSet, ByVal unListView As ListView)
  • Dim i As Integer = 0
  • Dim myTable As DataTable
  • Dim myRow As DataRow
  • Dim myColumn As DataColumn
  • Dim uneChaine As String
  • Dim j As Integer
  • REM VIDER LE LIST VIEW AVANT REMPLISSAGE DE NOUVEAU ELEMENT
  • unListView.Clear()
  • REM DEFINITION DES COLONNES DU LIST VIEW QUI CORRESPONDENT AUX COLONNES DE LA TABLE
  • For Each myTable In unDataSet.Tables
  • For Each myColumn In myTable.Columns
  • unListView.Columns.Add(myTable.Columns(i).ColumnName, 60, HorizontalAlignment.Left)
  • i = i + 1
  • Next
  • Next
  • j = 0
  • REM ECRITURE DES LIGNES DANS LE LIST VIEW
  • For Each myTable In unDataSet.Tables
  • For Each myRow In myTable.Rows
  • i = 1
  • Dim LVI As New ListViewItem
  • For Each myColumn In myTable.Columns
  • If i = 1 Then
  • LVI.Text = CType(myRow(myColumn) & "", String)
  • Else
  • uneChaine = CType(myRow(myColumn) & "", String)
  • LVI.SubItems.Add(uneChaine)
  • End If
  • i += 1
  • Next myColumn
  • REM PERMET D'ALTERNER LES COULEURS DES LIGNES (C BIEN DE FAIRE UN PEU DE DESIGN)
  • If (j Mod 2) = 0 Then
  • unListView.Items.Add(LVI).BackColor = Color.White
  • Else
  • unListView.Items.Add(LVI).BackColor = Color.AliceBlue
  • End If
  • j += 1
  • Next myRow
  • Next myTable
  • unListView.View = View.Details
  • unListView.AutoArrange = True
  • End Sub
  • '============================================================
  • 'Et ce petit bout permet de générer un dataset
  • '============================================================
  • Public Function GenererDataSet(ByVal uneRequete As String) As DataSet
  • Dim uneConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" _
  • + OFDialogExplorer.FileName)
  • Dim dsPaiements As New DataSet
  • If Not unDs Is Nothing Then
  • unDs.Clear()
  • End If
  • Try
  • Dim sqlCmdPaiements As String = uneRequete
  • uneConnexion.Open()
  • Dim oledbDA As New OleDbDataAdapter(sqlCmdPaiements, uneConnexion)
  • GenererDataSet = New DataSet
  • oledbDA.Fill(dsPaiements)
  • oledbDA.Dispose()
  • uneConnexion.Close()
  • uneConnexion = Nothing
  • unDs = dsPaiements
  • Catch Sqlex As OleDbException
  • MessageBox.Show(Sqlex.Message, "Erreur SQL")
  • Catch ex As Exception
  • MessageBox.Show(ex.Message, "Erreur...")
  • End Try
  • Return dsPaiements
  • End Function
'============================================================
'Ce code permet de remplir un list view à partir d'un dataset
'============================================================  
Public Sub RemplirListView(ByVal unDataSet As DataSet, ByVal unListView As ListView)
        Dim i As Integer = 0
        Dim myTable As DataTable
        Dim myRow As DataRow
        Dim myColumn As DataColumn
        Dim uneChaine As String
        Dim j As Integer
        REM VIDER LE LIST VIEW AVANT REMPLISSAGE DE NOUVEAU ELEMENT
        unListView.Clear()
        REM DEFINITION DES COLONNES DU LIST VIEW QUI CORRESPONDENT AUX COLONNES DE LA TABLE
        For Each myTable In unDataSet.Tables
            For Each myColumn In myTable.Columns
                unListView.Columns.Add(myTable.Columns(i).ColumnName, 60, HorizontalAlignment.Left)
                i = i + 1
            Next
        Next
        j = 0
        REM ECRITURE DES LIGNES DANS LE LIST VIEW
        For Each myTable In unDataSet.Tables
            For Each myRow In myTable.Rows
                i = 1
                Dim LVI As New ListViewItem
                For Each myColumn In myTable.Columns
                    If i = 1 Then
                        LVI.Text = CType(myRow(myColumn) & "", String)
                    Else
                        uneChaine = CType(myRow(myColumn) & "", String)
                        LVI.SubItems.Add(uneChaine)
                    End If
                    i += 1
                Next myColumn
                REM PERMET D'ALTERNER LES COULEURS DES LIGNES (C BIEN DE FAIRE UN PEU DE DESIGN)
                If (j Mod 2) = 0 Then
                    unListView.Items.Add(LVI).BackColor = Color.White
                Else
                    unListView.Items.Add(LVI).BackColor = Color.AliceBlue
                End If
                j += 1
            Next myRow
        Next myTable
        unListView.View = View.Details
        unListView.AutoArrange = True
    End Sub
'============================================================
'Et ce petit bout permet de générer un dataset
'============================================================
    Public Function GenererDataSet(ByVal uneRequete As String) As DataSet
        Dim uneConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" _
            + OFDialogExplorer.FileName)
        Dim dsPaiements As New DataSet
        If Not unDs Is Nothing Then
            unDs.Clear()
        End If
        Try
            Dim sqlCmdPaiements As String = uneRequete
            uneConnexion.Open()
            Dim oledbDA As New OleDbDataAdapter(sqlCmdPaiements, uneConnexion)
            GenererDataSet = New DataSet
            oledbDA.Fill(dsPaiements)
            oledbDA.Dispose()
            uneConnexion.Close()
            uneConnexion = Nothing
            unDs = dsPaiements
        Catch Sqlex As OleDbException
            MessageBox.Show(Sqlex.Message, "Erreur SQL")
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Erreur...")
        End Try
        Return dsPaiements
    End Function

Conclusion

Et bien c'est tout!!!
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de jubourbon le 26/06/2008 10:07:24 10/10

Parfait, merci pour l'aide.

signaler à un administrateur
Commentaire de othinakiway le 15/05/2009 20:02:07

merci pour le partage !

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Listview vers Excel [ par jeromepol49 ] j'utilise une fonction de conversion d'une listview vers un fichier excel. Quand je l'exécute une première fois il n'y a pas de problème mais la deuxi le mystère de la listview [ par Cube76 ] Bonjour tout le monde, je vous propose de m'aider à résoudre ce mystère.   J'ai une listview dans laquelle je souhaite a problem de listview excel [ par nixon13 ] bonsoir j aimerai juste savoir comment remplir mes cellules excel dans un listview en vba. j ai crée mon listeview il me manque plus qu a le remplir p Help plz excel [ par spike62300 ] bonjour,cela fait une semaine que je bloque sur le sujet. Je souhaite créer un fichier excel a partir d'un dataset ou d'une datagrid peu imp EXCEL VB.NET [ par spike62300 ] Bonjour,j'aimerais importer un fichier excel dans un datagrid.J'ai cherché toute la journée. En essayant de mettre mes données du fichi DataSet Excel [ par spike62300 ] Bonjour,  j'ai besoin de copier un dataset dans un document excel a créerComment faire?Je suis tombé sur des exemples mais ils expliqua help dataset excel [ par spike62300 ] Bonjour a tous,voila j'ai un souci pour exporter un dataset vers un nveau fichier excel. Plusieurs procédés me sont proposés mais je n' De VB en EXcel????? [ par Astro8899 ] Bonjour à tous!!!Je suis en vb.net.Je fais un programme pour extraire des données de ma base de donné et que j'affiche dans un listview Copier item listview vers excel [ par sheffy222 ] BonjourJe travail en vba et j'ai un petit problème.J'aimerais savoir comment faire pour transférer toutes les valeurs que j'ai dans une list Problème de msgbox + prob de conversion [ par daviddubois ] Bonjour le forum,J'utlise un dataset qui me permet de transférer toutes mes données vers Excel.J'aurai aimé comparer un champs de mon dataset avec une


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,796 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.