مشكلة في الcrystal report مع ال سي شارب

أذكر أن هذه المشكلة كانت ظهرت لى منذ فترة طويلة و لا أذكر صراحتا كيف قمت بحلها

و لكن الأمر كان له علاقة بالأسلوب الذى إتبعتها لتحضير الDataSource

أنا لاأذكر أى شئ عن الكريستال الأن لكونى لم أستخدمه غير مرة واحدة منذ أكثر من عام !

السلام عليكم

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

فعليك بوضع كلمة المرور واسم المستخدم في الكريستال ولكني لااعرف هذة الطريقة

او تقوم بعمل داتا سيت يوجد بها جدول التقرير وتكون غير متصلة بقاعدة البيانات وتربطها بالكريستال ريبورت ثم تفوم بعد ذلك بملاء الداتا سيت عن طريق جملة السيكوال

والله الموفق

ضع هذا الكود قبل فتح ال Report

 ReportDocument objReport = new ReportDocument();
            TableLogOnInfo myLoginInfo;



                objReport.Load("Report Path  + File name");
                foreach (Table myTable in objReport.Database.Tables)
                {
                    myLoginInfo = myTable.LogOnInfo;
                    myLoginInfo.ConnectionInfo.DatabaseName = "dbname";
                    myLoginInfo.ConnectionInfo.ServerName = "serv_name";
                    myLoginInfo.ConnectionInfo.UserID = "sa";
                    myLoginInfo.ConnectionInfo.Password = "sa";
                    myLoginInfo.ConnectionInfo.IntegratedSecurity = false;

                    //myLoginInfo.ConnectionInfo.IntegratedSecurity = true;
                    myTable.ApplyLogOnInfo(myLoginInfo);

المشاركة مكررة من نفس العضو في قسم التقارير وتم الاجابة عليها هنا

/index.php?showtopic=214069

السلام عليكم

قمت باخد هذا الكود من الرابط الموجود في الموضوع

        Try
            Dim con As New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source = \\xp\SharedDocs\ahmad.mdb; jet oledb:database password=123wer")
            Dim crtableLogoninfos As New TableLogOnInfos()
            Dim crtableLogoninfo As New TableLogOnInfo()
            Dim crConnectionInfo As New ConnectionInfo()
            Dim CrTables As Tables
            Dim CrTable As Table
            Dim crReportDocument As New Crpt_All()
            With crConnectionInfo
                .DatabaseName = "\\xp\shareddocs\ahmad.mdb"
                .Password = "123wer"
            End With
            CrTables = crReportDocument.Database.Tables
            For Each CrTable In CrTables
                crtableLogoninfo = CrTable.LogOnInfo
                crtableLogoninfo.ConnectionInfo = crConnectionInfo
                CrTable.ApplyLogOnInfo(crtableLogoninfo)
            Next
            CrystalReportViewer1.ReportSource = crReportDocument
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.CrystalReportViewer1.RefreshReport()

ولكن ظهر لي خطأ في هذا السطر ..

       Dim crReportDocument As New Crpt_All()

ارجوا توضيح المشكلة ,, مع العلم اني قمت باستدعاء مجالات الاسماء التالية ..

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data.OleDb