تقييم الموضوع :
  • 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 farfour 3 91 24-11-18, 06:21 PM
آخر رد: Rabeea Qbaha
  تحديث قائمة checked listbox alfauori 0 54 06-11-18, 07:40 AM
آخر رد: alfauori
  HScrollBar1 و listbox dasktop 0 109 07-10-18, 06:13 PM
آخر رد: dasktop
  تخزين محتويات الداتا جريد فيو في قاعدة البيانات mohmmadameenn 2 116 02-10-18, 01:52 PM
آخر رد: جاسم عبد
Smile [VB.NET] مشكلتي مع البحث في listbox rizakflash8 9 260 24-09-18, 02:13 PM
آخر رد: elgokr
  [سؤال] كيفيه عمل split لملف من نوع تيكست وتصديره داخل LISTBOX dametucorazon 5 149 02-09-18, 10:24 AM
آخر رد: elgokr
  طريقة حساب عدد الاسماء الموجودة في listbox ahmedmansour 1 126 30-07-18, 11:33 PM
آخر رد: elgokr
  كود تحويل ما في ListBox ل TextBox YousefOkasha 6 314 24-07-18, 02:49 PM
آخر رد: معاذ العامري
  [سؤال] اريد طريقه بسيطه لعمل اضافه لكل محتويات الداتا جريد الى قاعده البيانات MYSQL dametucorazon 6 244 23-07-18, 12:24 AM
آخر رد: dametucorazon
  [سؤال] كيف اقوم بعمل فلتر لبيانات في LISTBOX تم تعبئة البيانات من خلال قاعدة البيانات dametucorazon 3 219 08-07-18, 03:05 AM
آخر رد: elgokr

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


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