تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] البحت عن اسم من excel في جميع الشيتات واضافته الداتا قريد فيو
#1
البحت عن اسم من ملف excel في جميع الشيتات  واضافته الداتا قريد فيو 
الرد }}
تم الشكر بواسطة:
#2
فقط قم باستخدام الكود التالى
كود :
       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 , asemshahen5
#3
شكرا اخي   [b]elgokr[/b]  كفيت و وفيت
هل هناك طريق للبحت عن اسم الشخص مكان id اريد البحت عن الشخص بالاسم 
شكرا لك مرة اخرى
الرد }}
تم الشكر بواسطة:
#4
ضع بدلاً من 
PHP كود :
[ID

باسم العمود الذى تريد البحث فيه
PHP كود :
[name

وكذالك
PHP كود :
[date]
Or
[
time]
Or
[
total

كما يمكنك بالبحث باكثر من عمود من خلال
كود :
WHERE [name] = " & TextBox1.Text & " [time] = " & TextBox2.Text

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

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
#5
جربت اخي لاكن يطلع خطأ 
Aucune valeur donnée pour un ou plusieurs des paramètres requis.
الرد }}
تم الشكر بواسطة: عبد الهادي بهاب
#6
(11-06-18, 08:13 AM)devxs كتب : جربت اخي لاكن يطلع خطأ 
Aucune valeur donnée pour un ou plusieurs des paramètres requis.

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

او ضح صورة لملف Excel وهو مفتوح
وع الكود الذى استخدمته بعد ما قمت عليه من التعديلات

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

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: devxs , asemshahen5 , عبد الهادي بهاب
#7
تفضل اخي حين البحت ب ID شغال بدون مشاكل لاكن عندما احاول البحت name يطلعلي خطأ 


الملفات المرفقة
.rar   data.rar (الحجم : 63.48 ك ب / التحميلات : 83)
الرد }}
تم الشكر بواسطة: عبد الهادي بهاب
#8
فقط قم باستبدال سطر الاستعلام بهذا السطر
كود :
Dim MyComm As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM [Feuil1$] WHERE [name] = '" & TextBox1.Text & "'", MyConn)

وسيعمل معك بدون اى مشكلة 
صورة نتيجة الاستعلام

تحياتى لك
وتمنياتى لك النوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: devxs , عبد العزيز البسكري , asemshahen5
#9
(11-06-18, 09:34 AM)elgokr كتب : فقط قم باستبدال سطر الاستعلام بهذا السطر
كود :
Dim MyComm As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM [Feuil1$] WHERE [name] = '" & TextBox1.Text & "'", MyConn)

وسيعمل معك بدون اى مشكلة 
صورة نتيجة الاستعلام

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

 شكرا اخي
الرد }}
تم الشكر بواسطة: elgokr , asemshahen5 , عبد الهادي بهاب
#10
الشكر لله

تمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: devxs , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التصدير من الداتا الى الاكسل العيدروس 9 3,620 24-06-22, 04:29 PM
آخر رد: atefkhalf2004
  الوقوف على سطر معين بالداتا قريد فيو ابو اسماعيل33 6 216 19-06-22, 01:59 AM
آخر رد: سعود
  Remove excel from memory after close moh8880 2 186 18-06-22, 07:19 AM
آخر رد: asmarsou
  كيف يتم جعل اول سطر فى الداتا جريد فيو يظهر الرصيد السابق السيد الجوهري 8 3,331 27-05-22, 05:06 AM
آخر رد: حيدر الحداد
  [سؤال] استفسار عن تحويل كود طباعة داتا قريد فيو من اليسار لليمين Marwan9990 15 6,290 25-05-22, 11:39 PM
آخر رد: atefkhalf2004
  [VB.NET] كود تصدير قاعدة البيانات إلى ملف Excel محمد العامر 8 3,021 23-03-22, 07:20 PM
آخر رد: نسيم الشباطي
  [سؤال] طريقة الادخال اليدوي في الداتا جريد فيو وحفظها تلقائيا safralfahd 11 1,383 19-03-22, 07:59 PM
آخر رد: safralfahd
Sad هل استطيع حذف بيانات العمود فى الداتا جريد لعدة صفوف حسين ادريس 2 554 19-03-22, 08:21 AM
آخر رد: حسين ادريس
  تعبئة الداتا جريد من اكثر من قاعدة البيانات mohmeed 3 749 20-02-22, 10:25 PM
آخر رد: mohmeed
  [سؤال] مشكلة عند الاختيار من الكمبوبكس تختفي الداتا جريد safralfahd 5 735 11-02-22, 01:14 AM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم