منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تغيير مكان قاعدة البيانات لبرنامج شغال كويس ادي الى عدم تشغيل التقارير التى تطلب مكان قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تغيير مكان قاعدة البيانات لبرنامج شغال كويس ادي الى عدم تشغيل التقارير التى تطلب مكان قاعدة البيانات (/showthread.php?tid=9105)



تغيير مكان قاعدة البيانات لبرنامج شغال كويس ادي الى عدم تشغيل التقارير التى تطلب مكان قاعدة البيانات - moh172 - 31-05-13

السلام عليكم
تم تغيير مكان قاعدة البيانات لبرنامج بالفيجوال بيسك دوت نت 2005 من درايف E الى مجلد المشروع
ادي ذلك الى تعطل التقارير الكريستال ريبورت المنتجة بواسطة البرنامج حيث يسأل التقرير عن مكان قاعدة البيانات الجديدة
يتم الاتصال بواسطة قاعدة البيانات عن طريق الاتصال المباشر connected mode

السؤال : كيف يتم ضبط التقارير لتتعرف على مسار قاعدة البيانات الجديدة (مع العلم ان التقارير تعمل فى المسار القديم بشكل جيد)؟
ارجو التوضيح بخطوات عملية ...

ولكم جزيل الشكر والاحترام

محمد يوسف عبد الله


تغيير مكان قاعدة البيانات لبرنامج شغال كويس ادي الى عدم تشغيل التقارير التى تطلب مكان قاعدة البيانات - rohiem - 06-06-13

وعليكم السلام ورحمة الله وبركاته
بعد معاناة مع هذا الموضوع وجدت أفضل حل أن تجعل التقارير تأخذ البيانات من داتاسيت أو داتاتيبل ...
خذ الفكرة من هذا الكود :
كود :
con.Open()
        Dim cmd As New SqlCommand("Select * from table1", con)
        Dim cmd1 As New SqlCommand("Select * from table2", con)
        Dim cmd2 As New SqlCommand("Select * from table3", con)

        Dim dt As New DataSet

        Dim da = New SqlDataAdapter(cmd)
        Dim da1 = New SqlDataAdapter(cmd1)
        Dim da2 = New SqlDataAdapter(cmd2)

        da.Fill(dt, "table1")
        da1.Fill(dt, " table2")
        da2.Fill(dt, " table3")

        Dim rpt As New CrystalReport1

        rpt.Load(Application.StartupPath & "\CrystalReport1.rpt")
        rpt.SetDataSource(dt)

        rpt.SetParameterValue(0, ComboBox1.Text)

        Dim newviewre As New viewre1
        newviewre.CrystalReportViewer1.ReportSource = rpt
        newviewre.Text = "  كشف "

        newviewre.CrystalReportViewer1.Refresh()
        newviewre.Show()

        con.Close(

وللتوضيح أكثر يمكنك مراجعة سؤالي وأجوبته في هذا الموضوع
http://arabteam2000-forum.com/index.php/topic/278273-%D8%AA%D8%BA%D9%8A%D9%8A%D8%B1-%D8%A7%D9%84%D8%B3%D9%8A%D8%B1%D9%81%D8%B1-%D9%84%D8%AA%D9%82%D8%A7%D8%B1%D9%8A%D8%B1-%D9%83%D8%B1%D9%8A%D8%B3%D8%AA%D8%A7%D9%84-%D8%B1%D9%8A%D8%A8%D9%88%D8%B1%D8%AA/