حفظ عناصر ListView إلى قاعدة بيانات Access
صفحة 1 من اصل 1 • شاطر
حفظ عناصر ListView إلى قاعدة بيانات Access
صباح الخير ....
اليوم راح أتكلم عن كيفية تخزين جميع عناصر ListView وطبعا من خلال جملة استعلام بسيطة و حلقة دوران ....فقط أتبع الخطوات التالية :
_ نقوم بتعرف متغير i لاستخدامة فى الحلقة التكرارية ...بأستخدام الكود التالى :
_ نقوم بإنشاء حلقة تكرارية تبدأ من 1 حتى عدد عناصر listview بأستخدام الكود التالى :
_ نقوم بالاعلان عن كائن ليقوم بفتح الجدول المراد تخزين فية البيانات ....بأستخدام الكود التالى :
_ بعد ذلك نقوم بأسناد العناصر فى listbox الى حقول قاعدة البيانات ....باستخدام الكود التالى :
مع ملاحظة أن الجدول اللى سأقوم بالحفظ فية هو tblsales والحقول هى ProductCD, Description, UnitPrice, Quantity, SubTotal
اليوم راح أتكلم عن كيفية تخزين جميع عناصر ListView وطبعا من خلال جملة استعلام بسيطة و حلقة دوران ....فقط أتبع الخطوات التالية :
_ نقوم بتعرف متغير i لاستخدامة فى الحلقة التكرارية ...بأستخدام الكود التالى :
- الكود:
Dim i As Variant
_ نقوم بإنشاء حلقة تكرارية تبدأ من 1 حتى عدد عناصر listview بأستخدام الكود التالى :
- الكود:
For i = 1 To lvList.ListItems.Count
_ نقوم بالاعلان عن كائن ليقوم بفتح الجدول المراد تخزين فية البيانات ....بأستخدام الكود التالى :
- الكود:
Set RS_POS = New ADODB.Recordset
If RS_POS.State = adStateOpen Then RS_POS.Close
_ بعد ذلك نقوم بأسناد العناصر فى listbox الى حقول قاعدة البيانات ....باستخدام الكود التالى :
- الكود:
With lvList
INSERT_RECORD "INSERT INTO tblsales ( ProductCD, Description, UnitPrice, Quantity, SubTotal) VALUES ( '" & .ListItems(i).Text & "', '" & .ListItems(i).SubItems(4) & "', '" & .ListItems(i).SubItems(3) & "', '" & .ListItems(i).SubItems(2) & "', '" & .ListItems(i).SubItems(1) & "')"
MsgBox "" & lblInvoiceNo.Caption & " : Êã ÍÝÙ ÇáÝÇÊæÑÉ ÑÞã ", vbInformation, Me.Caption
End With
Next i ' end for loop --->
مع ملاحظة أن الجدول اللى سأقوم بالحفظ فية هو tblsales والحقول هى ProductCD, Description, UnitPrice, Quantity, SubTotal
بنت البلد- .....
- تاريخ التسجيل : 18/02/2011
المساهمات : 85
النقاط : 160
التقيم : 11
الجنس :
رد: حفظ عناصر ListView إلى قاعدة بيانات Access
الكود الكامل
- الكود:
Dim i As Variant
For i = 1 To lvList.ListItems.Count '<--- begin for loop
Set RS_POS = New ADODB.Recordset
If RS_POS.State = adStateOpen Then RS_POS.Close
If lvList.ListItems.Count < 1 Then
MsgBox "No active transaction detected.Can proceed ot this operation!", vbExclamation, Me.Caption
Exit Sub
End If
With lvList
INSERT_RECORD "INSERT INTO tblsales ( ProductCD, Description, UnitPrice, Quantity, SubTotal) VALUES ( '" & .ListItems(i).Text & "', '" & .ListItems(i).SubItems(4) & "', '" & .ListItems(i).SubItems(3) & "', '" & .ListItems(i).SubItems(2) & "', '" & .ListItems(i).SubItems(1) & "')"
MsgBox "" & lblInvoiceNo.Caption & " : Êã ÍÝÙ ÇáÝÇÊæÑÉ ÑÞã ", vbInformation, Me.Caption
End With
Next i
بنت البلد- .....
- تاريخ التسجيل : 18/02/2011
المساهمات : 85
النقاط : 160
التقيم : 11
الجنس :
رد: حفظ عناصر ListView إلى قاعدة بيانات Access
درس رائع ...شكرا بنت البلد
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد