بسم الله الرحمن الرحيم
الاخوه الكلام
السلام عليكم ورحمة وبركاته
الماذا لا يعمل هذا الاستعلام بخصم الكميه من المخزون إذا كان رقم المخزون على الشكل التالي (as10001) ؟؟
PHP كود :
DB.Execute "UPDATE Store SET Store.[no]=[no]-" & Val(Trim$(fox.TextMatrix(i, 2))) & " WHERE iD='" & Val(Trim$(fox.TextMatrix(i, 0))) & "'"
ملاحظه هامه
رقم الصنف في قاعدة البيانات - نص وليس رقماً
ارجو من الله المساعدة والله يحفظكم ويرعاكم ويجع الجنه داركم الاخير
.....
إن رقم الخزرن بهذا الشكل (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 إذا فأنت أمام إمكانيات كبيرة.
.....
اخي العزيز : vbnet
السلام عليكم ورحمة وبركاته
احب ان اقدم لكم جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم ويجع الجنه داركم الاخير يا رب العالمين
تحياتي
(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