+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة (/showthread.php?tid=26773)
مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة - monm - 03-10-18
فى المرفق كما فى الصورة ملف الاكسيل لا يقرأ رغم تحقق الاتصال به وتظهر رسالة كما فى الصورة .
ارجو الاجابة ..... أين الخطأ
RE: مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة - asemshahen5 - 03-10-18
كود :
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 IfRE: مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة - monm - 04-10-18
الاخ العزيز الفاضل اشكرك على سرعة الاستجابة فى تلبية الطلب وارجو شرح سبب الخطأ حتى يتم الاستفادة منه ........ وجعله الله فى ميزان
RE: مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة - asemshahen5 - 04-10-18
الخطأ الأول في المسار بتاع ملف الاكسيل :
"DATA SOURCE=path;"
كود :
DATA SOURCE=" & path & ";الخطأ الثاني :
عبأت الداتا سيت و أردت تعبئة الجدول من الداتا تيبل
كود :
da.Fill(ds, "[Sheet1$]")
DataGridView1.DataSource = dtRE: مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة - monm - 05-10-18
الله عليك وعلى الشرح الجميل عشان نفهم
ولكن عند تعديل الكود وكتابة
( "[da.Fill(ds, "[Sheet1$
DataGridView1.DataSource = ds
تظهر DataGridView خالية تماما ولا تعرض الجدول فلماذا؟؟
وشكرا على الشرح والتعليم
RE: مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة - asemshahen5 - 05-10-18
(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