[essawq]

السلام عليكم
مشكور اخي vbnet
بارك الله فيك زبط تمام 100 % 100

لكن اخي التقارير عندي بالبحث وكانت تطلب اليوزر والباس وتم حلها بفضل الله ثم فظلكم

عندى ايظا زر طباعة كل البيانات يعني بدون بحث لا زالت تطلب يوزر نيم وباسوورد

هل من الممكن مساعتي في ذالك بارك الله فيكم

[Omar Mekkawy]

أنا وقعت في هالمشكلة منذ عدة أيام وبحمد الله حللتها بالكامل
المشكلة ليس لها علاقة بأكواد .

بالصدفة رأيت فيديو للأستاذ حماده عماره " إبن النيل " يوضح حل المشكلة
المشكلة تكمن في إنك وضعت جدول بالتقرير ليس له علاقة ببيانات التقرير أو ليس له علاقة بالبيانات القادمة من قاعدة البيانات :
حاول تصلح المشكلة دي وإن شاء الله تحل معك .

[Omar Mekkawy]

يعني اللي أقصده ان الجدول اللي إنت ضفته في التقرير ليس له علاقة بالبيانات القادمة من قاعدة البيانات .
ويجب ان يتم ربط التقرير بجدول واحد فقط " ويكون له علاقة بالبيانات القادمة "

الكود اللي بأستخدمه :

كود :

Imports System.Data.OleDb

Public Class generala

    Dim constr As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Data\MyData.mdb;user id=admin;jet oledb:database password=modern2014"
    Dim con As New OleDbConnection(constr)
    Dim dataset1 As New DataSet
    Dim ReportPath As String = Application.StartupPath & "\crystal reports\generalareport.rpt"
    Dim sqlstr As String = " SELECT * FROM registration_a "

    Private Sub notrega_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DataAdapter1 As New OleDbDataAdapter(sqlstr, con)
        DataAdapter1.Fill(dataset1, "registration_a")
        reportDocument1.Load(ReportPath)
        reportDocument1.SetDataSource(dataset1.Tables("registration_a"))
        CrystalReportViewer1.ReportSource = reportDocument1

        
    End Sub
End Class

مع إضافة أداة ReportDocument على الفورم
وستظهر لك النافذة التالية إختر كما هو موضح :

[essawq]

إقتباس :"لا زالت تطلب يوزر نيم وباسوورد"

.....
هل من الممكن أرفاق المشروع لمعرفة المشكلة بشكل أسرع...
.....

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

بالنسبة لي

إقتباس :عندى ايظا زر طباعة كل البيانات يعني بدون بحث لا زالت تطلب يوزر نيم وباسوورد

تم حلها بوضع الكود التالي بحدث التحميل لود

كود :

Dim sql As String = "Select * from cardelivery "
        Dim comm As New SqlCommand(sql, Con)
        Dim da As New SqlDataAdapter(comm)
        Dim dt As New DataTable
        da.Fill(dt)

        ' هنا نهيئ التقرير لربطه بالداتاتيبل
        Dim rpt As New CrystalReport2
        rpt.SetDataSource(dt)

        ' هنا نقوم بربط عارض التقارير بالتقرير المعبئ بالبيانات
        CrystalReportViewer1.ReportSource = rpt

كل الاحترام والتقدير

[essawq]

إقتباس :أنا وقعت في هالمشكلة منذ عدة أيام وبحمد الله حللتها بالكامل
المشكلة ليس لها علاقة بأكواد .

بالصدفة رأيت فيديو للأستاذ حماده عماره " إبن النيل " يوضح حل المشكلة
المشكلة تكمن في إنك وضعت جدول بالتقرير ليس له علاقة ببيانات التقرير أو ليس له علاقة بالبيانات القادمة من قاعدة البيانات :
حاول تصلح المشكلة دي وإن شاء الله تحل معك .

إقتباس :يعني اللي أقصده ان الجدول اللي إنت ضفته في التقرير ليس له علاقة بالبيانات القادمة من قاعدة البيانات .
ويجب ان يتم ربط التقرير بجدول واحد فقط " ويكون له علاقة بالبيانات القادمة "

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

[dbahl]

1-

ادخل على صفحة التقرير ،، واعمل الاتي ::::
انقر على بالزر الايمن على databasefiled
ثم set datasource location
من خلال النافذه فى الاسفل الخاصة repace with حدد مسار قاعدة البيانات .
ثم حدد المسار الجديد بالنقر عليه وبعدها مباشرتاً انقر ايضاً على المسار القديم فى الاعلي الخاص currunt data source
ثم انقر على الامر Update
close

2-

انقر على بالزر الايمن على databasefiled

وانقر على الامر verify database

اذا نجحت هذه المحاولة افعلها مع جميع التقارير .