+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : معرفة عدد السجلات التي تتكرر فيها قيم معينة (/showthread.php?tid=29738)
معرفة عدد السجلات التي تتكرر فيها قيم معينة - جيولوجي مبتدئ - 02-06-19
السلام عليكم ورحمة الله وبركاته
أريد مساعدتكم في طريقة معرفة عدد السجلات التي تحتوي على قيم معينة توجد في عمود مخصص
يعني لو مثلا عند داتاقريد فيو وأريد أن أعرف مثلا كم مرة تتكرر العدد 10 ومعرفة كم تكرر الرقم 9 ....... وهكذا
شاكرا لكم حسن تعاونكم
رمضان مبارك
RE: معرفة عدد السجلات التي تتكرر فيها قيم معينة - ابراهيم ايبو - 02-06-19
السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم هذا مثال فيه عدد من السجلات وفيه حقل رقمي
عند البحث عن رقم سيعطيك عدد السجلات التي تحتوي على ذلك الرقم
RE: معرفة عدد السجلات التي تتكرر فيها قيم معينة - عبد العزيز البسكري - 03-06-19
أخي إبراهيم .. كيف سيكون شكل الكود لو الحقل الذي نبحث فيه نصي و ليس رقمي ..
جربت بهذا التغيير بالكود و بنوعية الحقل بالجدول و لم تضبط الحكاية
كود :
Dim Query As String = "select Count(*) From Person Where CV_Numer='" & Txt_Search.Text & "'"تحياتي
RE: معرفة عدد السجلات التي تتكرر فيها قيم معينة - ابراهيم ايبو - 03-06-19
السلام عليكم اخي عبد العزيز
اليك هذا الكود يبحث داخل حقل الاسم
كود :
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
'-----------Public Sub SelectWhere-----------
Public Sub SelectWhere_Person()
Try
dt.Clear()
da = New oledbDataAdapter("select Person.CVID,Person.CVName,Person.CV_Numer from Person Where CVName like '%" & Txt_Search.Text & "%'", con)
da.Fill(dt)
dgv_table.DataSource = dt
Lbl_count.Text = 0
For i As Integer = 0 To dgv_table.Rows.Count - 1
If dgv_table.Rows(i).Cells("CVName").Value.ToString().Trim() = Txt_Search.Text.Trim() Then
Lbl_count.Text += 1
End If
Next
Catch ex As Exception
End Try
End Subكود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SelectWhere_Person()
End Sub