[elgokr]

فقط قم باستخدام الكود التالى

كود :

       Try
           Dim MyExcl As String = "D:\file.xlsx"
           Dim MyConn As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & MyExcl & ";Extended Properties=Excel 12.0;")
           Dim MyDtSt As DataSet = New DataSet
           Dim MyComm As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM [Sheet1$] WHERE [ID] = " & TextBox1.Text, MyConn)

           MyComm.Fill(MyDtSt)
           DataGridView1.DataSource = MyDtSt.Tables(0)

           MyConn.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

مع قيام تغيير التالى

PHP كود :

[Sheet1$] 


الى اسم Sheet بملف الـ Excel

مثلاً لو كان Sheet باسم DataSheet

يصبح الاسم بهذا الشكل بنفس الطريقة

PHP كود :

[DataSheet$] 


صورة توضيح لاسماء Sheet

ثانياً اسم العمود

الخاص بـ [ID] اليك صورة للتوضيح

ثالثاً وهو اسم ومسار الملف

PHP كود :

D:\file.xlsx 


رابعاً وهو الاهم كود الاتصال (هام)

كود :

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & MyExcl & ";Extended Properties=Excel 12.0;"

اذا كان الملف بصيغة XLSX اى اصدار 2007 وما اعلى

اجعل الكود كما هو بدون اى تغيير

لكن اذا كان الملف بصيغة XLS اى اصدار 2003 وما ادنى

فاجعل الكود بهذه الطريقة

كود :

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyExcl & ";Extended Properties=Excel 8.0;"

ان شاء الله يكون الشرح مبسط وبه كل ما تريد

تحياتى لك

وتمنياتى لك التوفيق