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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احناج مثال لكيفية استيراد بيانات من ملف اكسيل الى قاعدة البيانات عن طريق الفيجوال amro1965 0 59 19-01-21, 06:22 PM
آخر رد: amro1965
  مشكلة اعادة ترقيم التلقائي في قاعدة بيانات اكسس ahmed201 8 386 25-10-20, 01:37 PM
آخر رد: sendbad100
  اخى الغالى الاستاذ امير سول فى الاستعلام من اكثر من جدول mhareek 2 242 03-10-20, 09:05 PM
آخر رد: mhareek
  مساعدة في عرض بيانات محددة في التقرير مصمم هاوي 1 387 17-09-20, 08:39 PM
آخر رد: مصمم هاوي
  مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس مصمم هاوي 4 622 13-09-20, 03:57 AM
آخر رد: مصمم هاوي
  سؤال حول إنشاء جدول بالكود haider kh 0 228 27-08-20, 02:14 AM
آخر رد: haider kh
  سؤال حول إنشاء جدول بالكود haider kh 0 238 27-08-20, 01:57 AM
آخر رد: haider kh
  مشكله في كواد بحث في قاعدة بيانات اكسس ahmed250 2 393 07-08-20, 09:50 AM
آخر رد: ahmed250
  طلب دمج عمودين وتصميم جدول إحصائيه في MSFlexGrid ahmed250 2 374 07-08-20, 09:49 AM
آخر رد: ahmed250
  [سؤال] لايمكن الاتصال بقاعدة بيانات MYsql ناجح احمد 5 750 30-07-20, 03:10 AM
آخر رد: حريف برمجة

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


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