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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة من طرف بنت البلد في الثلاثاء مايو 21, 2013 10: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
المساهمات : 66
النقاط : 126
التقيم : 6
الجنس : انثى

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

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

مُساهمة من طرف بنت البلد في الثلاثاء مايو 21, 2013 10: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
المساهمات : 66
النقاط : 126
التقيم : 6
الجنس : انثى

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

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

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

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

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

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

أحمد مناع
.
.

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

http://egy-tech.forumegypt.net

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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