الماذا لا يعمل هذا الاستعلام بخصم الكميه من المخزون ؟؟

الماذا لا يعمل هذا الاستعلام بخصم الكميه من المخزون ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : الماذا لا يعمل هذا الاستعلام بخصم الكميه من المخزون ؟؟ (/showthread.php?tid=3816)

الماذا لا يعمل هذا الاستعلام بخصم الكميه من المخزون ؟؟ - Microformt - 13-09-14

بسم الله الرحمن الرحيم
الاخوه الكلام
السلام عليكم ورحمة وبركاته
الماذا لا يعمل هذا الاستعلام بخصم الكميه من المخزون إذا كان رقم المخزون على الشكل التالي (as10001) ؟؟

PHP كود :

DB.Execute "UPDATE Store SET Store.[no]=[no]-" & Val(Trim$(fox.TextMatrix(i, 2))) & " WHERE iD='" & Val(Trim$(fox.TextMatrix(i, 0))) & "'" 

ملاحظه هامه
رقم الصنف في قاعدة البيانات - نص وليس رقماً

ارجو من الله المساعدة والله يحفظكم ويرعاكم ويجع الجنه داركم الاخير

RE: الماذا لا يعمل هذا الاستعلام بخصم الكميه من المخزون ؟؟ - vbnet - 14-09-14

.....

إن رقم الخزرن بهذا الشكل (as10001) نص وليس رقم فلا يصح اجراء عملية حسابية عليه

الخصم يتم على الكمية فقط والتي هي رقم

على افتراض أن
رقم الصنف ID ، إن أردت استبدله برقم الصنف مثل الباركود مثلا
اسم حقل الكمية Quantity

كود :

DB.Execute "UPDATE [Store] SET [Quantity] = [Quantity] - " & Val(Trim$(fox.TextMatrix(i, 2))) & " WHERE ID='" & Val(Trim$(fox.TextMatrix(i, 0))) & "'"

حسب مواضيعك السابقة وجدتك تتعامل ب DAO
ويبدو الآن أنك تحولت إلى ADO إذا فأنت أمام إمكانيات كبيرة.

.....

RE: الماذا لا يعمل هذا الاستعلام بخصم الكميه من المخزون ؟؟ - Microformt - 14-09-14

اخي العزيز : vbnet
السلام عليكم ورحمة وبركاته
احب ان اقدم لكم جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم ويجع الجنه داركم الاخير يا رب العالمين
تحياتي

RE: الماذا لا يعمل هذا الاستعلام بخصم الكميه من المخزون ؟؟ - ahmed201 - 16-11-20

(14-09-14, 07:40 AM)vbnet كتب : .....

إن رقم الخزرن بهذا الشكل (as10001) نص وليس رقم فلا يصح اجراء عملية حسابية عليه

الخصم يتم على الكمية فقط والتي هي رقم

على افتراض أن
رقم الصنف ID ، إن أردت استبدله برقم الصنف مثل الباركود مثلا
اسم حقل الكمية Quantity

كود :

DB.Execute "UPDATE [Store] SET [Quantity] = [Quantity] - " & Val(Trim$(fox.TextMatrix(i, 2))) & " WHERE ID='" & Val(Trim$(fox.TextMatrix(i, 0))) & "'"

حسب مواضيعك السابقة وجدتك تتعامل ب DAO
ويبدو الآن أنك تحولت إلى ADO إذا فأنت أمام إمكانيات كبيرة.

.....

اخي الغالي الكود لم بعمل معاي مااني استخدم في مكتبة microsoft activex data objects 2.8 library

كود :

On Error Resume Next

Dim i As Integer

If rs.State = 1 Then rs.Close

sql = "Select * From [Table2] "

rs.Open sql, db, adOpenStatic, adLockOptimistic

For i = 1 To MSFlexGrid1.Rows - 1

rs.AddNew

rs![n1] = MSFlexGrid1.TextMatrix(i, 1)

rs![n2] = MSFlexGrid1.TextMatrix(i, 2)

rs![n3] = MSFlexGrid1.TextMatrix(i, 3)

db.Execute "UPDATE [Table1] SET [n2] = [n2] - " & Val(Trim$(MSFlexGrid1.TextMatrix(i, 2))) & " WHERE ID='" & Val(Trim$(MSFlexGrid1.TextMatrix(i, 0))) & "'"

rs.Update

Next i