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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  HScrollBar1 و listbox dasktop 0 47 07-10-18, 06:13 PM
آخر رد: dasktop
  تخزين محتويات الداتا جريد فيو في قاعدة البيانات mohmmadameenn 2 72 02-10-18, 01:52 PM
آخر رد: جاسم عبد
Smile [VB.NET] مشكلتي مع البحث في listbox rizakflash8 9 203 24-09-18, 02:13 PM
آخر رد: elgokr
  [سؤال] كيفيه عمل split لملف من نوع تيكست وتصديره داخل LISTBOX dametucorazon 5 106 02-09-18, 10:24 AM
آخر رد: elgokr
  طريقة حساب عدد الاسماء الموجودة في listbox ahmedmansour 1 101 30-07-18, 11:33 PM
آخر رد: elgokr
  كود تحويل ما في ListBox ل TextBox YousefOkasha 6 246 24-07-18, 02:49 PM
آخر رد: معاذ العامري
  [سؤال] اريد طريقه بسيطه لعمل اضافه لكل محتويات الداتا جريد الى قاعده البيانات MYSQL dametucorazon 6 199 23-07-18, 12:24 AM
آخر رد: dametucorazon
  [سؤال] كيف اقوم بعمل فلتر لبيانات في LISTBOX تم تعبئة البيانات من خلال قاعدة البيانات dametucorazon 3 170 08-07-18, 03:05 AM
آخر رد: elgokr
  التكرار في Listbox عن طريق Regex aftfm 22 2,976 03-06-18, 06:14 PM
آخر رد: mrnooo2000
  [VB.NET] كيف اجعل listbox تستوعب اكبر عدد ممكن من الكلمات او الارقام e-coder 3 220 06-05-18, 12:53 PM
آخر رد: viv

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


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