عكس در كريستال ريپورت(لطفا كمك كنيد)

[tina.net]

سلام دوستان.
من يه بانك اكسس دارم كا توي يه جدولش عكس ذخيره ميشه نوع فيلدش هم ole object هست.
حالا ميخوام اين عكس رو توي كريستال نمايش بدم.
با تشكر...

[milad.biroonvand]

سلام

اول اونو بايد داخل يه فايل بيت مپ با كد زير فراخواني بكني


Private Sub Display1()
'CONNECTION
Dim OleDbConnection1 As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Documen" & _
"ts and Settings\Administrator\My documents\Access1.mdb;.......")
OleDbConnection1.Open()
Dim OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand()
Dim OleDbReader1 As System.Data.OleDb.OleDbDataReader
'Access (OleDb)
OleDbSelectCommand1.CommandText = "SELECT Imageb FROM Table1 WHERE ID = 1"
OleDbSelectCommand1.Connection = OleDbConnection1
' RUN THE COMMAND
OleDbReader1 = OleDbSelectCommand1.ExecuteReader()
OleDbReader1.Read()
Dim Len1 As Long = OleDbReader1.GetBytes(0, 0, Nothing, 0, 0)
Dim Array1(CInt(Len1)) As Byte
OleDbReader1.GetBytes(0, 0, Array1, 0, CInt(Len1))
OleDbConnection1.Close()
Dim MemoryStream1 As New System.IO.MemoryStream(Array1)
Dim Bitmap1 As New System.Drawing.Bitmap(MemoryStream1)
Dim Form1 As New System.Windows.Forms.Form()
Dim PictureBox1 As New System.Windows.Forms.PictureBox()
PictureBox1.Dock = DockStyle.Fill
PictureBox1.Image = Bitmap1
Form1.Controls.Add(PictureBox1)
Form1.ShowDialog()
End Sub

بعد اونو به كريستال ريپورت ارسال كني.

[mortezamhd]

سلام
یک سری به پیج زیر بزنید
http://barnamenevis.org/forum/showthread.php?t=169167

[tina.net]

ولي من جوابمو نگرفتم اينا چيزايي نبود كه من ميخواستم لطفا سوالمو با دقت بخونيد. كسي نيست جواب بده؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟:گریه:

[alimanam]

ولي من جوابمو نگرفتم اينا چيزايي نبود كه من ميخواستم لطفا سوالمو با دقت بخونيد. كسي نيست جواب بده؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟:گریه:

با عرض سلام

دوست عزیز منظور شما نمایش عکس در کریستال ریپورته !!! خوب کافیه طبق عکس اول از Field Explorer جدول خودت رو به کریستال ریپورت اضافه کنی بعد اون فیلد عکس خودت رو در قسمت مشخص شده در عکس اضافه کنی . اگه بازم نتونستی بگو تا یه کد نمونه واست آماده کنم . یا علی

http://img229.imageshack.us/img229/3229/guideaddimagetocr.png

[tina.net]

با تشكر از آقا علي و بقيه دوستان به خاطر راهنمايياشون.
علي آقا بازم مشكل من حل نشد اگه يه نمونه بزاريد ممنون ميشم.
ببنينيد من فيلد عكسهامو تو بانك از نوع Ole Object تعريف كردم و ميخوام تو كريستال نمايش بدم ، حالا اگه بشه بدون استفاده از بانك كاربر عكسشو از طريق آدرس توي كريستال بياره هم بد نيست.

[alimanam]

با عرض سلام

این نمونه رو براتون نوشتم فکر میکنم مشکلتون کاملاً حل بشه .


http://img2.imageshack.us/img2/5830/showimgeincr.png


یا علی