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
| Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error GoTo fix
If TextBox1.Text = "" Then
MsgBox("Veuillez Entrer un Nom Pour L'image")
TextBox1.Focus()
Exit Sub
End If
' Ouverture du fichier
Dim fs As FileStream = New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
Dim s As String = TextBox1.Text
'lecture de la Sortie en Binaire
Dim r As BinaryReader = New BinaryReader(fs)
'Declaration pour la sauvegarde du fichier
Dim FileByteArray(fs.Length - 1) As Byte
r.Read(FileByteArray, 0, CInt(fs.Length))
Dim sql As String = "INSERT INTO Images (Filename,Photo) VALUES (?,?)"
'Declaration objet OleDbCommand
Dim cmd As New System.Data.OleDb.OleDbCommand(sql, conn)
'on ajoute les parametres
cmd.Parameters.Add("@Filename", System.Data.OleDb.OleDbType.VarChar).Value = TextBox1.Text
cmd.Parameters.Add("@Photo", System.Data.OleDb.OleDbType.Binary).Value = FileByteArray
conn.Open()
cmd.ExecuteNonQuery()
MessageBox.Show("Image Sauvegardé avec Succés !", "Galerie Photo", MessageBoxButtons.OK, MessageBoxIcon.Information)
conn.Close()
fix:
Exit Sub
End Sub |
Partager