تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعدة في كود مقارنة عامود داخل الداتا جريد فيو
#1
السلام عليكم ورحمه الله وبركاته
ارجوا المساعدة في كود يبحث لي البيانات المكررة في عامود دخل DataGridView ويضعها داخل DataGridView اخري بكامل البيانات
مثال للتوضيح
عندي DataGridView تحتوي على الاسم والعمر والعنوان
اريد كود يبحث في العمر ويعرض لي كل الاسماء التى يكون اعمارهم واحد ويعرضها في DataGridView اخري
وشكرا لكم
الرد }}}
تم الشكر بواسطة:
#2
جرب هذا 

PHP كود :
Public Class Form1
    
' زر البحث
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 
العمر الذي تريد البحث عنه
        Dim searchAge 
As Integer Integer.Parse(TextBox1.Text)

 
       ' إنشاء DataTable جديد لعرض النتائج
        Dim resultsTable As New DataTable()
        resultsTable.Columns.Add("Name")
        resultsTable.Columns.Add("Age")
        resultsTable.Columns.Add("Address")

        ' 
البحث في DataGridView1
        For Each row 
As DataGridViewRow In DataGridView1.Rows
            If Not row
.IsNewRow Then
                Dim age 
As Integer Integer.Parse(row.Cells("Age").Value.ToString())
 
               If age searchAge Then
                    resultsTable
.Rows.Add(row.Cells("Name").Valueagerow.Cells("Address").Value)
 
               End If
 
           End If
 
       Next

        
' عرض النتائج في DataGridView2
        DataGridView2.DataSource = resultsTable
    End Sub
End Class 
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}
تم الشكر بواسطة:
#3
شكرا اخوي تركي نفس المطلوب بس لو ممكن ابغي يظهر لي العمر المكرر بدون ما ادخل العمر في التكتس بوكس مع الشكر والتقدير لكم
الرد }}}
تم الشكر بواسطة:
#4
ابحث بكود استعلام من نفس مصدر البيانات هذا اسهل شيء.
select * from table where age=30
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:
#5
(08-08-24, 07:52 PM)justforit كتب : ابحث بكود استعلام من نفس مصدر البيانات هذا اسهل شيء.
select * from table where age=30

شكرا على مرورك الكريم بس انا ما ابغي ابحث عن قيمة يحددها المستخدم
ما اريده هو عندما يقوم المستخدم الضغط علي زر الاعمار المكررة يظهر لي كل بيانات الاشخاص التي اعمارهم واحد وشكرا
الرد }}}
تم الشكر بواسطة:
#6
(08-08-24, 10:16 PM)alachk كتب :
(08-08-24, 07:52 PM)justforit كتب : ابحث بكود استعلام من نفس مصدر البيانات هذا اسهل شيء.
select * from table where age=30

شكرا على مرورك الكريم بس انا ما ابغي ابحث عن قيمة يحددها المستخدم
ما اريده هو عندما يقوم المستخدم الضغط علي زر الاعمار المكررة يظهر لي كل بيانات الاشخاص التي اعمارهم واحد وشكرا

عندك مثال تعمل عليه الان؟
لو لديك الافضل ترفع المثال او على الاقل ملف القاعدة لتجهيز مثال.
لافترض الفكرة هكذا:
احمد=20
سعد=30
علي 35
حسب الفكرة لن يتم جلب ايا من هؤلاء لان اعمارهم مختلفة......هل هذا المطلوب؟
بينما لو البيانات هكذا:
احمد=25
سعد=25
علي=35
سيتم جلب احمد و سعد لكون عمرهم واحد
هل هذه هي الفكرة ؟

هذا كلاس الفورم عدل عليه ليناسب ماعندك:
PHP كود :
Public Class Form1
    Dim str 
As String "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
 
   Dim con As New OleDb.OleDbConnection(str)
 
   Dim sql As String "select * from tb"
 
   Dim da As New OleDb.OleDbDataAdapter(sqlcon)
 
   Dim dt As New DataTable
    Sub gd
()
 
       dt.Clear()
 
       da.Fill(dt)
 
       dg.DataSource dt
    End Sub
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        gd
()
 
   End Sub
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        For Each row 
As DataGridViewRow In dg.Rows
            If dt
.Select("count(age)>1 and age=" Val(row.Cells("age").Value)).Count 1 Then
                dg2
.Rows.Add(row.Cells(0).Valuerow.Cells(1).Valuerow.Cells(2).Value)
 
           End If
 
       Next
    End Sub
End 
Class 
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: alachk
#7
(09-08-24, 12:44 AM)justforit كتب :
(08-08-24, 10:16 PM)alachk كتب :
(08-08-24, 07:52 PM)justforit كتب : ابحث بكود استعلام من نفس مصدر البيانات هذا اسهل شيء.
select * from table where age=30

