منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب كواد ترحيل بيانات منMSFlexGrid الي جدول - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : طلب كواد ترحيل بيانات منMSFlexGrid الي جدول (/showthread.php?tid=36907)

طلب كواد ترحيل بيانات منMSFlexGrid الي جدول - ahmed201 - 13-11-20

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


كود :
On Error Resume Next
Dim i As Integer
If rs.State = 1 Then rs.Close
sql = "Select * From [Table2] where [n1] =" & MSFlexGrid1.TextMatrix(i, 3) & ""
rs.Open sql, db, adOpenStatic, adLockOptimistic
If rs.EOF Then
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)
rs.Update
Next i
End If


RE: طلب كواد ترحيل بيانات منMSFlexGrid الي جدول - sendbad100 - 14-11-20

وعليكم السلام

جرب احذف هذا السطر 

PHP كود :
If rs.EOF Then 
وايضاً  عدل الاستعلام ما يحتاج الشرط 
PHP كود :
sql = "Select * From [Table2] 
rs.Open sql, db, adOpenStatic, adLockOptimistic 


RE: طلب كواد ترحيل بيانات منMSFlexGrid الي جدول - ahmed201 - 14-11-20

(14-11-20, 08:38 AM)sendbad100 كتب :
وعليكم السلام

جرب احذف هذا السطر 

PHP كود :
If rs.EOF Then 
وايضاً  عدل الاستعلام ما يحتاج الشرط 
PHP كود :
sql = "Select * From [Table2] 
rs.Open sql, db, adOpenStatic, adLockOptimistic 

شكرا اخي الغالي الكود شغل تمام جزاك الله الف خير
(14-11-20, 08:38 AM)sendbad100 كتب :
وعليكم السلام

جرب احذف هذا السطر 

PHP كود :
If rs.EOF Then 
وايضاً  عدل الاستعلام ما يحتاج الشرط 
PHP كود :
sql = "Select * From [Table2] 
rs.Open sql, db, adOpenStatic, adLockOptimistic 
اخي الغالي منكن طريق خصم الكميه من المخزن عن طريق  MSFlexGrid1.TextMatrix(i, 1)

RE: طلب كواد ترحيل بيانات منMSFlexGrid الي جدول - sendbad100 - 15-11-20

السلام عليكم

ما عندي الوقت لتطبيقها 

سوف اشرحها وانت طبقها واتمنى  تضبط معك

لو فرضنا ان هذا الكود لحفظ الاصناف في الفاتورة.
PHP كود :
On Error Resume Next
Dim i As Integer
If rs.State = 1 Then rs.Close
sql = "Select * From [Table2] where [n1] =" & MSFlexGrid1.TextMatrix(i, 3) & ""
rs.Open sql, db, adOpenStatic, adLockOptimistic
If rs.EOF Then
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)

rs.Update

''''''''''''''''في هذا السطر '''''''''''''''''''''''''

Next i
End If 

بعد سطر   rs.Update   مباشر 

عليك عمل كود  يقوم 
1- بالبحث عن الصنف المحفوظ في جدول الاصنفاف  
2- تعديل الكمية في المخزون الى الكمية الجديدة.
بمعنى 
 الكمية السابقة -  الكمية الحالية في الفاتورة (MSFlexGrid1.TextMatrix(i, 1)) = الكمية 
الجديدة.
بالتوفيق