Afficher dans crystal report une image de ma base de données

Question

Bonjour à tous,

J'ai un probleme qui me trouble dépuis toujours entre mon vb6, Crystal reaport8 et msaccess;

Comment enregistrer une photo dans la base des données access et l'afficher dans crystal report comme donnée à l'Etat?

Moi j'enregistre souvent le chemin d'image dans ma base, mais je ne parvien toujous pas à les affichés dans crystal reaport comme donnés;

Vraiment je suis troublé, si quelqu'un peu m'aidé, j'en serais vraiment content.

Merci d'avance.

Christ makolo sasi

cs_holow · Answer

bonjour ,
moi j'utilise vb.net
voici le code que j'utilise mais il marche juste pour les images .BMP 

Imports System.Data.SqlClient
Imports System.IO
Imports System.Drawing.Imaging

 Private Sub EnregestrerImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As New SqlConnection _
       ("Initial Catalog=SaveRestau ; Data Source=. ; Integrated Security=true")
        Dim da As New SqlDataAdapter _
         ("Select * From ImageT", con)
        Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
        Dim ds As New DataSet()

        da.MissingSchemaAction = MissingSchemaAction.AddWithKey

        Dim fs As New FileStream _
         ("C:\image1.bmp", FileMode.OpenOrCreate, _
          FileAccess.Read)
        Dim MyData(fs.Length) As Byte
        fs.Read(MyData, 0, fs.Length)
        fs.Close()
        con.Open()
        da.Fill(ds, "ImageT")
        Dim myRow As DataRow
        myRow = ds.Tables("ImageT").NewRow()

        myRow("DescI") = "This would be description text"
        myRow("ImageI") = MyData
        ds.Tables("ImageT").Rows.Add(myRow)
        da.Update(ds, "ImageT")

        fs = Nothing
        MyCB = Nothing
        ds = Nothing
        da = Nothing

        con.Close()
        con = Nothing
        MsgBox("Image saved to database")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim con As New SqlConnection _
       ("Initial Catalog=SaveRestau ; Data Source=. ; Integrated Security=true")
        Dim da As New SqlDataAdapter _
         ("Select * From ImageT", con)
        Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
        Dim ds As New DataSet()

        con.Open()
        da.Fill(ds, "ImageT")
        Dim myRow As DataRow
        myRow = ds.Tables("ImageT").Rows(0)

        Dim MyData() As Byte
        MyData = myRow(2)
        Dim K As Long
        K = UBound(MyData)

        Dim fs As New FileStream _
         ("C:\image1.bmp", FileMode.OpenOrCreate, _
          FileAccess.Write)
        fs.Write(MyData, 0, K)
        fs.Close()

        fs = Nothing
        MyCB = Nothing
        ds = Nothing
        da = Nothing

        con.Close()
        con = Nothing
        MsgBox("Image b1 enregester")

    End Sub

cs_holow · Answer

dsl la 1ere procédure pour enregistrer l'image et la 2eme pour l'extraction del'image :D

Imports System.Data.SqlClient
Imports System.IO
Imports System.Drawing.Imaging 



1-enregistrer image
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As New SqlConnection _
       ("Initial Catalog=SaveRestau ; Data Source=. ; Integrated Security=true")
        Dim da As New SqlDataAdapter _
         ("Select * From ImageT", con)
        Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
        Dim ds As New DataSet()

        da.MissingSchemaAction = MissingSchemaAction.AddWithKey

        Dim fs As New FileStream _
         ("C:\image1.bmp", FileMode.OpenOrCreate, _
          FileAccess.Read)
        Dim MyData(fs.Length) As Byte
        fs.Read(MyData, 0, fs.Length)
        fs.Close()
        con.Open()
        da.Fill(ds, "ImageT")
        Dim myRow As DataRow
        myRow = ds.Tables("ImageT").NewRow()

        myRow("DescI") = "This would be description text"
        myRow("ImageI") = MyData
        ds.Tables("ImageT").Rows.Add(myRow)
        da.Update(ds, "ImageT")

        fs = Nothing
        MyCB = Nothing
        ds = Nothing
        da = Nothing

        con.Close()
        con = Nothing
        MsgBox("Image bien enregester")

    End Sub


2-afficher image 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim con As New SqlConnection _
       ("Initial Catalog=SaveRestau ; Data Source=. ; Integrated Security=true")
        Dim da As New SqlDataAdapter _
         ("Select * From ImageT", con)
        Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
        Dim ds As New DataSet()

        con.Open()
        da.Fill(ds, "ImageT")
        Dim myRow As DataRow
        myRow = ds.Tables("ImageT").Rows(0)

        Dim MyData() As Byte
        MyData = myRow(2)
        Dim K As Long
        K = UBound(MyData)

        Dim fs As New FileStream _
         ("C:\image1.bmp", FileMode.OpenOrCreate, _
          FileAccess.Write)
        fs.Write(MyData, 0, K)
        fs.Close()

        fs = Nothing
        MyCB = Nothing
        ds = Nothing
        da = Nothing

        con.Close()
        con = Nothing
        MsgBox("Image b1 afficher")

    End Sub

Afficher dans crystal report une image de ma base de données

2 réponses

Votre réponse

Discussions similaires