منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] النقل من الاكسيل الي اليست فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] النقل من الاكسيل الي اليست فيو (/showthread.php?tid=1340)

النقل من الاكسيل الي اليست فيو - محمد اسماعيل - 24-12-13

السلام عيكم ورحمة اللة وبركاتة


هذا سؤالي الاول بالمنتدي

لدي سؤال انا اقوم بتصميم برنامج يعتمد علي اليست فيو والاكسيل

قمت بانجاز 70 من المشروع ويتبقي الجزء الاخير وهو نقل البيانات من الاكسيل الي اليست فيو

عندي 5 اعمدة بالاكسيل وهي عن مكتبة

اسم الطالب
اسم الكتاب
مؤلف الكتاب
يوم الاستلام
يوم التسليم

اريد النقل الي اليست فيو
للا سف انا اعمل علي الاكسيل واعلم القليل عن sql
اتعاملت مع الاكسيل وقدرت انقل البيانات لة بس كل لما اجيب البيانات الي اليست فيو
اتلخبط مع العلم
اضع باسورد بملف الاكسيل دة الكود الي حاولت بية
كود :
Dim con As New OleDbConnection
    xlsن.Dim Exfilepath As String = "d:\test"
    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim ds As New DataSet
    con.ConnectionString = ("provider=Microsoft.Jet.OLEDB.12.0; Data Source='" & Exfilepath & "';Extended Properties=Excel 8.0;")
    con.Open()
    dt.Clear()
    ds.Tables.Add(dt)
    Dim da As New OleDbDataAdapter("Select * from [Sheet1$]", con)
    da.Fill(dt)
    Dim dc As DataColumn
    For Each dc In ds.Tables(0).Columns
    Dim ch As New ColumnHeader
    ch.Text = dc.ColumnName
    ch.Width = 110 'set the columns width
    Me.ListView1.Columns.Add(ch)
    Next
  
    For Each myRow In dt.Rows
    ListView1.Items.Add(myRow.Item(0))
    ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myRow.Item(1))
    Next
    con.Close()


RE: النقل من الاكسيل الي اليست فيو - Genius Live - 03-03-14

بدلاً من استخدام DataTable يمكنك جلب البيانات مباشرة

الطريقة هنا في هذا المثال مثال - استيراد البيانات من Excel إلي ListView



RolleyesRolleyesRolleyes