الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعدة فى انشاء تقرير من 3 جداول

بدأه it.magdy في 13 فبراير 2013 · 6 رد · 629 مشاهدة · في تصميم وبرمجة التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

 

مساعدة فى انشاء تقرير من ثلاثة جداول على الااكسس

 

الجدول الاول 

 

ID,A_ID,a1,a2,a3,a4

الجدول الثانى

ID,A_ID,b1,b2,b3,b4
 
الجدول الثالث
ID,A_ID,c1,c2,c3,c4
 
وكود الطباعه المستخدم عندى فى طباعه جدول واحد بشرط A_ID
 
هو
 
 
 
 If DataGridView1.Rows.Count = 0 Then Beep() : Exit Sub


        Try

            Dim DataAdapter As New OleDbDataAdapter("SELECT ID,A_ID,a1,a2,a3,a4 from Tab2  WHERE a_ID LIKE '" & Label1.Text.Trim & "'", con)


            con.Open()
            DataSet2.Clear()
            DataAdapter.Fill(DataSet2, "Tab2")
            con.Close()


            FormProgram.TSPB1.Visible = True
            FormProgram.TSPB1.Width = Math.Round(168 * Me.Width) / 812
            FormProgram.TSSL1.Visible = False

            Dim rpt As New CrystalReport4 : FormProgram.TSPB1.Value = 10

            rpt.SetDataSource(DataSet2) : FormProgram.TSPB1.Value = 50

            FormSalesPrint1.CrystalReportViewer4.ReportSource = rpt : FormProgram.TSPB1.Value = 70
 'كلمة سر قاعدة البيانات 
            FormSalesPrint1.CrystalReportViewer4.LogOnInfo(0).ConnectionInfo.Password = "12345" : FormProgram.TSPB1.Value = 100

            Application.DoEvents()



            FormProgram.TSPB1.Visible = False
            FormProgram.TSPB1.Value = 0
            FormProgram.TSSL1.Visible = True


            FormSalesPrint1.ShowDialog()

        Catch ex As Exception


            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            con.Close()
            FormProgram.TSPB1.Visible = False
            FormProgram.TSPB1.Value = 0
            FormProgram.TSSL1.Visible = True


        End Try
 
 
الرجاء  المساعدة فى تعديل الكود ليتناسب فى طباعه الثلاثة جداول بشرط A_ID

      
      

      
    

  

    
    

      
#2
        
        

      
قد يفي هذا الكود بالغرض
If DataGridView1.Rows.Count = 0 Then Beep() : Exit Sub

        Try
            Dim DataAdapter As New OleDbDataAdapter("SELECT * from tab1 inner join tab2 on tab1.A_ID=tab2.A_ID inner join tab3 on tab1.A_ID=tab3.A_ID  WHERE Tab1.a_ID LIKE '" & Label1.Text.Trim & "'", con)
            DataSet2.Clear()
            DataAdapter.Fill(DataSet2, "rep")

            Dim rpt As New CrystalReport4 

            rpt.SetDataSource(DataSet2)

            FormSalesPrint1.CrystalReportViewer4.ReportSource = rpt 
			'كلمة سر قاعدة البيانات 
            FormSalesPrint1.CrystalReportViewer4.LogOnInfo(0).ConnectionInfo.Password = "12345"
			
            FormSalesPrint1.ShowDialog()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
لا تستخدم FormProgram.TSPB1.Value يبطء العملية ولا يفيد

      
      

      
سبحانه الله وبحمده سبحانه الله العظيم
 
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");
 
Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet

 
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere 
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE

    

  

    
    

      
#3
        
        

      
KARIMSOFT كتب:
قد يفي هذا الكود بالغرض
If DataGridView1.Rows.Count = 0 Then Beep() : Exit Sub

        Try
            Dim DataAdapter As New OleDbDataAdapter("SELECT * from tab1 inner join tab2 on tab1.A_ID=tab2.A_ID inner join tab3 on tab1.A_ID=tab3.A_ID  WHERE Tab1.a_ID LIKE '" & Label1.Text.Trim & "'", con)
            DataSet2.Clear()
            DataAdapter.Fill(DataSet2, "rep")

            Dim rpt As New CrystalReport4 

            rpt.SetDataSource(DataSet2)

            FormSalesPrint1.CrystalReportViewer4.ReportSource = rpt 
			'كلمة سر قاعدة البيانات 
            FormSalesPrint1.CrystalReportViewer4.LogOnInfo(0).ConnectionInfo.Password = "12345"
			
            FormSalesPrint1.ShowDialog()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
لا تستخدم FormProgram.TSPB1.Value يبطء العملية ولا يفيد
 
 
 
بارك الله فيك اخى الكريم وجزاك الله خيرا على المساعدة لكن لم يفلح معى هذا الكود 

      
      

      
    

  

    
    

      
#4
        
        

      
ممكن ترفق المشروع

      
      

      
سبحانه الله وبحمده سبحانه الله العظيم
 
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");
 
Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet

 
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere 
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE

    

  

    
    

      
#5
        
        

      
اليك اخى الكريم 

      
تم تعديل هذه المشاركة بواسطة it.magdy في 15 فبراير 2013 في 18:19

      

      
    

  

    
    

      
#6
        
        

      
مرفق صور للخطوات واالتقرير وقاعدة البيانات وبعض الروابط
http://www.fontstuff.com/access/acctut01.htm
http://office.microsoft.com/en-us/access-help/using-parameters-with-queries-and-reports-HA001117077.aspx
step.rar

      
      

      
سبحانه الله وبحمده سبحانه الله العظيم
 
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");
 
Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet

 
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere 
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE

    

  

    
    

      
#7
        
        

      
بارك الله فيك اخى الكريم وجارى الاطلاع واعلامك بالنتيجة :wacko:

      
      

      
    

  

    
    
    
 مواضيع مشابهة