تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود حفظ محتويات listbox
#1
السلام عليكم ورحمة الله وبركاته

 أرجو المساعدة بكود يحفظ محتويات Listbox في قاعدة بيانات أكسس 2007 وشكراً
الرد }}}
تم الشكر بواسطة:
#2
مرحباً Aminsoft

الكود الفورم كاملاً
كود :
Imports Microsoft.Office.Interop

Public Class Form1
Dim oItem As Object
Dim OffS As Integer
Dim MsExcel As Excel.Application
Dim Wb As Excel.Workbook
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles     Button1.Click
   MsExcel = CreateObject("Excel.Application")

   Set Wb = MsExcel.Workbooks.Open("Path_of_File")
   OffS = 0
   For Each oItem In ListBox1.Items
       Wb.Sheets(1).Range("A1").Offset(OffS, 0).Value = oItem
       OffS = OffS + 1
   Next oItem

   Wb.SaveAs
   DoEvents
   Wb.Close
   MsExcel.Visible = True
   End Sub
End Class

لا تنسي استدعاء : Microsoft.Office.Interop

يمكنك الاطلاع على الرابط التالى فهو مصدر الكود

فالرابط يحتوى على الكود المطلوب استخدامه
لتتمكن من استخراج القيم من ListBox الى ملف Excel

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#3
ربي يجزيك الخير

لكن اريد ل برنامج اكسس اي لقواعد البيانات
الرد }}}
تم الشكر بواسطة:
#4
(05-10-18, 07:16 PM)Aminsoft كتب : ربي يجزيك الخير

لكن اريد ل برنامج اكسس اي لقواعد البيانات


Big Grin Big Grin Big Grin 
لا اعلم كيف قمت بقراءة كلمة أكسس على كونها اكسل  Rolleyes

على اى حال لا نختلف كثيراً فى الكود السابق فكل ما ستستخدمه منه هو هذا الجزء
كود :
  For Each oItem In ListBox1.Items
      ' كودالاضافة بقاعدة بيانات اكسس
  Next oItem

فقط كل ما عليك وضع كود الاضافة داخل الكود For
وسيتم الانتهاء من ما تريد التعامل معه

يمكنك مراجعة هذا الرابط سيفيدك

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: رضوان الجماعي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  [VB.NET] listbox تلوين عدد من هذه الأسماء mervandz 3 420 18-11-23, 01:35 AM
آخر رد: sniper2030
Information [VB.NET] حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox mervandz 3 287 10-11-23, 07:12 PM
آخر رد: justforit
  كيف أقوم بنقل محتويات checkedListbox إلى Textbox ؟ صالح عبدالله 4 483 16-09-23, 10:51 AM
آخر رد: أبو خالد الشكري
  هل ممكن اجعل عناصر ال LISTBOX بشكل افقي ismaeel 0 380 01-05-23, 11:26 PM
آخر رد: ismaeel
  كيفية الربط بين textbox و listbox timgad 2 3,648 27-03-23, 01:59 PM
آخر رد: sanyor77
  [VB.NET] عرض محتويات جريدفيو في كريستال ريبورت mohammed_atallah 4 601 03-01-23, 09:55 AM
آخر رد: mohammed_atallah
Information [كود] تنبيه إذا حدث تعديل في محتويات TextBox أبو خالد الشكري 6 675 17-12-22, 11:09 PM
آخر رد: asmarsou
  [C#.NET] تعديل سجل في listbox ali_ahmed12 2 478 13-11-22, 04:00 PM
آخر رد: ali_ahmed12
  [VB.NET] تعديل على القيمة المختارة في ListBox محمد العامر 18 5,228 25-09-22, 10:35 AM
آخر رد: رضوان الجماعي

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


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