Bonjour; j'ai un petit soucis , j'ai une application qui doit chercher les répertoires et les fichiers contenant dans ces répertoires qui se trouvent tous dans un dossier puis stocker leurs chemin dans la base de données , j'ai fais une partie mais elle me stock qu'une seule ligne dans ma base c'est à dire elle prend aléatoirement un chemin de ceux qui se trouve dans le dossier et le stocke mon but est d'avoir des chemins et sous chemins comme ca :
C:\Users\caes\Desktop\Imane\ES
C:\Users\caes\Desktop\Imane\Exemples 28042017
C:\Users\caes\Desktop\Imane\Nouveau dossier
C:\Users\caes\Desktop\Imane\Exemples 28042017.rar
C:\Users\caes\Desktop\Imane\Stats CHQ vs INWI_28042017.xlsx
C:\Users\caes\Desktop\Imane\Stats INWI SALES UP_28042017.xls
C:\Users\caes\Desktop\Imane\Stats INWI_28042017.xls
C:\Users\caes\Desktop\Imane\ES\28042017.xlsx
C:\Users\caes\Desktop\Imane\ES\28042017_SU.xlsx
C:\Users\caes\Desktop\Imane\ES\CadencesBrutes(20170428).csv
C:\Users\caes\Desktop\Imane\ES\CadencesBrutes(20170428).xlsx
C:\Users\caes\Desktop\Imane\ES\Equipe.xlsx
C:\Users\caes\Desktop\Imane\ES\FM 28042017.xlsx
C:\Users\caes\Desktop\Imane\ES\Nbre d'heures de présences_042017.xls
C:\Users\caes\Desktop\Imane\ES\Stats CHQ vs INWI_28042017.xlsx
C:\Users\caes\Desktop\Imane\Exemples 28042017\CadencesBrutes(20170428).xlsx
C:\Users\caes\Desktop\Imane\Exemples 28042017\Nbre d'heures de présences_042017.xls
C:\Users\caes\Desktop\Imane\Exemples 28042017\Stats Préparation CHQ_28042017.xlsx


si vous pouvez voir , ce résultat je l'obtient quand j'affiche mon résultat dans un fichier Text , mais moi je veux les stocker dans la base de données donc j'ai utiliser un TextBox , du coup il m'insère juste une ligne qui s'affiche comme résultat dans le TextBox, pouvez vous m'aider ?
voici le code avec lequelle je récupère les répertoires et sous répertoires :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
Try
 
            Dim selectedDirectory As String = String.Empty
            Dim selectedFile As String = String.Empty
            Dim dossiersTrouvé = Directory.GetDirectories("C:\Users\caes\Desktop\Imane")
            For Each ligneD In dossiersTrouvé
                selectedDirectory = ligneD
 
                If (selectedDirectory IsNot Nothing) Then
                    TextBox1.Text = selectedDirectory
 
                End If
            Next
            Dim fichiersTrouvé = Directory.GetFiles("C:\Users\caes\Desktop\Imane", "*.*", SearchOption.AllDirectories)
            For Each ligneF In fichiersTrouvé
                selectedFile = ligneF
 
                If (selectedFile IsNot Nothing) Then
                    TextBox2.Text = selectedFile
                End If
            Next
        Catch ex As Exception
 
        End Try
et voici le code avec lequel je stocke dans ma base de données :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 myconnection = New SqlConnection("Data Source=---;Initial Catalog=PDF;Persist Security Info=True;User ID=sa;Password=--")
 
 
 
        myconnection.Open()
 
        mycommand = New SqlCommand("insert into pdf ([Repertoires],[Fichiers]) values ( '" & TextBox1.Text & "','" & TextBox2.Text & "')", myconnection)
 
        mycommand.ExecuteNonQuery()
 
        MessageBox.Show("Chemin Stocké" & ra)
 
        myconnection.Close()
Merci d'avance