Discussion :

[cyriane]

bonjour à tous,

je voudrai faire un bouton, parcourir pour permettre a l'utilisateur de joindre une piece en allant le chercher dans le disque interne ou externe du pc.

j'ai activé les propriété du filestream dans ma base de données sql server 2008 R2.

j'ai trouver une tuto qui à l'aire pas mal mais je ne comprend pas tout!!!!
voici le lien:

http://weblogs.asp.net/aghausman/arc...rver-2008.aspx

si quelqu'un peut m'aider ça serrais cool

[Pol63]

openfiledialog ouvre une fenetre qui demande de choisir un fichier sur le pc (comme dans toutes les applis)
à connaitre il y a aussi savefiledialog, folderbrowserdialog (sélectiondossier), il y en a un pour les imprimantes je crois, un aussi pour les couleurs etc...


après si c'est pour stocker le fichier dans une base de données, tu peux faire une colonne de type varbinary et y mettre les octets du fichier via system.io.file.readallbytes (il faudra éventuellement stocker le nom du fichier dans une autre colonne)

[cyriane]

oui je connais les openfiledialog mais je n'y arrive pas enfait...vous pourriez me donner un exemple?

[Pol63]

vous n'arrivez pas à quoi ??

[cyriane]

à ouvrir la fenetre de dialog en cliquant sur le bouton parcourir...

[Bacube]

Voilà ce que j'utilise pour récupérer le chemin d'accès du fichier, ici un *.rtf, pour le convertir en fichier *.txt dans une autre procédure.

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
Private Sub OuvrirFichier()
 
 
 
        '------------------------------ Explorer --------------------------------
 
            Dim Explorer As New OpenFileDialog
 
            With Explorer
                .CheckFileExists = True             'Vérifie si le fichier existe
                .CheckPathExists = True             'Vérifie si le dossier existe
                .Filter = "Word Documents|*.rtf"    'Filtre les documents, seulement les .rtf
                .Multiselect = False                'Désactivce la selection multiple
 
 
                If .ShowDialog = DialogResult.OK Then       'Récupération du résultat
                    recupChemin = Explorer.FileName
                Else
                    Exit Sub
                    End
                End If
            End With
              End If
 
End Sub