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

الصفحات : 1 2

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

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

كود :

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

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

تحياتى لك

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

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

ضع بدلاً من

PHP كود :

[ID] 

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

PHP كود :

[name] 

وكذالك

PHP كود :

[date]
Or
[time]
Or
[total] 

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

كود :

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

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

تحياتى لك

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

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

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

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

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

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

تحياتى لك

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

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

كود :

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

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

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

تحياتى لك

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

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

كود :

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

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

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

تحياتى لك

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

شكرا اخي

الشكر لله

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

الصفحات : 1 2