تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اظهار عدد السجلات (مشكلة)
#1
السلام عليكم ورحمة الله وبركاته 

اخواني الكرام 
عندي جدول فيه سيارات محددة بعض السيارات موجودة (stock in) والبعض الاخر غير موجود او متلف (stock out)

الموضوع انني اريد اظهار عدد السيارات الموجودة وذلك بخاصية Record count

عندي هذا الكود :
كود :
Public Sub NoCarAvail()

If RS.State = 1 Then RS.Close


sql = "Select count from Car where AvailStatus='" & "Stock in" & "'"



RS.Open sql, CN, adOpenForwardOnly, adLockPessimistic


frmCars.Label27.Caption = RS.Fields(0)
RS.Close
Set RS = Nothing
End Sub



يظهر عندي رسالة خطأ 

كيف يمكن اصلاح الكود لكي يظهر عدد السيارات الموجودة في  Label27.Caption


وشكرا لكم 


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
PHP كود :
"Stock in" 
ممكن تشرح هذي الجزئية ماهي؟

استخدم كود استعلام من دون كلمة count يعني هكذا
select * from tb
وبعد ذلك افحص عدد السجلات من نفس الركوردسورس
الرد
تم الشكر بواسطة: Amir_Alzubidy , hannileo , Ahmed_Mansoor , Ahmed_Mansoor
#3
(13-09-19, 03:50 PM)hannileo كتب : السلام عليكم ورحمة الله وبركاته 
اخواني الكرام 
عندي جدول فيه سيارات محددة بعض السيارات موجودة (stock in) والبعض الاخر غير موجود او متلف (stock out)
الموضوع انني اريد اظهار عدد السيارات الموجودة وذلك بخاصية Record count
عندي هذا الكود :
كود :
Public Sub NoCarAvail()

If RS.State = 1 Then RS.Close
sql = "Select count from Car where AvailStatus='" & "Stock in" & "'"
RS.Open sql, CN, adOpenForwardOnly, adLockPessimistic
frmCars.Label27.Caption = RS.Fields(0)
RS.Close
Set RS = Nothing
End Sub

يظهر عندي رسالة خطأ 
كيف يمكن اصلاح الكود لكي يظهر عدد السيارات الموجودة في  Label27.Caption
وشكرا لكم 

و عليكم السلام : 
تستطيع حل المشكلة بطريقتين : 
الطريقة الاولى : 
PHP كود :
Dim AvailStatus_STR As String
AvailStatus_STR 
"Stock in"

If RS.State 1 Then RS.Close
sql 
"Select * From Car where AvailStatus='" Trim$(AvailStatus_STR) & "'"
RS.Open sqlCNadOpenForwardOnlyadLockPessimistic
frmCars
.Label27.Caption RS.RecordCount
RS
.Close
Set RS 
Nothing 
الطريقة الثانية : 
PHP كود :
If RS.State 1 Then RS.Close
sql 
"Select * From Car where AvailStatus='Stock in'"
RS.Open sqlCNadOpenForwardOnlyadLockPessimistic
frmCars
.Label27.Caption RS.RecordCount
RS
.Close
Set RS 
Nothing 
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة: Ahmed_Mansoor
#4
(14-09-19, 10:29 AM)Amir_Al كتب : و عليكم السلام : 
تستطيع حل المشكلة بطريقتين : 
الطريقة الاولى : 
PHP كود :
Dim AvailStatus_STR As String
AvailStatus_STR 
"Stock in"

If RS.State 1 Then RS.Close
sql 
"Select * From Car where AvailStatus='" Trim$(AvailStatus_STR) & "'"
RS.Open sqlCNadOpenForwardOnlyadLockPessimistic
frmCars
.Label27.Caption RS.RecordCount
RS
.Close
Set RS 
Nothing 
الطريقة الثانية : 
PHP كود :
If RS.State 1 Then RS.Close
sql 
"Select * From Car where AvailStatus='Stock in'"
RS.Open sqlCNadOpenForwardOnlyadLockPessimistic
frmCars
.Label27.Caption RS.RecordCount
RS
.Close
Set RS 
Nothing 




السلام عليكم تحياتي لك استاذ عامر 

للاسف الكود لم يعمل واظهر الرقم -1 مع العلم ان الكود موجود في modules واقوم باستدعاءه في تحميل الفورم 

حتى ان عدد السيارات الموجودة لم تظهر الا عند عمل الكود التالي وهو يعمل بشكل جيد ولكن اريد ان يقوم بتصفية عدد السجلات فقط اعتقد تعديل بسيط على نفس الكود 

حتى يظهر فقط عدد السيارات الموجودة فقط 
شكرا لجهودك
كود :
Public Sub NoCars()


If RS.State = 1 Then RS.Close
sql = "Select count (Carid) from car"
RS.Open sql, CN, adOpenForwardOnly, adLockPessimistic

frmCars.Label20.Caption = RS.Fields(0)
RS.Close
Set RS = Nothing
End Sub

(14-09-19, 02:53 AM)سعود كتب :
PHP كود :
"Stock in" 
ممكن تشرح هذي الجزئية ماهي؟

