[monm]

فى المرفق كما فى الصورة ملف الاكسيل لا يقرأ رغم تحقق الاتصال به وتظهر رسالة كما فى الصورة .
ارجو الاجابة ..... أين الخطأ

[asemshahen5]

كود :

       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 If

جرب هذا الكود

[monm]

الاخ العزيز الفاضل اشكرك على سرعة الاستجابة فى تلبية الطلب وارجو شرح سبب الخطأ حتى يتم الاستفادة منه ........ وجعله الله فى ميزان

[asemshahen5]

الخطأ الأول في المسار بتاع ملف الاكسيل :

"DATA SOURCE=path;"

كود :

DATA SOURCE=" & path & ";

الخطأ الثاني :
عبأت الداتا سيت و أردت تعبئة الجدول من الداتا تيبل

كود :

da.Fill(ds, "[Sheet1$]")
DataGridView1.DataSource = dt

[monm]

الله عليك وعلى الشرح الجميل عشان نفهم
ولكن عند تعديل الكود وكتابة
( "[da.Fill(ds, "[Sheet1$
       DataGridView1.DataSource = ds
تظهر DataGridView خالية تماما ولا تعرض الجدول فلماذا؟؟
وشكرا على الشرح والتعليم

[asemshahen5]

(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