Help! Qqun saurait-t'il compléter ce bout de code ?

Question

Bonjour,

Voila, j'aimerai exporter le contenu d'un dbgrid dans un fichier csv. Pour l'intant je n'arrive qu'à exporter une seule ligne et non tout. Qqun pourrait-il m'aider, je suis un peu perdu. J'ai 5 colonnes. Voici le code :

Private Sub Command1_Click()

Open "C:\TEST.CSV" For Output As #1

Dim Cols As Columns, c As Column
Set Cols = DBGrid5.Columns
For Each c In Cols
Select Case c.DataField
    Case "10100000"
        A = DBGrid5.Columns("10100000")
        B = DBGrid5.Columns("Caisse")
        D = DBGrid5.Columns("203#9")
        E = DBGrid5.Columns("0")
        F = DBGrid5.Columns("203#91")
            Print #1, A & ";" & B & ";" & D & ";" & E & ";" & F
End Select
Next c
Close #1
End Sub

Merci d'avance à tous ceux qui voudront bien me donner un p'tit coup de main

WolfKiller · Answer

salut
Completer Non, car j'y comprend pas grand chose a part que tu recuperer des trucs et que tu les save.

Mais essaye 
debug.print A & ";" & B & ";" & D & ";" & E & ";" & F
avant le print comme ca tu verras s'afficher dans la fenetre de debug de VB ce que tu sauvegarde.
Debug peut etre utiliser avec n'importe quelle variable.

C'est tres pratique pour voir et suivre ce qui ce passe dans ton programme.

Utilise aussi 
Option Explicit 
dans les déclarations générales Cela t'oblige a déclarer toutes tes variables et évite de les perdre en route.
 
Bonne prog
@++ :)

hajourawm · Answer

slt,svp je veux une formation sur vb.net"merci"

Help! Qqun saurait-t'il compléter ce bout de code ?

2 réponses

Discussions similaires