1. Forums
  2. Programming
  3. Visual Basic .NET
  4. load image in crystal report

load image in crystal report

Submitted by pjlacsamana@gm… on
hi can anyone help me with this one im trying to load an image in crystal report and show some informations using BLOB in mysql the problem is only the image is showing how can i use dataset instaed of datatable and datarow and set the the the datasource of the crystal report to the dataset and here' the code
  1.  Dim con1 As New MySqlConnection(constr)
  2.         Dim adap1 As New MySqlDataAdapter
  3.         Dim ds As New DataSet
  4.  
  5.         Dim ssql1 As String = "Select * from fa WHERE ControlNo='" & txtcontrol.Text & "'"
  6.  
  7.  
  8.         con1.Open()
  9.         adap1.SelectCommand = New MySqlCommand(ssql1, con1)
  10.         adap1.SelectCommand.ExecuteNonQuery()
  11.         adap1.Fill(ds, "fa")
  12.  
  13.        
  14.         Try
  15.            
  16.             Dim dt As DataTable = ds.Tables("fa")
  17.            
  18.             Dim drow As DataRow
  19.            
  20.             dt.Columns.Add("picme", System.Type.GetType("System.Byte[]"))
  21.            
  22.  
  23.  
  24.             drow = dt.NewRow
  25.            
  26.             Dim fs As FileStream
  27.            
  28.             Dim br As BinaryReader
  29.            
  30.             If File.Exists(txtloc.Text) Then
  31.                
  32.                 fs = New FileStream(txtloc.Text, FileMode.Open)
  33.             Else
  34.                 fs = New FileStream(AppDomain.CurrentDomain.BaseDirectory & "NoPhoto.jpg", FileMode.Open)
  35.             End If
  36.            
  37.             br = New BinaryReader(fs)
  38.             ' define the byte array of filelength
  39.             Dim imgbyte(fs.Length) As Byte
  40.             ' read the bytes from the binary reader
  41.             imgbyte = br.ReadBytes(Convert.ToInt32((fs.Length)))
  42.             drow(0) = imgbyte      
  43.             dt.Rows.Add(drow)      
  44.             br.Close()              
  45.             fs.Close()              
  46.             Dim rptobj As New mypic    
  47.             rptobj.SetDataSource(dt)            
  48.             Frmreport.crv.ReportSource = rptobj  
  49.             Frmreport.crv.Refresh()
  50.             Frmreport.Show()
  51.         Catch ex As Exception
  52.             ' error handling
  53.             MsgBox(ex.ToString)
  54.             ' MsgBox("Missing 10157.jpg or nophoto.jpg in application folder")
  55.         End Try
hope you can help me with this, tnx