السلام عليكم ورحمة الله وبركاته
أرجو المساعدة بكود يحفظ محتويات Listbox في قاعدة بيانات أكسس 2007 وشكراً
مرحباً 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
تحياتى لك
وتمنياتى لك التوفيق
ربي يجزيك الخير
لكن اريد ل برنامج اكسس اي لقواعد البيانات
(05-10-18, 07:16 PM)Aminsoft كتب : [ -> ]ربي يجزيك الخير
لكن اريد ل برنامج اكسس اي لقواعد البيانات
لا اعلم كيف قمت بقراءة كلمة أكسس على كونها اكسل
على اى حال لا نختلف كثيراً فى الكود السابق فكل ما ستستخدمه منه هو هذا الجزء
كود :
For Each oItem In ListBox1.Items
' كودالاضافة بقاعدة بيانات اكسس
Next oItem
فقط كل ما عليك وضع كود الاضافة داخل الكود For
وسيتم الانتهاء من ما تريد التعامل معه
يمكنك مراجعة هذا الرابط سيفيدك
تحياتى لك
وتمنياتى لك التوفيق
