Image dynamic avec crystal reports (Vb.net)
Fermé
sek2008
Messages postés
38
Date d'inscription
vendredi 18 avril 2008
Statut
Membre
Dernière intervention
19 août 2008
-
19 juin 2008 à 10:31
cool_ismael Messages postés 1 Date d'inscription lundi 20 juin 2016 Statut Membre Dernière intervention 3 août 2016 - 3 août 2016 à 17:27
cool_ismael Messages postés 1 Date d'inscription lundi 20 juin 2016 Statut Membre Dernière intervention 3 août 2016 - 3 août 2016 à 17:27
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 download - Télécharger - Présentation
- Crystal disk - Télécharger - Informations & Diagnostic
- Crystal report viewer - Télécharger - Gestion de données
- Image iso - Guide
- Crystal mark - Télécharger - Divers Utilitaires
5 réponses
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cool_ismael
Messages postés
1
Date d'inscription
lundi 20 juin 2016
Statut
Membre
Dernière intervention
3 août 2016
3 août 2016 à 17:27
3 août 2016 à 17:27
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