24-12-13, 09:42 PM
السلام عيكم ورحمة اللة وبركاتة
هذا سؤالي الاول بالمنتدي
لدي سؤال انا اقوم بتصميم برنامج يعتمد علي اليست فيو والاكسيل
قمت بانجاز 70 من المشروع ويتبقي الجزء الاخير وهو نقل البيانات من الاكسيل الي اليست فيو
عندي 5 اعمدة بالاكسيل وهي عن مكتبة
اسم الطالب
اسم الكتاب
مؤلف الكتاب
يوم الاستلام
يوم التسليم
اريد النقل الي اليست فيو
للا سف انا اعمل علي الاكسيل واعلم القليل عن sql
اتعاملت مع الاكسيل وقدرت انقل البيانات لة بس كل لما اجيب البيانات الي اليست فيو اتلخبط مع العلم
اضع باسورد بملف الاكسيل دة الكود الي حاولت بية
هذا سؤالي الاول بالمنتدي
لدي سؤال انا اقوم بتصميم برنامج يعتمد علي اليست فيو والاكسيل
قمت بانجاز 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()
