Exporter des donnees d'un datagridview vb.net vers excel

bila20
Messages postés
3
Date d'inscription
lundi 6 décembre 2010
Statut
Membre
Dernière intervention
11 avril 2012
- 10 avril 2012 à 11:21
 archippe mayele - 6 nov. 2015 à 13:15
voila le code que je regler pour exporter les donnes d'un datagrid vers un fichier excel qui se trouve dans le bin de mon application mais le probleme c'est que se code affiche seulement le dernier enregistrement pouver vous maider a devlopper ce code pour afficher les donnees dans les celles precése
et merci d'avence
voila le code: v1 et un view
Dim app As New Microsoft.Office.Interop.Excel.Application
app.Workbooks.Open(System.Environment.CurrentDirectory & "\etat2.xls")
app.Visible = True
'dss.Clear()
Call connect()
Cmd.CommandText = "select N_ARRIVE,NOM_EXPD,DATE_ARRIVE,LIBELLE_DEPART from v1 where (DATE_ARRIVE between '" & Me.DateTimePicker1.Value & "' and '" & Me.DateTimePicker2.Value & "') and LIBELLE_DEPART like '" & Me.ComboBox1.Text & "'"
'Cmd.CommandText = "select N_ARRIVE,NOM_EXPD,DATE_ARRIVE,LIBELLE_DEPART from v1 "
Cmd.Connection = Cnx
Cmd.CommandType = CommandType.Text
dr = Cmd.ExecuteReader
Dim i As Integer = 0

dr.Read()
app.Cells(2, 3) = dr(3)

While dr.Read

app.Cells(6 + i, 1) = dr(0)
app.Cells(6 + i, 2) = dr(1)
app.Cells(6 + i, 3) = dr(2)
i = +1

End While

'app.Visible = True
'app.Workbooks.Add()
dr.Close()
Cnx.Close()


app.Worksheets.PrintPreview()
A voir également:

6 réponses

bila20
Messages postés
3
Date d'inscription
lundi 6 décembre 2010
Statut
Membre
Dernière intervention
11 avril 2012
1
10 avril 2012 à 15:34
merci NHenry de me reponder
je change i=+1 par i += 1 mais c'est la meme resultat toujours il affiche le dernier enregistrement vous n'aver pas d'autre idee??
1