منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - حزمت برنامجي ويعمل تمام الى تقارير الطباعة

الصفحات : 1 2 3

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

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

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

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

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

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

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

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

كود :

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 على الفورم
وستظهر لك النافذة التالية إختر كما هو موضح :

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

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

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

بالنسبة لي

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

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

كود :

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

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

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

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

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

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

1-

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

2-

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

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

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

الصفحات : 1 2 3

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

essawq

Omar Mekkawy

Omar Mekkawy

essawq

essawq

dbahl