السلام عليكم ورحمة الله
عندي قاعدة بيانات
فيها
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
(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
(10-04-19, 12:32 AM)بدري كتب : [ -> ]انسخ الكود كامل ولا تقتطع منه
لانه يبدو انك ابقيت على Convert.ToInt32 وهو اصبح الان String
ما غيرة شي في الكود
فقط مسحت
لان موجود في اول الملف
[
attachment=21315]
[
attachment=21314]
من الصوره اتضح الخطا في نوع القيمه المعاده من Function وهي As Integer والمفروض تكون As String
Private Function COUNTtop() AS String
اعتذر منك الغلط طلع مني انا
في بدايه الكود
قمت بتغيير
الى
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
(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
نعم هذا هو المطلوب
احسنت وتسلم ايدك وفي ميزان حسناتك
شكرا استاذي الكريم
