منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > طلب كود خصم الكميه المباعه من المخزن
نسخة كاملة : طلب كود خصم الكميه المباعه من المخزن
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

ahmed201

19-11-20, 07:46 AM
انا استخدمات هذه الكود لكن لم يعمل معاي ارجو المساعد اخوتي الكرام في هذه الكود وجزاكم الله الف خير وبارك الله فيكم
كود :
For I = 1 To MSFlexGrid1.Rows - 1
If RS.State = adStateOpen Then RS.Close
sql = "SELECT * FROM [Table1] WHERE [id]='" & Trim(MSFlexGrid1.TextMatrix(I, 0)) & "'"
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then
RS! [n2] = [n2] - " & Val(Trim$(MSFlexGrid1.TextMatrix(I, 3))"
DoEvents
End If
Next

sendbad100

19-11-20, 01:44 PM
السلام عليكم

جرب التالي
اضف (RS.Update)   (RS![n2] = RS![n2] )


PHP كود :
For I = 1 To MSFlexGrid1.Rows - 1
If RS.State = adStateOpen Then RS.Close
sql = "SELECT * FROM [Table1] WHERE [id]='" & Trim(MSFlexGrid1.TextMatrix(I, 0)) & "'"
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then
RS![n2] = RS![n2] - " & Val(Trim$(MSFlexGrid1.TextMatrix(I, 3))"
DoEvents
RS.Update
End If
Next 

ahmed201

20-11-20, 12:30 AM
(19-11-20, 01:44 PM)sendbad100 كتب : [ -> ]السلام عليكم

جرب التالي
اضف (RS.Update)   (RS![n2] = RS![n2] )


PHP كود :
For I = 1 To MSFlexGrid1.Rows - 1
If RS.State = adStateOpen Then RS.Close
sql = "SELECT * FROM [Table1] WHERE [id]='" & Trim(MSFlexGrid1.TextMatrix(I, 0)) & "'"
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then
RS![n2] = RS![n2] - " & Val(Trim$(MSFlexGrid1.TextMatrix(I, 3))"
DoEvents
RS.Update
End If
Next 

لم يعمل معاي كود اخي الغالي

sendbad100

20-11-20, 06:15 AM
السلام عليكم


