تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كواد ترحيل بيانات منMSFlexGrid الي جدول
#1
سلام عليكم اخواتي الكرام  لدي ثلاث تكس بوكس واحد اسم وثاني العمر وثلاث رقم الهاتف وعمل كواد اضافة بيانات الموجوده في لتكس بوكس يتم ترحيلها الي 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
الرد
تم الشكر بواسطة:
#2
وعليكم السلام

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

PHP كود :
If rs.EOF Then 
وايضاً  عدل الاستعلام ما يحتاج الشرط 
PHP كود :
sql "Select * From [Table2] 
rs.Open sql, db, adOpenStatic, adLockOptimistic 
الرد
تم الشكر بواسطة: ahmed201
#3
(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)
الرد
تم الشكر بواسطة: sendbad100 , sendbad100
#4
السلام عليكم

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

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

لو فرضنا ان هذا الكود لحفظ الاصناف في الفاتورة.
PHP كود :
On Error Resume Next
Dim i 
As Integer
If rs.State 1 Then rs.Close
sql 
"Select * From [Table2] where [n1] =" MSFlexGrid1.TextMatrix(i3) & ""
rs.Open sqldbadOpenStaticadLockOptimistic
If rs.EOF Then
For 1 To MSFlexGrid1.Rows 1
rs
.AddNew
rs
![n1] = MSFlexGrid1.TextMatrix(i1)
rs![n2] = MSFlexGrid1.TextMatrix(i2)
rs![n3] = MSFlexGrid1.TextMatrix(i3)

rs.Update

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

Next i
End If 

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة اعادة ترقيم التلقائي في قاعدة بيانات اكسس ahmed201 8 262 25-10-20, 01:37 PM
آخر رد: sendbad100
  اخى الغالى الاستاذ امير سول فى الاستعلام من اكثر من جدول mhareek 2 179 03-10-20, 09:05 PM
آخر رد: mhareek
  مساعدة في عرض بيانات محددة في التقرير مصمم هاوي 1 283 17-09-20, 08:39 PM
آخر رد: مصمم هاوي
  مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس مصمم هاوي 4 523 13-09-20, 03:57 AM
آخر رد: مصمم هاوي
  سؤال حول إنشاء جدول بالكود haider kh 0 174 27-08-20, 02:14 AM
آخر رد: haider kh
  سؤال حول إنشاء جدول بالكود haider kh 0 174 27-08-20, 01:57 AM
آخر رد: haider kh
  مشكله في كواد بحث في قاعدة بيانات اكسس ahmed250 2 304 07-08-20, 09:50 AM
آخر رد: ahmed250
  طلب دمج عمودين وتصميم جدول إحصائيه في MSFlexGrid ahmed250 2 288 07-08-20, 09:49 AM
آخر رد: ahmed250
  [سؤال] لايمكن الاتصال بقاعدة بيانات MYsql ناجح احمد 5 622 30-07-20, 03:10 AM
آخر رد: حريف برمجة
  مشكله في كود اضافه ملف pdf في قاعدة بيانات اكسس وإستدعاءه ahmed250 1 418 03-07-20, 11:23 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم