gerardchery
Messages postés8Date d'inscriptionmercredi 26 mars 2008StatutMembreDernière intervention29 janvier 2013
-
11 août 2009 à 08:02
gerardchery
Messages postés8Date d'inscriptionmercredi 26 mars 2008StatutMembreDernière intervention29 janvier 2013
-
14 août 2009 à 09:25
comment trouver le datagridview, je ne le trouve pas dans mes composants
merci
Calade
Messages postés1207Date d'inscriptiondimanche 20 avril 2003StatutMembreDernière intervention 4 juin 201610 11 août 2009 à 14:35
Il te faut manipuler ta feuille Excel à partir de VB6 en référençant
"Microsoft Office 10.0 Library" (pour Office 2002. Puis fais exécuter toutes tes manips d'ouverture de fichier excel, sélection d'onglet et de cellules par ton code.
Enfin une fois sélectionnée la 1ère cellule devant contenir tes données
call ActiveCell.CopyFromRecordset(rstADO)
Calade
Vous n’avez pas trouvé la réponse que vous recherchez ?
gerardchery
Messages postés8Date d'inscriptionmercredi 26 mars 2008StatutMembreDernière intervention29 janvier 2013 11 août 2009 à 11:25
je suis bien en vb6, j'ai vu sur internet que le datagridview remplaçait le datagrid, mais je n'ai pas percuté que c'était en .net et comme je n'arrive pas à récupérer les données des cellules d'un datagrid,j'ai pensé à la solution datagridview.
je vais chercher encore
merci en tous cas pour ta réponse
gerardchery
Messages postés8Date d'inscriptionmercredi 26 mars 2008StatutMembreDernière intervention29 janvier 2013 11 août 2009 à 12:10
merci beaucoupe de me consacrer un peur de ton temps
j'ai trouver le datagrid, je le mets à jour, mais ce que je n'arrive pas à faire, c'est récupérer les valeurs des cellules du datagrid.
merci
gerardchery
Messages postés8Date d'inscriptionmercredi 26 mars 2008StatutMembreDernière intervention29 janvier 2013 11 août 2009 à 14:11
non je crée une connection ado
Dim cnnADO As New ADODB.Connection
Dim cmdADO As New ADODB.Command
Dim rsADO As New ADODB.Recordset
cnnADO.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\asdecoup.mdb;Persist Security Info=False"
cnnADO.Open
cmdADO.ActiveConnection = cnnADO
Sql = "SELECT sum(htrv), sum(htjt), sum(panier), sum(deplacement) from per001 WHERE month(datetrav)=5"
cmdADO.CommandText = Sql
rsADO.CursorLocation = adUseClient
rsADO.CursorType = adOpenDynamic
rsADO.LockType = adLockPessimistic
rsADO.Open cmdADO
DataGrid1.Refresh
jusque là pas de pb, ma grid contient les bonnes valeurs
ce que je voudrai maintenant, c'est récupérer les valeurs des cellules de la datagrid, pour les imprimer sous un tabelau excel ou autre
merci de ton aide