+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] المساعدة في معرفة عدد القوائم (/showthread.php?tid=31848)
الصفحات:
1
2
المساعدة في معرفة عدد القوائم - وادي العوضي - 25-10-19
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
طلبي مشروح داخل النموذج للبرنامج المرفق مع وافر التحايا
RE: المساعدة في معرفة عدد القوائم - sendbad100 - 25-10-19
السلام عليكم
هل هذا هو المطلوب
PHP كود :
Me.Text22.Text = rs3.RecordCount
تضيفة للكود التالي
PHP كود :
Private Sub Command16_Click()
Dim rs3 As Recordset
Set rs3 = db.OpenRecordset("SELECT Sum(Crdnum)AS SumCrdnum From tbl1 Where Crdnum=" & Val(Text22))
Me.Text22.Text = rs3.RecordCount
rs3.Close
Set rs3 = Nothing
End Sub
RE: المساعدة في معرفة عدد القوائم - وادي العوضي - 25-10-19
الله عليك استاذي الفاضل sendbad100 نعم هذا هو المطلوب تماما
جزاك الله خيرا وبارك الله فيك وجعل الله جل وعلا اعمالك في ميزان حسناتك يارب يارب
استاذي الفاضل هناك خطا في الكود لان عند تطبيق الكود على قوائم عدد ثلاثة يعطيني فقط رقم 1 والمفروض يعطيني عدد القوائم 3
وهذا البرنامج في المرفقات بعد وضع الكود فيه
RE: المساعدة في معرفة عدد القوائم - وادي العوضي - 25-10-19
اساتذتي الافاضل
بالنسبة الى عدد القوائم هو اظهار اعلى رقم موجود في الحقل وفي برنامجي هذا اعلى رقم هو 3 في حقل رقم الهوية
اذن كيف الطريقة الى ذلك وما هو الكود او الدالة التي تظهر اعلى رقم موجود في حقل رقم الهوية الذي اعتبرته عدد القوائم
RE: المساعدة في معرفة عدد القوائم - sendbad100 - 25-10-19
السلام عليكم
PHP كود :
Max (اسم الحقل)
PHP كود :
Max ( رقم_الهوية)
PHP كود :
SELECT Max([Crdnum]) AS عدد_القوائم FROM tbl1
RE: المساعدة في معرفة عدد القوائم - وادي العوضي - 25-10-19
استاذي الفاضل جزاك الله خيرا لم تنجح معي كل المحاولات كل الاكواد كتبتها ولم تنجح الطريقة
عندي في قاعدة بيانات في حقل Crdnum الذي اسمه رقم الهوية 3 قوائم كيف اعرض اعلى رقم في مربع النص التابع الى زر امر عدد القوائم
وهذا الكود الاخير الذي كتبته لي ادخلته في زر الامر ولم تنجح الطريقة يظهر رقم 1 والمفروض ان يظهر رقم 3 لانه اعلى رقم مع وافر التحايا
RE: المساعدة في معرفة عدد القوائم - asemshahen5 - 25-10-19
SELECT Count(Crdnum)AS CountCrdnum From tbl1
RE: المساعدة في معرفة عدد القوائم - وادي العوضي - 25-10-19
استاذي الفاضل والله تعبتك معي كثيرا لكن لم تفلح كل المحاولات
اذا امكن التعديل على المرفق الذي ارفقته سابقا احتمال لم اعرف كيف او اين اضع الكود وشكرا لك مرة ثانية لجهودك ومساعدتك لي مع وافر التحايا
RE: المساعدة في معرفة عدد القوائم - وادي العوضي - 26-10-19
اساتذتي الافاضل هل يوجد حل او التعديل على البرنامج المرفق
RE: المساعدة في معرفة عدد القوائم - asemshahen5 - 26-10-19
PHP كود :
Private Sub Command16_Click()
Dim rs3 As Recordset
Set rs3 = db.OpenRecordset("SELECT Count(Crdnum)AS CountCrdnum From tbl1 ") ''Where Crdnum="" & Val(Text22.Text))
Me.Text22.Text = rs3!CountCrdnum
rs3.Close
Set rs3 = Nothing
End Sub
هذا الكود مبدئيا الا اذا كان هناك معيار معين للبحث .
مثل :
PHP كود :
Private Sub Command16_Click()
Dim rs3 As Recordset
Set rs3 = db.OpenRecordset("SELECT Count(Crdnum)AS CountCrdnum From tbl1 Where Crdnum=" & Val(Text20.Text))
Me.Text22.Text = rs3!CountCrdnum
rs3.Close
Set rs3 = Nothing
End Sub