+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] البحت عن اسم من excel في جميع الشيتات واضافته الداتا قريد فيو (/showthread.php?tid=25335)
الصفحات:
1
2
البحت عن اسم من excel في جميع الشيتات واضافته الداتا قريد فيو - devxs - 11-06-18
البحت عن اسم من ملف excel في جميع الشيتات واضافته الداتا قريد فيو
RE: البحت عن اسم من excel في جميع الشيتات واضافته الداتا قريد فيو - elgokr - 11-06-18
فقط قم باستخدام الكود التالى
كود :
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;"ان شاء الله يكون الشرح مبسط وبه كل ما تريد
تحياتى لك
وتمنياتى لك التوفيق
RE: البحت عن اسم من excel في جميع الشيتات واضافته الداتا قريد فيو - devxs - 11-06-18
شكرا اخي [b]elgokr[/b] كفيت و وفيت
هل هناك طريق للبحت عن اسم الشخص مكان id اريد البحت عن الشخص بالاسم
شكرا لك مرة اخرى
RE: البحت عن اسم من excel في جميع الشيتات واضافته الداتا قريد فيو - elgokr - 11-06-18
ضع بدلاً من
PHP كود :
[ID]
باسم العمود الذى تريد البحث فيه
PHP كود :
[name]
وكذالك
PHP كود :
[date]
Or
[time]
Or
[total]
كما يمكنك بالبحث باكثر من عمود من خلال
كود :
WHERE [name] = " & TextBox1.Text & " [time] = " & TextBox2.Textكما لو انك تقوم بتطبيق البحث والاستعلام فى قاعدة بيانات Access
تحياتى لك
RE: البحت عن اسم من excel في جميع الشيتات واضافته الداتا قريد فيو - devxs - 11-06-18
جربت اخي لاكن يطلع خطأ
Aucune valeur donnée pour un ou plusieurs des paramètres requis.
RE: البحت عن اسم من excel في جميع الشيتات واضافته الداتا قريد فيو - elgokr - 11-06-18
(11-06-18, 08:13 AM)devxs كتب : جربت اخي لاكن يطلع خطأ
Aucune valeur donnée pour un ou plusieurs des paramètres requis.
ارفق المشروع وملف الـ Excel
او ضح صورة لملف Excel وهو مفتوح
وع الكود الذى استخدمته بعد ما قمت عليه من التعديلات
وما هى القيمة التى قمت بكتابتها فى الاستعلام
تحياتى لك
RE: البحت عن اسم من excel في جميع الشيتات واضافته الداتا قريد فيو - devxs - 11-06-18
تفضل اخي حين البحت ب ID شغال بدون مشاكل لاكن عندما احاول البحت name يطلعلي خطأ
RE: البحت عن اسم من excel في جميع الشيتات واضافته الداتا قريد فيو - elgokr - 11-06-18
فقط قم باستبدال سطر الاستعلام بهذا السطر
كود :
Dim MyComm As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM [Feuil1$] WHERE [name] = '" & TextBox1.Text & "'", MyConn)وسيعمل معك بدون اى مشكلة
صورة نتيجة الاستعلام
تحياتى لك
وتمنياتى لك النوفيق
RE: البحت عن اسم من excel في جميع الشيتات واضافته الداتا قريد فيو - devxs - 11-06-18
(11-06-18, 09:34 AM)elgokr كتب : فقط قم باستبدال سطر الاستعلام بهذا السطر
كود :
Dim MyComm As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM [Feuil1$] WHERE [name] = '" & TextBox1.Text & "'", MyConn)
وسيعمل معك بدون اى مشكلةصورة نتيجة الاستعلام
تحياتى لكوتمنياتى لك النوفيق
شكرا اخي
RE: البحت عن اسم من excel في جميع الشيتات واضافته الداتا قريد فيو - elgokr - 11-06-18
الشكر لله
تمنياتى لك التوفيق