تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إعطاء عنوان ديناميكي لقاعدة البيانات لربطه مع تقرير الكريستال
#1
السلام عليكم ورحمة الله

عند تصميم التقرير الكريستال ببيئة الفيجوال , أقوم بإعطاء التقرير عنوان لقاعدة البيانات لإنشاء اتصال جديد وإدراج الحقول وخلافه ...
المشكلة أنه عندما أضع البرنامج عند العميل يطلب تحديد مكان قاعدة البيانات لأن العنوان للقاعدة اختلف !

قمت بوضع هذا الكود في زر عرض التقرير :
كود :
Dim arr As New arrivalReport
        Dim rep As New rep
        rep.CrystalReportViewer1.ReportSource = arr
        arr.DataSourceConnections.Item(0).SetConnection(Application.StartupPath & "\data.accdb", "data.accdb", False)
        arr.Refresh()
        rep.ShowDialog()

وفي حدث CrystalReportViewer1_Load للتقرير قمت بوضع هذا الكود :
كود :
CrystalReportViewer1.RefreshReport()

تم حل المشكلة ولكن لابد لهذه الرسالة من الظهور : Logon Failed. Please Try Again Later مع زر موافق .
ما إن تضغط موافق حتى يعمل التقرير بالشكل السليم , كيف أتخلص من هذه الرسالة المزعجة أو إذا كان هناك طريقة أخرى أتمنى معرفتها؟

شكرا لكم والسلام عليكم
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

جرب هذا الترتيب في ربط الكريستال ريبورت مع قاعدة البيانات ثم عرض التقرير (طبعا في الأول أربط الكريستال في التصميم وبعدها لا يمكنك نقل قاعدة البيانات لأي مكان ثم تحديد مكان قاعدة البيانات في الكود - وهنا يفترض وجوده في مجلد البرنامج)
لا تنس أن يكون المشروح معد للعمل على منصات x86.
كود :
Dim rpt As New rpt1
Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\Database1.mdb")
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM table1", conn)
da.Fill(dt)
rpt.SetDataSource(dt)
CrystalReportViewer1.ReportSource = rpt

السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#3
شكرا جزيلا لك أخي الكريم , المشكلة لدي هي جملة الإستعلام فهي متشعبة ومعقدة بعض الشيئ ومن الصعب نقلها وملأ dt بها Sad
الرد }}}}
تم الشكر بواسطة:
#4
تم حل المشكلة وأخيرا عبر هذا السطر البسيط :
كود :
rpt.SetDatabaseLogon("", "", Application.StartupPath & "\data.accdb", "data.accdb")

بدون أي مشاكل

شكرا لكم والسلام عليكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في تقارير الكريستال ريبورت Mido-9 3 628 20-09-17, 01:52 PM
آخر رد: أبوبكر سويدان
  تقرير مستندات محاسبية ibraheam 0 60 28-08-17, 06:51 PM
آخر رد: ibraheam
  عمل تقرير يظهر نتيجة الطالب في مواد الفصل القيصر بيلا 0 68 16-08-17, 09:09 PM
آخر رد: القيصر بيلا
Photo عمل تقرير يظهر نتيجة الطالب في مواد الفصل القيصر بيلا 0 51 16-08-17, 09:08 PM
آخر رد: القيصر بيلا
  مساعدة في إنشاء تقرير لطباعة الصكوك ndjakoub 0 74 24-07-17, 05:53 PM
آخر رد: ndjakoub
  [VB.NET] الاتصال بقاعدة البيانات الموجوده في موقعي dubai.eig 5 153 09-07-17, 03:51 PM
آخر رد: Amir_alzubidy
Tongue [SQL] مشكلة فى ربط قاعدة البيانات sql ahmed6610 4 174 08-07-17, 06:06 PM
آخر رد: ahmed6610
  [سؤال] كيف يمكن إرسال الصورة الموجودة داخل PictureBox1 إلى تقرير الكريستال ريبورت matrixmas 0 112 20-06-17, 11:51 PM
آخر رد: matrixmas
  [سؤال] مشكله فى عرض تقرير الفاتورة احمد عبد الحكيم 7 315 07-06-17, 03:00 AM
آخر رد: mstfa1991
  طلب مساعدة بسيطة في باركود يتم طباعتة عن طريق برنامج الكريستال ريبورت Darel 2 198 04-06-17, 10:18 AM
آخر رد: Darel

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم