[sanyor77]

وعليكم السلام ورحمة الله وبركاته. يرجى مراجعة الخطوات التالية لحل المشكلة:

1. تأكيد أن كائن الصورة بتنسيق binary تم تخزينه بشكل صحيح في قاعدة بيانات Access.
   
2. التأكد من استخدام نوع الحقل المناسب في قاعدة البيانات Access لتخزين البيانات الثنائية، مثل OLE Object أو BLOB (Binary Large Object).
   

لعرض الصور في تقرير Crystal Reports، يمكنك اتباع الخطوات التالية:

1. قم بإنشاء مصدر بيانات جديد يتضمن الحقل الذي يحتوي على البيانات الثنائية للصورة.
   
2. إنشاء تقرير Crystal Reports جديد وربطه بمصدر البيانات الذي أنشأته.
   
3. قم بإضافة حقل الصورة الثنائية إلى التقرير.
   
4. حدد حقل الصورة في التقرير وانقر بزر الماوس الأيمن، ثم اختر "Format Object".
   
5. في نافذة "Format Editor"، انقر فوق علامة التبويب "Picture".
   
6. قم بتعيين "Graphic Location" إلى الحقل الذي يحتوي على البيانات الثنائية للصورة في مصدر البيانات.
   
7. انقر فوق "OK" لحفظ التغييرات وإغلاق محرر التنسيق.
   

بعد اتباع هذه الخطوات، يجب أن تظهر الصور في تقرير Crystal Reports بناءً على البيانات الثنائية المخزنة في قاعدة بيانات Access. إذا واجهتك مشكلة أخرى أثناء هذه العملية، يرجى توضيح الخطأ الذي تتلقاه حتى يمكنني مساعدتك بشكل أفضل.


واذا كنت تريد كود لذلك

نعم، فيما يلي كيفية عرض صورة مخزنة كبيانات ثنائية في قاعدة بيانات Access على تقرير Crystal Reports باستخدام Visual Basic:

1. قم بإنشاء تطبيق جديد في Visual Studio وأضف مراجعة لـ "CrystalDecisions.CrystalReports.Engine" و"CrystalDecisions.Shared".
   
   
2. إنشاء تقرير Crystal Reports جديد وربطه بمصدر البيانات الذي يحتوي على البيانات الثنائية للصورة.
   
   
3. اتبع الخطوات السابقة لإعداد تقرير Crystal Reports لعرض الصور.
   
   
4. استخدم الكود التالي لعرض التقرير على CrystalReportViewer:
   

PHP كود :

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data.OleDb

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=YourDatabasePath;Persist Security Info=False;")
        Dim cmd As New OleDbCommand("SELECT * FROM YourTableName", con)
        Dim da As New OleDbDataAdapter(cmd)
        Dim ds As New DataSet()

        da.Fill(ds, "YourTableName")

        Dim report As New YourCrystalReportName()
        report.SetDataSource(ds)

        CrystalReportViewer1.ReportSource = report
        CrystalReportViewer1.Refresh()
    End Sub
End Class 


تأكد من استبدال "YourDatabasePath" بمسار قاعدة البيانات الخاصة بك، واستبدال "YourTableName" بالجدول الذي يحتوي على البيانات الثنائية للصورة. استبدل "YourCrystalReportName" باسم تقرير Crystal Reports الذي أنشأته. هذا الكود سيقوم بجلب البيانات من قاعدة البيانات وتعيينها كمصدر بيانات لتقرير Crystal Reports. سيتم عرض التقرير على عنصر تحكم CrystalReportViewer في النموذج. تأكد من تعديل الكود وفقًا لاحتياجات مشروعك. إذا كنت بحاجة إلى مزيد من المساعدة، لا تتردد في طرح المزيد من الأسئلة.