Import excel vers Datagrideview avec Vb 2010

Version imprimable

1 pièce(s) jointe(s)

Bonjour;
Je développe un petit programme en VB 2010 express; je dois importer un fichier excel (en pièce jointe: Feuil1 ) vers mon datagrideview1

j'utilise le code ci-dessous; qui marche bien mais j'ai un problème: le format de mon affichage dans le datagrideview1 n'est pas bon:
je m'explique: dans le fichier excel j'ai des formats en hh:mm:ss or le résultat dans le datagrideview1 n'a pas le même format ( je l'ai mis dans l'onglet Feuil2 du même fichier ci-joint)
Merci de m'aider de trouver comment résoudre ce problème d'affichage.
Merci

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
 Dim OpenFileDialog1 As New OpenFileDialog
        Dim dt As New DataTable
        If OpenFileDialog2.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim FileName As String = OpenFileDialog2.FileName.ToUpper
            Dim Builder As New OleDbConnectionStringBuilder With {.DataSource = FileName}
 
            ' Setup the properties for our connection dependent on which file was open.
 
            If IO.Path.GetExtension(FileName) = ".XLSX" Then
                Builder.Provider = "Microsoft.ACE.OLEDB.12.0"
                Builder.Add("Extended Properties", "Excel 8.0;HDR=No;")
 
            Else
                Builder.Provider = "Microsoft.Jet.OLEDB.4.0"
                Builder.Add("Extended Properties", "Excel 8.0;HDR=No;")
            End If
 
 
            Using cn As New OleDbConnection With {.ConnectionString = Builder.ConnectionString}
                Dim cmd As New OleDbCommand With _
                { _
                    .CommandText = "SELECT * FROM [Feuil1$]", _
                    .Connection = cn _
                }
 
                cn.Open()
 
                dt.Load(cmd.ExecuteReader)
                DataGridView1.DataSource = dt
                ActiveControl = DataGridView1
 
            End Using
        End If
    End Sub

18/07/2015, 20h10
Invité

Bonsoir,
Tu 2 possibilité formater les colonnes de ton fichier Excel (texte,numérique,date),
Ou formater les champs dans ta requête!
"SELECT cdate(mytime) as T, cdbl(mydouble) as D FROM [Feuil1$]"
19/07/2015, 14h15
younesssoleil

Merci pour ton retour
je pense que j'ai mal compris les instructions dans la requette SELECT
j'ai utilisé ton code mais ce ne marche pas, j'ai une erreur sur SELECT

Code:

"SELECT cdate(mytime) as T, cdbl(mydouble) as D FROM [Feuil1$]"
19/07/2015, 14h59
Invité

Bonjour,

Citation:

j'ai utilisé ton code mais ce ne marche pas, j'ai une erreur sur SELECT

rien d'étonnant je ne connais pas le nom des champs dans ta base Excel!

Un exemple n'a pour objet que d'être un exemple!

"SELECT cdate(toto) as T, cdbl(titi) as D FROM [Feuil1$]"

désolé pour ce retour tardif... congés oblige... mais je n'arrive pas.. je m'explique stp...
j’essaie d'importer un fichier excel vers mon datagrideview1 avec le code ci-dessous qui marche bien mais ne convertie pas au bon format.
Dans mon fichier excel en pièce jointe ( Feuil1) j'ai des chiffres, des lettres et des formats( hhh,mm,ss) et le résultat de l'import je l'ai mis pour info dans Feuil2
je ne comprends pas comment utiliser ton code... desolé je ne suis pas un expert...)
Merci encode de ton aide

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
 
 Dim OpenFileDialog1 As New OpenFileDialog
        Dim dt As New DataTable
        If OpenFileDialog2.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim FileName As String = OpenFileDialog2.FileName.ToUpper
            Dim Builder As New OleDbConnectionStringBuilder With {.DataSource = FileName}
 
            ' Setup the properties for our connection dependent on which file was open.
 
            If IO.Path.GetExtension(FileName) = ".XLSX" Then
                Builder.Provider = "Microsoft.ACE.OLEDB.12.0"
                Builder.Add("Extended Properties", "Excel 8.0;HDR=No;")
 
            Else
                Builder.Provider = "Microsoft.Jet.OLEDB.4.0"
                Builder.Add("Extended Properties", "Excel 8.0;HDR=No;")
            End If
 
 
            Using cn As New OleDbConnection With {.ConnectionString = Builder.ConnectionString}
                Dim cmd As New OleDbCommand With _
                { _
                    .CommandText = "SELECT * FROM [Feuil1$]", _
                    .Connection = cn _
                }
 
                cn.Open()
 
                dt.Load(cmd.ExecuteReader)
                DataGridView1.DataSource = dt
                ActiveControl = DataGridView1
 
            End Using
        End If
    End Sub

22/07/2015, 18h30
Invité

Bonjour,
Désolé j'avais pas vue que dans ta connexion tu précisais HDR=No;, donc par défaut le entête de colonnes sont H1,H2, etc... Comprendre H1=A1, H2=B1 etc...

"SELECT cdate(H1),H2,etc FROM [Feuil1$]"
22/07/2015, 19h07
younesssoleil

effectivement j'ai passé le HDR en YES; j'ai maintenant le bon nom de la colonne "Test1" dans mon exemple mais toujours pas la bonne conversion des autres lignes
je vais être un peu chiant stp... peux tu stp m'indiquer le code exacte... je deviens fou foufofu
merci

toutes les autres données sont des date

juste une petite précision; quand je copie une cellule de mon datagrideview affichant le mauvais format exemple: 30/12/1899 00:00 dans une textbox.text j'obtiens le bon format: 00:00:00
28/07/2015, 15h12
younesssoleil

Bonjour

Avez vous une réponse pour moi svp?
Merc
28/07/2015, 15h48
Invité

Bonjour,

Code:

"SELECT fromat([Test1],'hh:mm:ss') FROM [Feuil1$]"
01/08/2015, 23h40
younesssoleil

Bonsoir; et merci pour votre retour et désolé pour mon retour tardif
en effet, votre code ci-dessous fonctionne mais il y a deux petites précisions:
1: votre code format uniquement la colonne Test1: ma question stp: comment faire pour formater toutes les colonnes sachant que mon datagrideview est dynamique; c'est à dire c'est l'utilisateur qui rentre le nom et le nombre des colonnes.
2: est possible de ne pas formater le header ainsi que la première ligne car elle contient un chiffre.
Merci bcp de votre aide.

Code:

SELECT format([Test1],'hh:mm:ss') FROM [Feuil1$]