+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود حفظ محتويات listbox (/showthread.php?tid=26794)
كود حفظ محتويات listbox - Aminsoft - 05-10-18
السلام عليكم ورحمة الله وبركاته
أرجو المساعدة بكود يحفظ محتويات Listbox في قاعدة بيانات أكسس 2007 وشكراً
RE: كود حفظ محتويات listbox - elgokr - 05-10-18
مرحباً 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
تحياتى لك
وتمنياتى لك التوفيق
RE: كود حفظ محتويات listbox - Aminsoft - 05-10-18
ربي يجزيك الخير
لكن اريد ل برنامج اكسس اي لقواعد البيانات
RE: كود حفظ محتويات listbox - elgokr - 07-10-18
(05-10-18, 07:16 PM)Aminsoft كتب : ربي يجزيك الخير
لكن اريد ل برنامج اكسس اي لقواعد البيانات
لا اعلم كيف قمت بقراءة كلمة أكسس على كونها اكسل 
على اى حال لا نختلف كثيراً فى الكود السابق فكل ما ستستخدمه منه هو هذا الجزء
كود :
For Each oItem In ListBox1.Items
' كودالاضافة بقاعدة بيانات اكسس
Next oItemفقط كل ما عليك وضع كود الاضافة داخل الكود For
وسيتم الانتهاء من ما تريد التعامل معه
يمكنك مراجعة هذا الرابط سيفيدك
تحياتى لك
وتمنياتى لك التوفيق