تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] استفسار عن دالة لحساب الارقام المتشابهة
#1
سلام عليكم اخواني

كيف يمكن حساب الارقام المتشابهة في الجدول
مثلا قاعدة بيانات وفيها عمود بارقام مختلفة واريد حساب عدد كم مرة فيها 99 وكم مرة فيها مثلا 100 وكم عدد 14 وهكذا
الرد
تم الشكر بواسطة: خالد20
#2
PHP كود :
SELECT col1COUNT(col1FROM tbl GROUP BY col1 
الرد
تم الشكر بواسطة: خالد20
#3
وش يعني ؟ كيف رح يجيب عدد ارقام من داتا كرد فيو او من قاعدة البيانات وعرضها بتكست او ليبل
الرد
تم الشكر بواسطة: خالد20
#4
وعليكم السلام
قم بانشاء داتا جريد فيو ولنسمه 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
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 00963951283515
الرد
تم الشكر بواسطة: خالد20 , ماشي , ماشي
#5
(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

المشكلة الان كيف احسب العدد المفروز ؟  Sad
الرد
تم الشكر بواسطة:
#6
انا اسف لا افهم معنى كلامك انك لا تحتاج CellClick
الكود انا عملته في حدث CellClick ولكن انت تستطيع ان تضعه مثلا في زر
والكود انا عملته بناء على ما فهمته من كلامك في مشاركتك الاولى وهو يحسب اي شيء مكرر سواء كان رقم او نص او حتى فراغ
اذا ممكن اشرح بالتفصيل مالذي تريده بالضبط
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 00963951283515
الرد
تم الشكر بواسطة: خالد20
#7
اها مشكور فعلا ضبط فهمت الفكرة
العملته انت ياخذ من خلية واحدة انا فهمت عمله ورح اغير بعد بيه
مشكور اخي الغالي
الرد
تم الشكر بواسطة: ابو انس
#8
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 
الرد
تم الشكر بواسطة: ابو انس


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] الارقام العربية في نسخة كوريل 2021 ونسخة 2020 wisam abduljaleel algburi 2 201 23-09-21, 10:56 AM
آخر رد: ابراهيم ايبو
  [VB.NET] السلام عليكم عندي استفسار بخصوص الكلاسات AhmedRamadan 3 372 18-09-21, 08:02 PM
آخر رد: العطر الرايق
  استفسار بخصوص فيجوال ستوديو 2013 AhmedRamadan 3 249 17-09-21, 09:02 PM
آخر رد: العطر الرايق
  [VB.NET] استفسار بخصوص التقارير في .net Core 5 mrfenix93 1 186 17-09-21, 08:17 PM
آخر رد: asemshahen5
  استفسار بخصوص اختصار اسم الصنف في شاشة المبيعات ahmedbezia 4 266 17-09-21, 02:53 AM
آخر رد: ahmedbezia
Exclamation استفسار بخصوص مشروع عمل ختمة قرآنية بتوزيع الصفحات (لأصحاب الصدقات الجارية) elsayedhasan 10 772 11-09-21, 07:01 PM
آخر رد: dalas
  استفسار بخصوص اخذ نسخه احتياطيه(تم الحل)مشكور اخوانى (waw والاخ asemshahen5) خالد كامل1 18 1,046 07-09-21, 09:45 PM
آخر رد: waw
  [VB.NET] استفسار Nani 4 540 23-08-21, 06:40 PM
آخر رد: Nani
  [VB.NET] استفسار محمد صالح احمد 1 275 16-08-21, 09:07 PM
آخر رد: asemshahen5
  تحويل الارقام الي حروف محمد بوقزاحة 7 5,794 12-08-21, 09:03 AM
آخر رد: Jamil Alanesi

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


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