begin process at 2010 03 21 14:06:46
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Trucs & Astuces

 > DATASET, LISTVIEW ET EXCEL

DATASET, LISTVIEW ET EXCEL


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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é :18 256 / 3 185

Auteur : rahou

Ecrire un message privé
Site perso
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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source .NET (Dotnet) GÉNÉRER UN FICHIER EXCEL À PARTIR D'UN DATASET
SUPPRIMER LES DOUBLONS D'UNE TABLE SANS CLÉ

 Sources de la même categorie

Source avec Zip Source avec une capture INTERAGIR AVEC LES USAGERS ...SANS UTILISER DES 'ALERTS' par marcelsnews
Source avec Zip MODIFICATION DYANAMIQUE DES PARAMÈTRES D'UNE FONCTION D'UN [... par marcelsnews
Source avec Zip Source avec une capture JSON PARSER - ANALYSE DE CHAINES JSON par Renfield
Source avec Zip CREATION DE GADGET EN VB6 par djebbipgm
Source avec Zip Source avec une capture CAPTEUR DE HANDLE, DE TITRE, DE CLASS, DE POSITION DE TAILLE... par Sechaud

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) IMPRESSION D'UNE LISTVIEW EN GÉNÉRANT UN FICHIER EXCEL par fauve
Source avec Zip Source avec une capture EXCEL VBA - FILTRER LE CONTENU D'UNE LISTVIEW par lesly_lodin
Source avec Zip Source .NET (Dotnet) ACCEDER AUX FEUILLES EXCEL VIA ADO par perceval_59
Source avec Zip Source .NET (Dotnet) CONNECTION AVEC BASE DE DONNÉE ACCESS par hamidIS
Source avec Zip Source .NET (Dotnet) GÉNÉRER UN FICHIER EXCEL À PARTIR D'UN DATASET par rahou

Commentaires et avis

Commentaire de jubourbon le 26/06/2008 10:07:24 10/10

Parfait, merci pour l'aide.

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

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,061 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales