منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(20-08-17, 12:46 PM)محمود بكرى كتب : [ -> ]

متشكر يفندم الاتصال لدي عن طريق sql server على الشبكة لا زال البحث عن حل

ايه يا جماعة مفيش حد عندو حل للمشكلة بتاعي !!

السلام عليكم و رحمة الله وبركاته
الاخ سلامات,
انا صراحة انحرمت من العمل مع Crystal report  مع اصدارة VS 2015 , مشكلة الدمج لم اجد لها حل مع الاصدارة 64؟
على اي حال على ما اذكر انك بحاجة الى اسناد الاتصال للتقرير
جرب تعدل الكود عندك لما يلي

واذا لم يعمل معك عليك بالكود الثقيل و ضبط كل الخصائص

(23-08-17, 03:40 PM)ابو ليلى كتب : [ -> ]السلام عليكم و رحمة الله وبركاته
الاخ سلامات,
انا صراحة انحرمت من العمل مع Crystal report  مع اصدارة VS 2015 , مشكلة الدمج لم اجد لها حل مع الاصدارة 64؟
على اي حال على ما اذكر انك بحاجة الى اسناد الاتصال للتقرير
جرب تعدل الكود عندك لما يلي

PHP كود :

       If Sqlconn.State = ConnectionState.Open Then
            Sqlconn.Close()
        End If
        Sqlconn.Open()
        Dim sql As String = " SELECT  * FROM Table  WHERE age " & Colog.Text.Trim & " " & (T4.Text.Trim) & " "
        Dim comm As New SqlCommand(sql, Sqlconn)
        Dim da As New SqlDataAdapter(comm)
        Dim dt As New DataTable
        da.Fill(dt)

        Dim rpt As New reportcrystal
        rpt.DataSourceConnections.Item(0).SetConnection(Servername, DatabaseName, False)
        rpt.DataSourceConnections(0).SetLogon("admin", "1234")
        rpt.SetDataSource(dt)
        Form_REPORTING.CrystalReportViewer.ReportSource = rpt
        Form_REPORTING.Show() 


واذا لم يعمل معك عليك بالكود الثقيل و ضبط كل الخصائص

PHP كود :

Dim cryRpt As New ReportDocument
        Dim crtableLogoninfos As New TableLogOnInfos
        Dim crtableLogoninfo As New TableLogOnInfo
        Dim crConnectionInfo As New ConnectionInfo
        Dim CrTables As Tables
        Dim CrTable As Table

        cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")

        With crConnectionInfo
            .ServerName = "YOUR SERVER NAME"
            .DatabaseName = "YOUR DATABASE NAME"
            .UserID = "YOUR DATABASE USERNAME"
            .Password = "YOUR DATABASE PASSWORD"
        End With

        CrTables = cryRpt.Database.Tables
        For Each CrTable In CrTables
            crtableLogoninfo = CrTable.LogOnInfo
            crtableLogoninfo.ConnectionInfo = crConnectionInfo
            CrTable.ApplyLogOnInfo(crtableLogoninfo)
        Next

        CrystalReportViewer1.ReportSource = cryRpt
        CrystalReportViewer1.Refresh() 


 
اخ ابو ليلى التقارير مدمجه والاتصال نجح في للجهاز الرئيسي لاكن الاجهزة بالشبكة نفس المشكلة !!

ما ذكره ابو ليلى صحيح وسبب اتصاله في الجهاز الرئيسي وعرض التقرير أن جميع الادوات مثبته بما فيهNative Client - QFE
ولاكن هذا لا يعفي من المشاكل والخطأ الذي وقعت فيه ( Sqlconn ) كيف تتصل بالقاعده وتقوم بتعبئة DataTable ثم تأتي لتملى التقرير بهذا rpt.SetDataSource(dt)
ثم تأتي وتقول اعرض التقرير Form_REPORTING.CrystalReportViewer.ReportSource = rpt وفق جملة الاستعلام !!!
من الطبيعي سيبحث عن الاتصال ولا يجده (لأنك متصل بالقاعده وليس التقرير )
الاعدادات اثناء البرمجة في الجهاز لا ترحل لأي جهاز بل يجب أن تضبط الاتصال لأن التقارير ومكونات Crystal report منفصلة عن اللغة وليس لها علاقة فقط اتصالات

لحل المشكلة ارفقت لك شرح موضح على نفس كودك مع الطريقة الصحيحة للأتصال ولا تنسى تثبيت SQL Server® 2012 Native Client - QFE
في اجهزة الشبكة حتى تستطيع الاتصال بشكل سليم

---

مرفق الكود

(24-08-17, 02:25 AM)الكاتب كتب : [ -> ]ما ذكره ابو ليلى صحيح وسبب اتصاله في الجهاز الرئيسي وعرض التقرير أن جميع الادوات مثبته بما فيهNative Client - QFE
ولاكن هذا لا يعفي من المشاكل والخطأ الذي وقعت فيه ( Sqlconn ) كيف تتصل بالقاعده وتقوم بتعبئة DataTable ثم تأتي لتملى التقرير بهذا rpt.SetDataSource(dt)
ثم تأتي وتقول اعرض التقرير Form_REPORTING.CrystalReportViewer.ReportSource = rpt وفق جملة الاستعلام !!!
من الطبيعي سيبحث عن الاتصال ولا يجده (لأنك متصل بالقاعده وليس التقرير )
الاعدادات اثناء البرمجة في الجهاز لا ترحل لأي جهاز بل يجب أن تضبط الاتصال لأن التقارير ومكونات Crystal report منفصلة عن اللغة وليس لها علاقة فقط اتصالات

لحل المشكلة ارفقت لك شرح موضح على نفس كودك مع الطريقة الصحيحة للأتصال ولا تنسى تثبيت SQL Server® 2012 Native Client - QFE
في اجهزة الشبكة حتى تستطيع الاتصال بشكل سليم

---

مرفق الكود

تمام مشى الحال اخي كيف اعدل 200 تقرير نفس ااخطأ !!