اريد كود اتصال تقرير كريستال ريبورت 10 بقاعدة بيانات سكوال سيرفر 2000

السلام عليكم ورحمة الله وبركاتة

اريد ما الخطأ فى هذا الكود

اولا كود فتح او استراد تقرير كريستال ريبورت 10 بقاعدة بيانات اكسس

Public Function RepCRStors()
    On Error Resume Next
    Report3.Database.Tables(1).Location = ( "D:\DataAc.Mdb")
    '
    Screen.MousePointer = vbHourglass
    CRViewer1.ReportSource = Report3
    CRViewer1.ViewReport
    Screen.MousePointer = vbDefault
    CRViewer1.Refresh
End Function

الكود السابق شغال تمام على الاكسس

اما الكود التالى فهو المراد تعديلة اريد تعديل الخطأ بحيث يشتغل على قاعدة بيانات سكوال سيرفر 2000

    Report1.Database.Tables(1).Location = ("database=SQL SERVER;Initial Catalog=CaressTest1;Data Source=")
    Screen.MousePointer = vbHourglass
    CRViewer1.ReportSource = Report1
    CRViewer1.ViewReport
    Screen.MousePointer = vbDefault

خطا هذا الكود اظهار التقرير فارغ يعنى صفحة بيضاء من غير حتى تصميم التقرير

فارجوا من الخبراء حل هذة المشكلة

اريد كود اتصال تقرير كريستال ريبورت 10 بقاعدة بيانات سكوال سيرفر 2000

مواضيع مشابهة

عدد الزوار حالياً