شكرا على مرورك الكريم بس انا ما ابغي ابحث عن قيمة يحددها المستخدم
ما اريده هو عندما يقوم المستخدم الضغط علي زر الاعمار المكررة يظهر لي كل بيانات الاشخاص التي اعمارهم واحد وشكرا

عندك مثال تعمل عليه الان؟
لو لديك الافضل ترفع المثال او على الاقل ملف القاعدة لتجهيز مثال.
لافترض الفكرة هكذا:
احمد=20
سعد=30
علي 35
حسب الفكرة لن يتم جلب ايا من هؤلاء لان اعمارهم مختلفة......هل هذا المطلوب؟
بينما لو البيانات هكذا:
احمد=25
سعد=25
علي=35
سيتم جلب احمد و سعد لكون عمرهم واحد
هل هذه هي الفكرة ؟

هذا كلاس الفورم عدل عليه ليناسب ماعندك:
PHP كود :
Public Class Form1
    Dim str 
As String "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
 
   Dim con As New OleDb.OleDbConnection(str)
 
   Dim sql As String "select * from tb"
 
   Dim da As New OleDb.OleDbDataAdapter(sqlcon)
 
   Dim dt As New DataTable
    Sub gd
()
 
       dt.Clear()
 
       da.Fill(dt)
 
       dg.DataSource dt
    End Sub
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        gd
()
 
   End Sub
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        For Each row 
As DataGridViewRow In dg.Rows
            If dt
.Select("count(age)>1 and age=" Val(row.Cells("age").Value)).Count 1 Then
                dg2
.Rows.Add(row.Cells(0).Valuerow.Cells(1).Valuerow.Cells(2).Value)
 
           End If
 
       Next
    End Sub
End 
Class 

نعم اخي هذه هي الفكرة بالضبط
سوى كان الكود جلب البيات من قاعدة البيانات او كود يبحث في الداتا جريد فيو ويظهر البيانات المتشابهة في داتا جريد فيو وشكرا لك
الرد }}}
تم الشكر بواسطة:
#8
عدلت على مشاركتي السابقة هل اطلعت عليها؟
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: alachk
#9
(09-08-24, 07:08 PM)justforit كتب : عدلت على مشاركتي السابقة هل اطلعت عليها؟

نعم اطلعت عليها كود شغال تمام وشكرا لك ما قصرت الله يجعلها في ميزان حسنات يارب
بس عندي ملاحظة عندما طبقت الكود على عامود يحتوي خلايا في ارقام وبعض الخلايا تحتوي على نص تظهر لي رسالة خطاء ارفقة صورة الخطاء
هل ممكن تعديل الكود بحث يبحث عن الارقام المتكررة دون النظر في الحلايا التي تحتوي على نص


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#10
جرب تعدل هذا السطر
PHP كود :
           If dt.Select("count(age)>1 and age like '" row.Cells("age").Value.ToString "'").Count 1 Then 
الرد }}}
تم الشكر بواسطة: justforit


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة توسيط النص داخل اداة comboBox سمير1404 7 3,854 24-08-25, 01:01 PM
آخر رد: أبو خالد الشكري
  ارجو تعديل الكود بواستطة الاجراء المخزن new_programer 3 673 03-04-25, 02:44 PM
آخر رد: princelovelorn
  ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال new_programer 0 619 05-02-25, 01:51 AM
آخر رد: new_programer
  ارجو تقيم الكود المرفق - جلب اعلي رقم لتسلسل نصي للباركود new_programer 4 601 30-01-25, 08:26 AM
آخر رد: new_programer
  ابغي ارجع قيمة الداتا قراد فيو من جديد عندي مشكله khalidalwdi 3 625 05-12-24, 02:21 AM
آخر رد: aljzazy
  استدعاء من جدولين داخل اداه FlowLayoutPanel برجاء الافادة للضرورة جداً modymody300894 7 626 15-11-24, 11:02 AM
آخر رد: modymody300894
  اريد جلب عدد محدد من السجلات من قاعدة بيانات اكسس الى الداتا قراد فيو يوجد مثال khalidalwdi 2 665 12-11-24, 12:19 PM
آخر رد: khalidalwdi
  كتابه عدد معين من الارقام داخل تيكست بوكس modymody300894 3 550 07-11-24, 09:15 PM
آخر رد: modymody300894
  ترتيب شجره الحسابات داخل الجريد فيو modymody300894 2 407 31-10-24, 12:27 PM
آخر رد: modymody300894
Exclamation [VB.NET] ممكن عمل كود لحفظ المكتوب داخل اداة TextBox الورد الصناعي 9 783 17-10-24, 11:43 PM
آخر رد: salamandal

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


يقوم بقرائة الموضوع: