تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طباعة السجلات المحددة في الداتا قريد
#1
السلام عليكم ورحمة الله وبركاته

كيف يمكنني طباعة السجلات المختارة من الداتا قريد فقط دون بقية السجلات التي لم يتم تحديدها
الرد }}}}
تم الشكر بواسطة:
#2

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

هذه طريقتين تنشئ لك جملة استعلام جاهزة، ما عليك إلا استخدامها بطريقتك

الأولى: لو كنت تحدد الأسطر عن طريق تحديدها بالماوس
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click

    MsgBox
(SqlDataGridViewSelections)

End Sub

Public Function SqlDataGridViewSelections() As String
    
' تجهيز الجزء الأول من جملة الاستعلام '
    
Dim sqlString As String " SELECT * FROM [table1] "

    ' تجميع الأسطر عن تحديدها بالماوس '
    
Dim w As New List(Of String)
    For 
Each r As DataGridViewRow In Me.DataGridView1.SelectedRows
        w
.Add(" ([ID] = " r.Cells("id").Value ") ")
    
Next

    
' تجميع بقية جملة الاستعلام '
    
sqlString &= " WHERE " Join(w.ToArray" OR ") & " ORDER BY [ID] "

    
If w.Count 0 Then Return sqlString

End 
Function 

الثانية: لو كنت تحدد الأسطر عن طريق عمود يكون تشيك بوكس
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click

    MsgBox
(SqlDataGridViewChecked)

End Sub

Public Function SqlDataGridViewChecked() As String

    
' تجهيز الجزء الأول من جملة الاستعلام '
    
Dim sqlString As String " SELECT * FROM [table1] "

    ' تجميع الأسطر عن طريق تشيك بوكس '
    
Dim w As New List(Of String)
    For 
Each r As DataGridViewRow In Me.DataGridView1.Rows
        
If r.Cells(0).Value True Then w.Add(" ([ID] = " r.Cells("id").Value ") ")
    
Next

    
' تجميع بقية جملة الاستعلام '
    
sqlString &= " WHERE  " Join(w.ToArray" OR ") & " ORDER BY [ID] "

    
If w.Count 0 Then Return sqlString

End 
Function 

الرد }}}}
تم الشكر بواسطة: aftfm , nabil1982
#3
ممكن مثال حيث ان الموضوع مفيد وهام للجميع
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود طباعة فاتورة مبيعات على طابعة EPSON LQ-300+ /II ESC/P 2 سيد درويش 2 2,725 27-11-16, 12:14 PM
آخر رد: hglogtd
  [Acces2007] طباعة التقرير في صفحتين محمد خلف زكي 2 169 12-09-16, 12:25 AM
آخر رد: adel2012
  طباعة السجل الحالي علي كعبي 19 513 23-06-16, 02:11 AM
آخر رد: علي كعبي
  [سؤال] كيف يمكننى طباعة كل الفواتير مصممه بالكريستال ريبورت وvb.net? محمود بكرى 4 302 21-06-16, 11:46 PM
آخر رد: محمود بكرى
  طباعة التقرير من جدولين aftfm 19 480 09-06-16, 03:20 AM
آخر رد: حريف برمجة
  [سؤال] ارجو المساعدة رسالة خطاء عند طباعة التقرير من كريستال ريبورت 13 ahmed saleh 2 267 18-05-16, 03:52 AM
آخر رد: abdhassan
  طباعة BictureBox aftfm 0 373 21-09-15, 10:01 AM
آخر رد: aftfm
  [سؤال] طريقة طباعة تقرير ReportViewer مباشرة عبد الله 4 1,875 15-09-15, 01:56 AM
آخر رد: الطالب
  [VB.NET] سؤال بخصوص داتا قريد فيو theghost 8 642 30-08-15, 02:03 PM
آخر رد: theghost
Lightbulb [VB.NET] طباعة تقرير عن طريق تمرير البيانات من قاعدة بيانات مبرمج بلا حدود 35 4,216 28-08-15, 03:37 PM
آخر رد: مبرمج بلا حدود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم