تقارير الكريستال ريبورت مع Dataset

بدأه ابو رفيق في 3 أبريل 2013 · 5 رد · 1,085 مشاهدة · في تصميم وبرمجة التقارير

#13 أبريل 2013 في 11:33 صاحب الموضوع

إخواني السلام عليكم

استخدمت الكود التالي لطباعة تقرير كريستال ريبورت من DataSet وقاعدة البيانات SqlServer2008 ونظام الدخول Windows Aouthen ويظهر شاشة في بداية تحميل التقرير يطلب اسم المستخدم وكلمة المرور مع أني لم أعمل كلمة مرور لقاعدة البيانات

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

أرجوا توضح السبب ولكم جزيل الشكر

Dim rpt As New CrystalReport1() 'The report you created.
Dim myConnection As SqlConnection
Dim MyCommand As New SqlCommand()
Dim myDA As New SqlDataAdapter()
Dim myDS As New DataSet1() 'The DataSet you created.
Try
myConnection = New SqlConnection("Data Source=localhost;Integrated 
Security=SSPI;" & _
"Initial Catalog=Accounting;")
MyCommand.Connection = myConnection
MyCommand.CommandText = "SELECT * FROM a_account"
MyCommand.CommandType = CommandType.Text
myDA.SelectCommand = MyCommand
myDA.Fill(myDS, "a_account")
rpt.SetDataSource(myDS)
CrystalReportViewer1.ReportSource = rpt
Catch Excep As Exception
End Try

pos.rar

تم تعديل هذه المشاركة بواسطة ابو رفيق في 3 أبريل 2013 في 11:36

:) :) :) شكرا لكل من علمني حرفا :) :) :)

#23 أبريل 2013 في 11:54

أخي الفاضل

أبو رفيق

ارجو الاطلاع علي هذه الروابط بعناية و ان شاء الله تجد بداخلها طلبك

/index.php?showtopic=214202&st=0&p=1060820&fromsearch=1entry1060820

/index.php?showtopic=198882&st=0&gopid=1317792entry1317792

/index.php?showtopic=122916&st=0&p=618234&fromsearch=1entry618234

#34 أبريل 2013 في 00:16

أخي محمد جزاك الله خير على الروابط وإن شاء الله جاري دراستها وإخبارك بالنتيجة

:) :) :) شكرا لكل من علمني حرفا :) :) :)

#44 أبريل 2013 في 09:30

استفسار أستاذ محمد

أنا لاحظت أثناء تصميم الريبورت إذا كان حقول التقرير من مصدر البيانات من الجدول مباشرة يقوم بالعرض بدون طلب لشاشة معلومات الدخول والعكس إذا كان مصدر الحقول dataset يطلب الشاشة

والكود التالي كما يلي ويظهر رسالة خطأ

Try
            '****************************************************
            Dim crpt As New CrystalReport1() 'The report you created.
            Dim MyCommand As New SqlCommand()
            Dim myDA As New SqlDataAdapter()
            Dim myDS As New DataSet1() 'The DataSet you created.
            If Conn_SqL.State = ConnectionState.Open Then Conn_SqL.Close()
            Conn_SqL.Open()
            MyCommand.Connection = Conn_SqL
            MyCommand.CommandText = "SELECT * FROM A_sub_Journal"
            MyCommand.CommandType = CommandType.Text
            myDA.SelectCommand = MyCommand
            myDA.Fill(myDS, "A_sub_Journal")
            crpt.SetDataSource(myDS)
            '*****************************************************
        Dim MTLIS As New CrystalDecisions.Shared.TableLogOnInfos
        Dim MTLI As New CrystalDecisions.Shared.TableLogOnInfo
        Dim MCI As New CrystalDecisions.Shared.ConnectionInfo
        Dim MPFS As New CrystalDecisions.Shared.ParameterFields
        With MCI
            .ServerName = "SERVER"
            .DatabaseName = "Accounting"
            .UserID = "sa"
            .Password = ""
        End With
        MTLI.ConnectionInfo = MCI
        MTLIS.Add(MTLI)
        CrystalReportViewer1.LogOnInfo = MTLIS
            CrystalReportViewer1.ReportSource = crpt
        CrystalReportViewer1.Zoom(150)
        Catch ex As Exception

        End Try