14-09-19, 10:29 AM (آخر تعديل لهذه المشاركة : 14-09-19, 10:29 AM {2} بواسطة Amir_Alzubidy.)
(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 sql, CN, adOpenForwardOnly, adLockPessimistic 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 sql, CN, adOpenForwardOnly, adLockPessimistic frmCars.Label27.Caption = RS.RecordCount RS.Close Set RS = Nothing
14-09-19, 12:54 PM (آخر تعديل لهذه المشاركة : 14-09-19, 12:59 PM {2} بواسطة hannileo.)
(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 sql, CN, adOpenForwardOnly, adLockPessimistic 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 sql, CN, adOpenForwardOnly, adLockPessimistic 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
وبعد ذلك افحص عدد السجلات من نفس الركوردسورس
أهلا بك أخي الكريم , بما أنك حولت قاعدة البيانات إلى إسكيوإل سيرفر جرب قبل أن تفتح أي جدول أو إستعلام بإستخدام كائن الـ Recordset ضع هذا الأمر قبل أمر الفتح , مثال :
(17-09-19, 12:15 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , بما أنك حولت قاعدة البيانات إلى إسكيوإل سيرفر جرب قبل أن تفتح أي جدول أو إستعلام بإستخدام كائن الـ Recordset ضع هذا الأمر قبل أمر الفتح , مثال :