استخدم كود استعلام من دون كلمة count يعني هكذا
select * from tb
وبعد ذلك افحص عدد السجلات من نفس الركوردسورس



شكرا ل استاذ سعود هذ الطريقة اعرفها جيدا 
لكنها لم تعمل منذ البداية ولا اعرف لماذا 
ولكنني جربت ان اضع count في كود حساب كامل السيارات فاصبح يعمل بشكل جيد ولكن الان اريد تصفية السجلات 


شكرا لجهودك

(14-09-19, 02:53 AM)سعود كتب :
PHP كود :
"Stock in" 
ممكن تشرح هذي الجزئية ماهي؟

استخدم كود استعلام من دون كلمة count يعني هكذا
select * from tb
وبعد ذلك افحص عدد السجلات من نفس الركوردسورس



شكرا لك استاذ سعود هذه الطريقة للاسف لاتعمل  معي 

حيث يظهر عدد -1
الرد
تم الشكر بواسطة: Ahmed_Mansoor
#5
طيب ارفع الملف للتعديل
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة: hannileo , Ahmed_Mansoor
#6
(14-09-19, 01:14 PM)Amir_Alzubidy كتب : طيب ارفع الملف للتعديل


السلام عليكم استاذ عامر لقد تم رفع الملف وشكرا لجهودك  وهل يمكن اضافة صورة للسيارة بعد اذنك حيث انني حاولت ولم تنجح Sleepy


الملفات المرفقة
.rar   my project.rar (الحجم : 988.4 ك ب / التحميلات : 12)
الرد
#7
(14-09-19, 01:42 PM)hannileo كتب :
(14-09-19, 01:14 PM)Amir_Alzubidy كتب : طيب ارفع الملف للتعديل


السلام عليكم استاذ عامر لقد تم رفع الملف وشكرا لجهودك  وهل يمكن اضافة صورة للسيارة بعد اذنك حيث انني حاولت ولم تنجح Sleepy



استاذ عامر والاخوة الكرام يبدو انه لايوجد حل  Big Grin

مع العلم انه كان يعمل لكنني غيرت طريقة الاتصال الى sql لم يعد يعمل بعد التعديل
الرد
تم الشكر بواسطة: Ahmed_Mansoor
#8
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , بما أنك حولت قاعدة البيانات إلى إسكيوإل سيرفر جرب قبل أن تفتح أي جدول أو إستعلام بإستخدام كائن الـ Recordset ضع هذا الأمر قبل أمر الفتح , مثال :

PHP كود :
RS.CursorLocation adUseClient
RS
.Open "Select * From Table1"DBadOpenStaticadLockPessimistic 
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: hannileo , hannileo
#9
(17-09-19, 12:15 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , بما أنك حولت قاعدة البيانات إلى إسكيوإل سيرفر جرب قبل أن تفتح أي جدول أو إستعلام بإستخدام كائن الـ Recordset ضع هذا الأمر قبل أمر الفتح , مثال :

PHP كود :
RS.CursorLocation adUseClient
RS
.Open "Select * From Table1"DBadOpenStaticadLockPessimistic 


بارك الله بك استاذ احمد لقد اصبحت تعمل بشكل جيد شكرا جزيلا لك ولكل من حاول المساعدة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة بقاعدة البيانات hannileo 5 311 06-01-20, 03:16 PM
آخر رد: ahmedabdelaliem
  مشكلة في الاتصال بقاعدة بيانات sql server 2008 R2 مصمم هاوي 6 283 06-01-20, 03:10 PM
آخر رد: ahmedabdelaliem
  عندي مشكلة عندما أبحث عن طريق التاريخ يعطي نتائج غير صحيحه Rami_Mezo 2 594 05-07-18, 03:12 PM
آخر رد: elgokr
  [vb6.0] حول نقل السجلات من جدول الى جدول آخر sher 0 551 11-06-18, 12:16 PM
آخر رد: sher
  مشكلة في اتصال قاعدة بيانات sql server 2005 مصمم هاوي 6 1,067 31-03-18, 03:04 PM
آخر رد: مصمم هاوي
  [vb6.0] اظهار التاريخ المنتهي فيجوال بيسك 6 دهشوش1 4 954 30-10-17, 12:58 AM
آخر رد: دهشوش1
  مشكلة في ربطvb6 مع ملف نصي zine pef 8 1,067 04-04-17, 03:52 PM
آخر رد: zine pef
  مشكلة تعليق الطباعة في الداتا ريبورت على ويندوز 7 الطايش 1 1,040 17-12-16, 08:21 PM
آخر رد: الطايش
  [سؤال] مطلوب كود يعمل على اظهار الخلايا ذات قيمة فقط mohamedcma 3 945 17-11-16, 04:54 PM
آخر رد: Amir_Alzubidy
  [vb6.0] كيف يمكن التغلب على مشكلة تحديث البيانات ؟ ahmed_egypt 6 1,810 02-08-16, 11:33 AM
آخر رد: ahmedabdelaliem

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم