03-10-18, 07:39 PM
03-10-18, 08:00 PM
كود :
ofd.Filter = "excel2013| * .xlsx|excel2003| * .xls"
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim path As String = ofd.FileName
Dim CONN As New OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & path & ";EXTENDED PROPERTIES=""Excel 12.0;HDR=Yes"";")
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("select * from [Sheet1$]", CONN)
da.Fill(dt)
DataGridView1.DataSource = dt
End If04-10-18, 05:09 AM
الاخ العزيز الفاضل اشكرك على سرعة الاستجابة فى تلبية الطلب وارجو شرح سبب الخطأ حتى يتم الاستفادة منه ........ وجعله الله فى ميزان
04-10-18, 05:42 AM
الخطأ الأول في المسار بتاع ملف الاكسيل :
"DATA SOURCE=path;"
الخطأ الثاني :
عبأت الداتا سيت و أردت تعبئة الجدول من الداتا تيبل
"DATA SOURCE=path;"
كود :
DATA SOURCE=" & path & ";الخطأ الثاني :
عبأت الداتا سيت و أردت تعبئة الجدول من الداتا تيبل
كود :
da.Fill(ds, "[Sheet1$]")
DataGridView1.DataSource = dt05-10-18, 05:22 AM
الله عليك وعلى الشرح الجميل عشان نفهم
ولكن عند تعديل الكود وكتابة
( "[da.Fill(ds, "[Sheet1$
DataGridView1.DataSource = ds
تظهر DataGridView خالية تماما ولا تعرض الجدول فلماذا؟؟
وشكرا على الشرح والتعليم
ولكن عند تعديل الكود وكتابة
( "[da.Fill(ds, "[Sheet1$
DataGridView1.DataSource = ds
تظهر DataGridView خالية تماما ولا تعرض الجدول فلماذا؟؟
وشكرا على الشرح والتعليم
05-10-18, 12:26 PM
(05-10-18, 05:22 AM)monm كتب : [ -> ]الله عليك وعلى الشرح الجميل عشان نفهم
ولكن عند تعديل الكود وكتابة
( "[da.Fill(ds, "[Sheet1$
DataGridView1.DataSource = ds
تظهر DataGridView خالية تماما ولا تعرض الجدول فلماذا؟؟
وشكرا على الشرح والتعليم
في التعليق السابق قلت لك مكان الأخطاء و في التعليق الذي يسبقه وضعت لك الكود الصحيح اعمل مقارنة بينهم .
عند استخدام الداتا سيت عليك وضعها كالتالي :
Dim ds As New Dataset
DataGridView1.DataSource = ds.Table("[Sheet1$]")
اما إذا كنت تستخدم داتا تيبل فتكتب كالتالي :
Dim DT as New DataTable
DataGridView1.DataSource=DT