+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] استراد بيانت من ملف الاكسل الى DataGridView (/showthread.php?tid=26268)
استراد بيانت من ملف الاكسل الى DataGridView - كريم جودي - 28-08-18
السلام عليكم
طبقت درسا للاخ احمد النجار في موضوع استراد بيانت من ملف الاكسل الى DataGridView
و اردت استراد بيانات الاكسل ولكن بدون استراد العنوان فهل هناك امكانية للتعديل على هذا الملف
RE: استراد بيانت من ملف الاكسل الى DataGridView - elgokr - 30-08-18
وعليكم السلام ورحمة الله وبركاته
اهلاً بك اخى كريم جودي
حتى تقوم بتجنب ذلك
كل ما عليك استبدال كود الزر كاملاً بهذا الكودكود :
Dim row As String()
ofd.Filter = "Excel 2007|*.xlsx|Excel 2003|*.xls"
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
grd.DataSource = Nothing
'grd.Columns.Clear()
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;")
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", conn)
da.Fill(dt)
'grd.DataSource = dt
For ii As Integer = 0 To dt.Rows.Count - 2
row = New String() {dt(ii)(0).ToString(), dt(ii)(1).ToString()}
grd.Rows.Add(row)
Next
Else
Exit Sub
End Ifوبكده تكون حليت المشكلة كاملاً
تحياتى لك
وتمنياتى لك التوفيق
RE: استراد بيانت من ملف الاكسل الى DataGridView - كريم جودي - 30-08-18
شكرا اخي [b]elgokr لقد اعجبني هذاالكود بارك الله فيكم[/b]
ولو تنظر الى هذا
http://vb4arb.com/vb/showthread.php?tid=26301
RE: استراد بيانت من ملف الاكسل الى DataGridView - elgokr - 30-08-18
الشكر لله , تم الرد فى الموضوع الاخر
تحياتى لك
وتمنياتى لك التوفيق