[Catégorie modifiée .Net --> VBA] Copier Recordset avec les noms des champs
lebcel
Messages postés
13
Date d'inscription
jeudi 24 avril 2003
Statut
Membre
Dernière intervention
16 août 2010
-
21 mai 2010 à 13:20
lebcel Messages postés 13 Date d'inscription jeudi 24 avril 2003 Statut Membre Dernière intervention 16 août 2010 - 21 mai 2010 à 13:24
lebcel Messages postés 13 Date d'inscription jeudi 24 avril 2003 Statut Membre Dernière intervention 16 août 2010 - 21 mai 2010 à 13:24
A voir également:
- [Catégorie modifiée .Net --> VBA] Copier Recordset avec les noms des champs
- .Net reflector - Conseils pratiques -C# / .NET
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Byval vba - Conseils pratiques -Visual Basic / VB.NET
- Copier automatiquement une cellule excel dans une autre feuille (vba) - Forum Visual Basic
- Net-tchat - Forum C
1 réponse
lebcel
Messages postés
13
Date d'inscription
jeudi 24 avril 2003
Statut
Membre
Dernière intervention
16 août 2010
21 mai 2010 à 13:24
21 mai 2010 à 13:24
Oups, j'ai trouvé dans l'aide Excel.
Voilà le code :
For iCols = 0 to rs.Fields.Count - 1
ws.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
Next
ws.Range(ws.Cells(1, 1), _
ws.Cells(1, rs.Fields.Count)).Font.Bold = True
ws.Range("A2").CopyFromRecordset rs
Il suffit de copier les fields.
Lebcel
Voilà le code :
For iCols = 0 to rs.Fields.Count - 1
ws.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
Next
ws.Range(ws.Cells(1, 1), _
ws.Cells(1, rs.Fields.Count)).Font.Bold = True
ws.Range("A2").CopyFromRecordset rs
Il suffit de copier les fields.
Lebcel
