[نيمو]

سلام عليكم اخواني

كيف يمكن حساب الارقام المتشابهة في الجدول
مثلا قاعدة بيانات وفيها عمود بارقام مختلفة واريد حساب عدد كم مرة فيها 99 وكم مرة فيها مثلا 100 وكم عدد 14 وهكذا

[ماشي]

PHP كود :

SELECT col1, COUNT(col1) FROM tbl GROUP BY col1 


[نيمو]

وش يعني ؟ كيف رح يجيب عدد ارقام من داتا كرد فيو او من قاعدة البيانات وعرضها بتكست او ليبل

[ابو انس]

وعليكم السلام
قم بانشاء داتا جريد فيو ولنسمه dgv قم باضافة عمود واحد على الاقل ولنسمه مثلا num
قم بانشاء lable عدد 2

كود :

   Private Sub dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellClick
       Dim a As Integer = dgv.CurrentRow.Index
       Label1.Text = dgv.Rows(a).Cells("num").Value

       Dim rep As Integer
       For i As Integer = 0 To dgv.Rows.Count - 1
           If dgv.Rows(i).Cells("num").Value = Label1.Text Then
               rep += 1
           End If
       Next
       Label2.Text = rep
   End Sub

[نيمو]

(27-09-21, 03:46 PM)ابو انس كتب : وعليكم السلام
قم بانشاء داتا جريد فيو ولنسمه dgv قم باضافة عمود واحد على الاقل ولنسمه مثلا num
قم بانشاء lable عدد 2

كود :

   Private Sub dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellClick
       Dim a As Integer = dgv.CurrentRow.Index
       Label1.Text = dgv.Rows(a).Cells("num").Value

       Dim rep As Integer
       For i As Integer = 0 To dgv.Rows.Count - 1
           If dgv.Rows(i).Cells("num").Value = Label1.Text Then
               rep += 1
           End If
       Next
       Label2.Text = rep
   End Sub

شكرا لردك لكن ما احتاج الى CellClick  , الفكرة انا اريد فرز ارقام معينة في الجدول يعني تواريخ متشابهة عملت هذا الكود

كود :

For i As Integer = 0 To DgvOne.Rows.Count - 1
           Dim str As String = DgvOne(3, DgvOne.Rows(i).Index).Value
         
           Dim Spl() As String = Split(str, "/")

           Dim Num As String = "2018"

           If Spl(2) = Num Then
               RichTextBox1.Text += Spl(2) & vbNewLine

           Else

           End If

     
 Next

المشكلة الان كيف احسب العدد المفروز ؟ 

[ابو انس]

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

[نيمو]

اها مشكور فعلا ضبط فهمت الفكرة
العملته انت ياخذ من خلية واحدة انا فهمت عمله ورح اغير بعد بيه
مشكور اخي الغالي

[ماشي]

PHP كود :

Dim cnn As New OleDbConnection ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Jet OLEDB:Database Password=")

Dim da As New OleDbDataAdapter("SELECT col1, COUNT(col1) FROM tbl GROUP BY col1", cnn)

Dim dt As DataTable
da.Fill(dt)

DataGridView1.DataSource = dt