تقييم الموضوع :
  • 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
وسيتم الانتهاء من ما تريد التعامل معه

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في..listbox e-coder 1 108 26-04-19, 06:49 PM
آخر رد: elgokr
  [سؤال] محتويات Textbox تتاثر باختيار كائن معين من Combobox mr_hso 3 244 05-03-19, 03:31 PM
آخر رد: mr_hso
  [VB.NET] مشكلة فى عرض محتويات DataGridView فى TextBox mr_hso 9 424 26-02-19, 09:18 PM
آخر رد: mr_hso
  طلب صغير جدا في listbox (مبتدئي جدا) الـ ـجارح 3 217 15-02-19, 08:08 PM
آخر رد: ابراهيم ايبو
  استفسار مهم حول listbox اخواني ro0omio0o1 0 183 23-12-18, 12:30 AM
آخر رد: ro0omio0o1
Big Grin نقل العناصر الي في listbox مجهول 5 348 22-12-18, 08:03 PM
آخر رد: elgokr
  [VB.NET] سؤال حول listbox farfour 3 407 24-11-18, 06:21 PM
آخر رد: Rabeea Qbaha
  تحديث قائمة checked listbox alfauori 0 203 06-11-18, 07:40 AM
آخر رد: alfauori
  HScrollBar1 و listbox dasktop 0 244 07-10-18, 06:13 PM
آخر رد: dasktop
  تخزين محتويات الداتا جريد فيو في قاعدة البيانات mohmmadameenn 2 242 02-10-18, 01:52 PM
آخر رد: جاسم عبد

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


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