+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] [تم الحل] يرجى المساعده في تصحيح الكود (/showthread.php?tid=29313)
[تم الحل] يرجى المساعده في تصحيح الكود - dubai.eig - 09-04-19
السلام عليكم ورحمة الله
عندي قاعدة بيانات
فيها
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الكود هذا يضهر رقم انا اريد اسم الشخص الاكثر اضافه في القاعده
بارك الله فيكم افيدوني وشكرا
RE: يرجى المساعده في تصحيح الكود - بدري - 09-04-19
هذا الكود يحضر الاسم فقط لاكثر اسم مضاف
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
RE: يرجى المساعده في تصحيح الكود - dubai.eig - 10-04-19
(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.'RE: يرجى المساعده في تصحيح الكود - بدري - 10-04-19
انسخ الكود كامل ولا تقتطع منه
لانه يبدو انك ابقيت على Convert.ToInt32 وهو اصبح الان String
RE: يرجى المساعده في تصحيح الكود - dubai.eig - 10-04-19
(10-04-19, 12:32 AM)بدري كتب : انسخ الكود كامل ولا تقتطع منه
لانه يبدو انك ابقيت على Convert.ToInt32 وهو اصبح الان String
ما غيرة شي في الكود
فقط مسحت
كود :
Dim rrr5 As Stringلان موجود في اول الملف
[attachment=21315]
[attachment=21314]
RE: يرجى المساعده في تصحيح الكود - بدري - 10-04-19
من الصوره اتضح الخطا في نوع القيمه المعاده من Function وهي As Integer والمفروض تكون As String
Private Function COUNTtop() AS String
RE: يرجى المساعده في تصحيح الكود - dubai.eig - 10-04-19
اعتذر منك الغلط طلع مني انا
في بدايه الكود
قمت بتغيير
كود :
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وشكرا
RE: [تم الحل] يرجى المساعده في تصحيح الكود - بدري - 10-04-19
ما تقصد "مع" ؟ تحتاج توضيح
هل تقصد اضهار العمر مع الاسم في الاسم الاكثر تسجيلا
اذا كان كذلك فلا تصلح 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
RE: [تم الحل] يرجى المساعده في تصحيح الكود - dubai.eig - 10-04-19
(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
نعم هذا هو المطلوب
احسنت وتسلم ايدك وفي ميزان حسناتك
شكرا استاذي الكريم
