مشكلة مع التقارير

السلام عليكم

Merge Modules

اقتباس

هل من الطبيعي ان التقارير يستغلاق تقريبا 0.5 دقيقة ليظهر؟ 

نعم علشان كدة يفضل تحميل التقرير اثناء فتح البرنامج

اقتباس

عند نقل مشروع فية تقارير هل من الطبيعي ان يتم تغير الsever لكل تقرير

لا ممكن تعمل ConnectionString عنك فى Module او Class

اقتباس

نعم علشان كدة يفضل تحميل التقرير اثناء فتح البرنامج

يعني احطة في load للفورم الاساسي ام اين؟ ممكن لو سمحت تشرح الطريقة

اقتباس

لا ممكن تعمل ConnectionString عنك فى Module او Class

طيب فين انادي الmodule

والله يوفقك :)

up

السلام عليكم

تم عمل مثال بسيط افتح الملف المرفق رقم 1 ولاحظ السرعة ثم افتح الملف رقم 2

وقم بتغير مكان البرنامج الى اى مكان عندك على الكمبيوتر C or D or E سوف يعمل ان شاء الله

وبلنسبة لى Merge Modules اعتقد الموضوع واضح فى ملف الفيديو

New Folder.rar

جزاك الله خير ساقوم بالتطبيق وان شاء الله يتنفذ

جزاك الله خير على تجاوبك :)

*حضرتك منفذ البرنامج علي ACCESS لذلك استطعت انك تضعة في الBIN وبالتالي مسار قاعدة البيانات ممكن حصرة ولكن انا اعمل على قاعدة بيانات في SQL server2000 فما هو الحل؟

*كما انك واضع ملف xml فما فائدته؟

*كذلك لم استطيع اعرف الكود الذي قام بتحميل التقارير مع فتح البرنامج

كتبت الكود التالي في حدث نقر الزر اللي يفتح فورم حامل التقرير لكن يطلب مني رسالة تحديد الserver مع اني حاطة خيار integreted security

Dim conn As SqlClient.SqlConnection
        conn = New SqlClient.SqlConnection
        conn.ConnectionString = "initial catalog=library;integrated security=SSPI;user id=HUDA"

        Dim sql As String = "SELECT * From book"
        Dim cm As SqlClient.SqlCommand
        Dim da As New SqlDataAdapter(sql, conn)
        Dim ds As New DataSet


        Dim FrmCrystalReport As New newbookReport
        Dim CrystalReport As New newbook
        ds.Clear()
        da.Fill(ds, "book")
        CrystalReport.Database.Tables(0).SetDataSource(ds)
        FrmCrystalReport.CrystalReportViewer1.ReportSource = CrystalReport
        FrmCrystalReport.Show()

السلام عليكم

انا اسف انى لم اشرح الطريقة فى المثال السابق

شوفى افتحى #Region " Windows Form Designer generated code "

هيكون فى اجراء مكتوب باسم xx

      Sub xx()
        Dim sql As String = "SELECT * From TableEmployed "
        Dim da As New OleDb.OleDbDataAdapter(sql, Con)
        Dim ds As New DataSet
        Dim Frm As New FrmPrivew
        Dim cr As New CrystalReport1
        ds.Clear()
        da.Fill(ds, "TableEmployed")
        cr.Database.Tables(0).SetDataSource(ds)
        Frm.CrystalReportViewer1.ReportSource = cr
    End Sub

تمام

وبعد الاجراء دة انا بنادى علية اثناء تحميل شاشة Splash

    Dim Splash As New Form1
        xx()
        Splash.Show()
        Application.DoEvents()
        Threading.Thread.Sleep(2000)
        Splash.Close()
        InitializeComponent()

طيب انا عملت كدة لية

علشان الاتى اى تقرير يستغرق فترة بسيطة فى اول مرة يتحمل فيها وبعد كدة هيشتغل عادى جدا ان شاء الله

الفكرة انى حملت بيانات التقرير دة اثناء الشاشة الافتتاحية يبقا كدة التقرير خلال خد الوقت بتاعة فى اول مرة اول لما ينادى المستخدم علية كدة هيعتبر تانى مرة اتحمل بلنسبة للبرنامج واول مرة بلنسبة للمستخدم

بلنسبة لموضوع SQL Server الموضوع مش هيختلف خالص

اقتباس

  *حضرتك منفذ البرنامج علي ACCESS لذلك استطعت انك تضعة في الBIN وبالتالي مسار قاعدة البيانات ممكن حصرة ولكن انا اعمل على قاعدة بيانات في SQL server2000 فما هو الحل؟

 

احل بسيط ان شاء الله

الاول هل البرنامج سوف يعمل على Network ام local

ان كان البرنامج هيعمل على Network يبقا لازم تدخلى اسم السيرفر

طيب انا هعمل مثال بسيط جدا على local

اول حاجة اعملى Module

وبعد كدة اكتبى فية جملة ConnectionString

       Public con As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source=(local);Initial Catalog=Northwind;Integrated Security=SSPI;")

انا عملت اتصال مع قاعدة بيانات Northwind وجدول Customers

وبعد كدة فى Button بتاع عرض التقرير هكتب الكود التالى

         Dim sql As String = "SELECT * From Customers"
        Dim da As New SqlClient.SqlDataAdapter(sql, SqlConnection1)
        Dim ds As New DataSet
        Dim FrmCrystalReport As New Form2
        Dim CrystalReport As New CrystalReport1
        ds.Clear()
        da.Fill(ds, "Customers")
        CrystalReport.Database.Tables(0).SetDataSource(ds)
        FrmCrystalReport.CrystalReportViewer1.ReportSource = CrystalReport
        FrmCrystalReport.Show()

WindowsApplication1.rar

جزاك الله خير على تجاوبك

نفذت نفس الخطوات اللي حضرتك كاتبها لكن يعطيني رسالة خطأ

invalid report source !

كذلك لاحظت ان حضرتك معرف data set & data adaptor هل هذه كانت خاصة بتعبئة الdatagrid وكذلك ال item datast1

احتاجها للتقرير او لا ؟

اتمنى ان حضرتك ماتتضايق من كثرة اسئلتي

ممكن تضيفى المثال بتاعك

في الكود عند ضغط الbutton التقرير وضعت

   Dim sql As String = "SELECT * From pan"
        Dim da As New SqlClient.SqlDataAdapter(sql, SqlConnection1)

        Dim ds As New DataSet
        Dim FrmCrystalReport As New panReport
        Dim CrystalReport As New pan
        ds.Clear()
        da.Fill(ds, "pan")
        CrystalReport.Database.Tables(0).SetDataSource(ds)
        FrmCrystalReport.CRV1.ReportSource = CrystalReport
        FrmCrystalReport.Show()

اسم التقرير pan من جدول pan كذلك

وفي الmodule وضعت

Public con As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source=(local);Initial Catalog=library;Integrated Security=SSPI;")

اسم قاعدة البيانات library