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

سلام عليكم اخواتي الكرام لدي ثلاث تكس بوكس واحد اسم وثاني العمر وثلاث رقم الهاتف وعمل كواد اضافة بيانات الموجوده في لتكس بوكس يتم ترحيلها الي 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

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

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

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

شكرا اخي الغالي الكود شغل تمام جزاك الله الف خير

(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)

السلام عليكم

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

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

لو فرضنا ان هذا الكود لحفظ الاصناف في الفاتورة.

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)) = الكمية
الجديدة.
بالتوفيق

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

ahmed201

sendbad100

ahmed201

sendbad100