تقييم الموضوع :
  • 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)) = الكمية 
الجديدة.
بالتوفيق
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود أظهار بيانات الحضور والغياب مصمم هاوي 1 130 25-04-21, 05:05 PM
آخر رد: مصمم هاوي
  طباعة بيانات الطلبة في الفليكس قريد مصمم هاوي 1 117 11-04-21, 01:58 AM
آخر رد: مصمم هاوي
  [سؤال] لايمكن الاتصال بقاعدة بيانات MYsql ناجح احمد 7 1,026 07-02-21, 06:13 PM
آخر رد: ahmed201
  احناج مثال لكيفية استيراد بيانات من ملف اكسيل الى قاعدة البيانات عن طريق الفيجوال amro1965 0 200 19-01-21, 06:22 PM
آخر رد: amro1965
  مشكلة اعادة ترقيم التلقائي في قاعدة بيانات اكسس ahmed201 8 587 25-10-20, 01:37 PM
آخر رد: sendbad100
  اخى الغالى الاستاذ امير سول فى الاستعلام من اكثر من جدول mhareek 2 326 03-10-20, 09:05 PM
آخر رد: mhareek
  مساعدة في عرض بيانات محددة في التقرير مصمم هاوي 1 497 17-09-20, 08:39 PM
آخر رد: مصمم هاوي
  مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس مصمم هاوي 4 724 13-09-20, 03:57 AM
آخر رد: مصمم هاوي
  سؤال حول إنشاء جدول بالكود haider kh 0 314 27-08-20, 02:14 AM
آخر رد: haider kh
  سؤال حول إنشاء جدول بالكود haider kh 0 318 27-08-20, 01:57 AM
آخر رد: haider kh

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


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