Comment enregistrer un fichier word en utilisant la class stream

Bonjour,
au debut je t'informe que je ne suis pas doué dans la classe Stream, et pour le probleme, qd j ai lu le titre du sujet j ai fait une idée mais a la lecture je me suis trouvé dans une autre situation.

bon en ts cas je crois que tous simplement tu veux enregistrer un fichier dans une base de donnée? si c'est le cas voici un code que j ai utilisé dans asp/vb.net et je crois qu il va bien t aidé

Code:

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
26
27
28
29
30
31
32
33
34
35
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If CType(FormView1.FindControl("FileUpload2"), FileUpload).HasFile Then
            Dim fichier As String = CType(FormView1.FindControl("FileUpload2"), FileUpload).FileName
            Me.SqlDSEmploiStagiaire.InsertParameters("NomFichier").DefaultValue = fichier
            Me.SqlDSEmploiStagiaire.InsertParameters("personnel").DefaultValue = Me.User.Identity.Name
            Me.FormView1.DefaultMode = FormViewMode.ReadOnly
        Else
            MsgBox("Le chemin fournis est incorrect", MsgBoxStyle.Critical, "Erreur")
        End If
    End Sub
 
    Protected Sub SqlDSEmploiStagiaire_Inserted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceStatusEventArgs) Handles SqlDSEmploiStagiaire.Inserted
        Dim MEM As IO.Stream = CType(FormView1.FindControl("FileUpload2"), FileUpload).PostedFile.InputStream
        Dim arraybayte As Byte() = New Byte(MEM.Length) {}
        MEM.Read(arraybayte, 0, arraybayte.Length)
        Dim SQLCOMMAND As New SqlClient.SqlCommand
        Dim CONSTRING As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\ASPNETDB.MDF;Integrated Security=True;User Instance=True"
        Dim sqlcon As New SqlClient.SqlConnection(CONSTRING)
        With SQLCOMMAND
            .Connection = sqlcon
            .CommandType = Data.CommandType.Text
            .CommandText = "UPDATE    EmploiTemps SET Fichier =@fichier WHERE (Etablissement = @etab) AND (Filiere = @fil) AND (Groupe = @grp) AND (Annee = @ann) AND (Massehoraire = @mh)"
            .Parameters.Add("@etab", SqlDbType.Decimal).Value = CType(FormView1.FindControl("DropDownList2"), DropDownList).SelectedValue
            .Parameters.Add("@fil", SqlDbType.NVarChar, 50).Value = CType(FormView1.FindControl("DropDownList3"), DropDownList).SelectedValue
            .Parameters.Add("@grp", SqlDbType.NVarChar, 50).Value = CType(FormView1.FindControl("DropDownList4"), DropDownList).SelectedValue
            .Parameters.Add("@ann", SqlDbType.Int).Value = CType(FormView1.FindControl("DropDownList5"), DropDownList).SelectedValue
            .Parameters.Add("@mh", SqlDbType.NVarChar, 50).Value = CType(FormView1.FindControl("MassehoraireTextBox"), TextBox).Text
            .Parameters.Add("@fichier", SqlDbType.Image).Value = arraybayte
 
        End With
        sqlcon.Open()
        SQLCOMMAND.ExecuteNonQuery()
        sqlcon.Close()
    End Sub