[devxs]

البحت عن اسم من ملف excel في جميع الشيتات  واضافته الداتا قريد فيو 

[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;"

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

تحياتى لك

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

[devxs]

شكرا اخي   [b]elgokr[/b]  كفيت و وفيت
هل هناك طريق للبحت عن اسم الشخص مكان id اريد البحت عن الشخص بالاسم 
شكرا لك مرة اخرى

[elgokr]

ضع بدلاً من 

PHP كود :

[ID] 


باسم العمود الذى تريد البحث فيه

PHP كود :

[name] 


وكذالك

PHP كود :

[date]
Or
[time]
Or
[total] 


كما يمكنك بالبحث باكثر من عمود من خلال

كود :

WHERE [name] = " & TextBox1.Text & " [time] = " & TextBox2.Text

كما لو انك تقوم بتطبيق البحث والاستعلام فى قاعدة بيانات Access

تحياتى لك

[devxs]

جربت اخي لاكن يطلع خطأ 
Aucune valeur donnée pour un ou plusieurs des paramètres requis.

[elgokr]

(11-06-18, 08:13 AM)devxs كتب : جربت اخي لاكن يطلع خطأ 
Aucune valeur donnée pour un ou plusieurs des paramètres requis.

ارفق المشروع وملف الـ Excel

او ضح صورة لملف Excel وهو مفتوح

وع الكود الذى استخدمته بعد ما قمت عليه من التعديلات

وما هى القيمة التى قمت بكتابتها فى الاستعلام

تحياتى لك

[devxs]

تفضل اخي حين البحت ب ID شغال بدون مشاكل لاكن عندما احاول البحت name يطلعلي خطأ 

[elgokr]

فقط قم باستبدال سطر الاستعلام بهذا السطر

كود :

Dim MyComm As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM [Feuil1$] WHERE [name] = '" & TextBox1.Text & "'", MyConn)

وسيعمل معك بدون اى مشكلة 

صورة نتيجة الاستعلام

تحياتى لك

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

[devxs]

(11-06-18, 09:34 AM)elgokr كتب : فقط قم باستبدال سطر الاستعلام بهذا السطر

كود :

Dim MyComm As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM [Feuil1$] WHERE [name] = '" & TextBox1.Text & "'", MyConn)

وسيعمل معك بدون اى مشكلة 

صورة نتيجة الاستعلام

تحياتى لك

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

 شكرا اخي

[elgokr]

الشكر لله

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