[dubai.eig]

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

عندي قاعدة بيانات 
فيها 
id
name


في ال name

ينضاف اسامي الاشخاص

مثلا

id "1"
name "ahmed"

id "2"
name "ahmed"

id "3"
name "ali"

id "4"
name "tark"

id "5"
name "ahmed"



الان عندنا احمد اكثر شخص تم اضافه اسمه

اريد اطلع اكثر شخص تم اضاف اسمه

جربت هذا الكود بس ما ضبط

كود :

           Dim cmd As New SQLiteCommand("SELECT COUNT(name) FROM BKDXclust order by name ", conn)
           If conn.State <> ConnectionState.Open Then conn.Open()
           Dim queryResult = cmd.ExecuteScalar()
           If IsDBNull(queryResult) Then
           Else
               rrr5 = Convert.ToInt32(cmd.ExecuteScalar())
           End If
           Return rrr5

الكود هذا يضهر رقم انا اريد اسم الشخص الاكثر اضافه في القاعده

بارك الله فيكم افيدوني وشكرا

[بدري]

هذا الكود يحضر الاسم فقط لاكثر اسم مضاف

Dim rrr5 As String
Dim cmd As New SQLiteCommand("SELECT name FROM BKDXclust GROUP BY name ORDER BY count(name) DESC ", conn)
If conn.State <> ConnectionState.Open Then conn.Open()
Dim queryResult = cmd.ExecuteScalar()
If Not IsDBNull(queryResult) Then
   rrr5 = cmd.ExecuteScalar
End If
Return rrr5

[dubai.eig]

(09-04-19, 10:07 PM)بدري كتب : هذا الكود يحضر الاسم فقط لاكثر اسم مضاف

Dim rrr5 As String
Dim cmd As New SQLiteCommand("SELECT name FROM BKDXclust GROUP BY name ORDER BY count(name) DESC ", conn)
If conn.State <> ConnectionState.Open Then conn.Open()
Dim queryResult = cmd.ExecuteScalar()
If Not IsDBNull(queryResult) Then
   rrr5 = cmd.ExecuteScalar
End If
Return rrr5

تسلم ايدك

طلع لي اسم الاكثر في القاعده البيانات

بس طلع لي هذا المسج

كود :

Conversion from string "AM70E" to type 'Integer' is not valid.'

[بدري]

انسخ الكود كامل ولا تقتطع منه

---

لانه يبدو انك ابقيت على Convert.ToInt32 وهو اصبح الان String

[dubai.eig]

(10-04-19, 12:32 AM)بدري كتب : انسخ الكود كامل ولا تقتطع منه

---

لانه يبدو انك ابقيت على Convert.ToInt32 وهو اصبح الان String

ما غيرة شي في الكود 

فقط مسحت 

كود :

Dim rrr5 As String

لان موجود في اول الملف

   




   

[بدري]

من الصوره اتضح الخطا في نوع القيمه المعاده من Function وهي As Integer والمفروض تكون As String


Private Function COUNTtop() AS String

[dubai.eig]

اعتذر منك الغلط طلع مني انا

في بدايه الكود

قمت بتغيير 

كود :

Integer

الى String

كود :

Private Function COUNTtop() As String

والحمدالله ضبط

تسلم استاذي واعتذر منك

---

(10-04-19, 12:52 AM)بدري كتب : من الصوره اتضح الخطا في نوع القيمه المعاده من Function وهي As Integer والمفروض تكون As String


Private Function COUNTtop() AS String

نعم كلامك صحيح

بارك الله فيك

---

استفسار اخير 

في حالت محتاج اضيف الاسم مع العمر

id "1"
name "ahmed"
Age "30"

شو اغير في الكود 

كود :

Dim rrr5 As String
Dim cmd As New SQLiteCommand("SELECT name,Age FROM BKDXclust GROUP BY name ORDER BY count(name) DESC ", conn)
If conn.State <> ConnectionState.Open Then conn.Open()
Dim queryResult = cmd.ExecuteScalar()
If Not IsDBNull(queryResult) Then
  rrr5 = cmd.ExecuteScalar
End If
Return rrr5

وشكرا

[بدري]

ما تقصد "مع" ؟ تحتاج توضيح 
هل تقصد اضهار العمر مع الاسم في الاسم الاكثر تسجيلا

اذا كان كذلك فلا تصلح ExecuteScalar

وتحتاج لهذا الكود
Dim nameResult As String = ""
Dim ageResult As String = ""

Private Function COUNTtop() As String
   Dim d As New SQLiteDataAdapter("SELECT name,age FROM BKDXclust GROUP BY name ORDER BY count(name) DESC ", conn)
   Dim t As New DataTable
   If d.Fill(t) > 0 Then
       nameResult = t.Rows(0)("name").ToString
       ageResult = t.Rows(0)("age").ToString
   End If
   Return nameResult & " - " & ageResult
End Function

---

او

Private Function COUNTtop() As String
Dim rrr5 As String = ""
    Dim d As New SQLiteDataAdapter("SELECT name,age FROM BKDXclust GROUP BY name ORDER BY count(name) DESC ", conn)
    Dim t As New DataTable
    If d.Fill(t) > 0 Then
        rrr5 = t.Rows(0)("name").ToString & " - " & t.Rows(0)("age").ToString
    End If
    Return rrr5
End Function

[dubai.eig]

(10-04-19, 01:23 AM)بدري كتب : ما تقصد "مع" ؟ تحتاج توضيح 
هل تقصد اضهار العمر مع الاسم في الاسم الاكثر تسجيلا

اذا كان كذلك فلا تصلح ExecuteScalar

وتحتاج لهذا الكود
Dim nameResult As String = ""
Dim ageResult As String = ""

Private Function COUNTtop() As String
   Dim d As New SQLiteDataAdapter("SELECT name,age FROM BKDXclust GROUP BY name ORDER BY count(name) DESC ", conn)
   Dim t As New DataTable
   If d.Fill(t) > 0 Then
       nameResult = t.Rows(0)("name").ToString
       ageResult = t.Rows(0)("age").ToString
   End If
   Return nameResult & " - " & ageResult
End Function

---

او

Private Function COUNTtop() As String
   Dim rrr5 As String = ""
    Dim d As New SQLiteDataAdapter("SELECT name,age FROM BKDXclust GROUP BY name ORDER BY count(name) DESC ", conn)
    Dim t As New DataTable
    If d.Fill(t) > 0 Then
        rrr5 = t.Rows(0)("name").ToString & " - " & t.Rows(0)("age").ToString
    End If
    Return rrr5
End Function

نعم هذا هو المطلوب

احسنت وتسلم ايدك وفي ميزان حسناتك

شكرا استاذي الكريم