[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

وشكرا