تاكد من التالي:-
1- ان  العمود الاول   (MSFlexGrid1.TextMatrix(I, 0)   تحتوي على  ID   المخصص للصنف. حسب الاستعلام يعتبر نص.
2- ان العمود الرابع (MSFlexGrid1.TextMatrix(I, 3)  يحتوي على الكمية  المباعة.


شيك على الاقواس ()  او الاخطاء الاملائية  لاني كتبته بسرعة بدون تدقيق ومراجعة نظرا لضيق الوقت.


[b]جرب التالي  اذا كان حقل id  نص في قاعدة البينات.[/b]

PHP كود :
For I = 1 To MSFlexGrid1.Rows - 1

If RS.State = adStateOpen Then RS.Close

sql = "SELECT * FROM [Table1] WHERE [id]='" & Trim(MSFlexGrid1.TextMatrix(I, 0)) & "'"
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then

RS..MoveFirst

 RS![n2] = RS![n2] - Val(Trim$(MSFlexGrid1.TextMatrix(I, 3)))
DoEvents
RS.Update
End If
Next 



او التالي اذا كان id رقم في قاعدة البينات

PHP كود :
For I = 1 To MSFlexGrid1.Rows - 1

If RS.State = adStateOpen Then RS.Close

sql = "SELECT * FROM [Table1] WHERE [id]=" & Trim(MSFlexGrid1.TextMatrix(I, 0))
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then

RS..MoveFirst

 RS![n2] = RS![n2] - Val( Trim$( MSFlexGrid1.TextMatrix(I, 3)))
DoEvents
RS.Update
End If
Next 

ahmed201

20-11-20, 04:15 PM
(20-11-20, 06:15 AM)sendbad100 كتب : [ -> ]السلام عليكم


تاكد من التالي:-
1- ان  العمود الاول   (MSFlexGrid1.TextMatrix(I, 0)   تحتوي على  ID   المخصص للصنف. حسب الاستعلام يعتبر نص.
2- ان العمود الرابع (MSFlexGrid1.TextMatrix(I, 3)  يحتوي على الكمية  المباعة.


شيك على الاقواس ()  او الاخطاء الاملائية  لاني كتبته بسرعة بدون تدقيق ومراجعة نظرا لضيق الوقت.


[b]جرب التالي  اذا كان حقل id  نص في قاعدة البينات.[/b]

PHP كود :
For I = 1 To MSFlexGrid1.Rows - 1

If RS.State = adStateOpen Then RS.Close

sql = "SELECT * FROM [Table1] WHERE [id]='" & Trim(MSFlexGrid1.TextMatrix(I, 0)) & "'"
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then

RS..MoveFirst

 RS![n2] = RS![n2] - Val(Trim$(MSFlexGrid1.TextMatrix(I, 3)))
DoEvents
RS.Update
End If
Next 



او التالي اذا كان id رقم في قاعدة البينات

PHP كود :
For I = 1 To MSFlexGrid1.Rows - 1

If RS.State = adStateOpen Then RS.Close

sql = "SELECT * FROM [Table1] WHERE [id]=" & Trim(MSFlexGrid1.TextMatrix(I, 0))
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then

RS..MoveFirst

 RS![n2] = RS![n2] - Val( Trim$( MSFlexGrid1.TextMatrix(I, 3)))
DoEvents
RS.Update
End If
Next 
كود شغل اخي الغالي جزاك الله الف خير وبارك الله فيك
(20-11-20, 06:15 AM)sendbad100 كتب : [ -> ]السلام عليكم


تاكد من التالي:-
1- ان  العمود الاول   (MSFlexGrid1.TextMatrix(I, 0)   تحتوي على  ID   المخصص للصنف. حسب الاستعلام يعتبر نص.
2- ان العمود الرابع (MSFlexGrid1.TextMatrix(I, 3)  يحتوي على الكمية  المباعة.


شيك على الاقواس ()  او الاخطاء الاملائية  لاني كتبته بسرعة بدون تدقيق ومراجعة نظرا لضيق الوقت.


[b]جرب التالي  اذا كان حقل id  نص في قاعدة البينات.[/b]

PHP كود :
For I = 1 To MSFlexGrid1.Rows - 1

If RS.State = adStateOpen Then RS.Close

sql = "SELECT * FROM [Table1] WHERE [id]='" & Trim(MSFlexGrid1.TextMatrix(I, 0)) & "'"
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then

RS..MoveFirst

 RS![n2] = RS![n2] - Val(Trim$(MSFlexGrid1.TextMatrix(I, 3)))
DoEvents
RS.Update
End If
Next 



او التالي اذا كان id رقم في قاعدة البينات

PHP كود :
For I = 1 To MSFlexGrid1.Rows - 1

If RS.State = adStateOpen Then RS.Close

sql = "SELECT * FROM [Table1] WHERE [id]=" & Trim(MSFlexGrid1.TextMatrix(I, 0))
RS.Open sql, DB, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then

RS..MoveFirst

 RS![n2] = RS![n2] - Val( Trim$( MSFlexGrid1.TextMatrix(I, 3)))
DoEvents
RS.Update
End If
Next 
اخي الغالي ممكن كود الحذف من قاعدة البيانات MSFlexGrid1

sendbad100

20-11-20, 11:37 PM
هلا اخي الكريم

ساعتبر ان الكود اشتغل معاك تمام .


استخدم نفس فكرة الاستعلام  واستبدل 
PHP كود :
RS.Update 

ب 

PHP كود :
RS.Delete 

ahmed201

21-11-20, 04:36 AM
(20-11-20, 11:37 PM)sendbad100 كتب : [ -> ]هلا اخي الكريم

ساعتبر ان الكود اشتغل معاك تمام .


استخدم نفس فكرة الاستعلام  واستبدل 
PHP كود :
RS.Update 

ب 

PHP كود :
RS.Delete 
جزاك الله الف خير اخي الغالي
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > طلب كود خصم الكميه المباعه من المخزن