[بدري]

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

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