منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

حفظ عناصر ListView إلى قاعدة بيانات Access

اذهب الى الأسفل

حفظ عناصر ListView إلى قاعدة بيانات Access Empty حفظ عناصر ListView إلى قاعدة بيانات Access

مُساهمة من طرف بنت البلد الثلاثاء مايو 21, 2013 7:28 am

صباح الخير ....

اليوم راح أتكلم عن كيفية تخزين جميع عناصر 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 Empty رد: حفظ عناصر ListView إلى قاعدة بيانات Access

مُساهمة من طرف بنت البلد الثلاثاء مايو 21, 2013 7:29 am

الكود الكامل



الكود:
  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 Empty رد: حفظ عناصر ListView إلى قاعدة بيانات Access

مُساهمة من طرف أحمد مناع الثلاثاء مايو 21, 2013 12:32 pm

درس رائع ...شكرا بنت البلد

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
أحمد مناع
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 1108
النقاط : 202034
التقيم : 144
الدولة : مصر
الجنس : ذكر

https://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى