Image dynamic avec crystal reports (Vb.net)
sek2008
Messages postés
38
Date d'inscription
Statut
Membre
Dernière intervention
-
cool_ismael Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
cool_ismael Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
Salut,
j'ai réalisé un programme en VB.net,qui sert dans une partie d'imprimer le badge que chaque nouveau employé de la société.
mon problème c'est comment insérer une image dans la base de donnée,et comment appeler mon image dans crystall report depuis cette base ?
Merci
j'ai réalisé un programme en VB.net,qui sert dans une partie d'imprimer le badge que chaque nouveau employé de la société.
mon problème c'est comment insérer une image dans la base de donnée,et comment appeler mon image dans crystall report depuis cette base ?
Merci
A voir également:
- Image dynamic avec crystal reports (Vb.net)
- Crystal reports viewer - Télécharger - Gestion de données
- Crystal disk info - Télécharger - Informations & Diagnostic
- Crystal reports download - Télécharger - Présentation
- Image iso - Guide
- Acronis true image - Télécharger - Sauvegarde
5 réponses
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Private Sub capturePhoto
dim ImPhoto() as byte 'représente par le type image dans une BD
If Not Me.PictureBox1.Image Is Nothing Then
If System.IO.File.Exists(ME_Context.Nom_Fich_Image) Then
Try
Dim fs As New IO.FileStream(ME_Context.Nom_Fich_Image, IO.FileMode.Open)
Dim br As New IO.BinaryReader(fs)
ImPhoto = br.ReadBytes(CInt(fs.Length))
br.Close()
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
End If
End If
end sub
Private Sub affiche_Photo(ByVal Photo() As Byte)
If Not Photo Is Nothing Then
Dim ms As New IO.MemoryStream(Photo)
Me.PictureBox1.Image = Image.FromStream(ms)
End If
End Sub
dim ImPhoto() as byte 'représente par le type image dans une BD
If Not Me.PictureBox1.Image Is Nothing Then
If System.IO.File.Exists(ME_Context.Nom_Fich_Image) Then
Try
Dim fs As New IO.FileStream(ME_Context.Nom_Fich_Image, IO.FileMode.Open)
Dim br As New IO.BinaryReader(fs)
ImPhoto = br.ReadBytes(CInt(fs.Length))
br.Close()
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
End If
End If
end sub
Private Sub affiche_Photo(ByVal Photo() As Byte)
If Not Photo Is Nothing Then
Dim ms As New IO.MemoryStream(Photo)
Me.PictureBox1.Image = Image.FromStream(ms)
End If
End Sub
