تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو التعديل على كودالاستعلام Group By
#1
السلام عليكم
لدى جملة استعلام اريد عرض عرض بيانات العملاء بدون تكرار الاسماء اكتر من مرة

الجدول بيسجل فية بيانات العميل اكتر من مرة
اريد عند العرض فى الجريد يظهر البيانات بدون تكرار
كود :
  tb_table.Clear()
       Dim cmd As New OleDbCommand("SELECT custCode,custName,custID,tel from tblCustomers Group By [custCode]", con)
       con.Open()
       tb_table.Load(cmd.ExecuteReader)
       dvgView.DataSource = tb_table
       con.Close()
الجملة لا تعمل
 والكود التالي يعمل لكن مع عرض كل البيانات لا يعمل
ومع عرض اكتر من حقل لا يعمل
كود :
 Dim qury As String = "SELECT custCode,custName,custID,custAddress,custTel FROM tblCustomers Group By [custCode] "
       adapter2 = New OleDbDataAdapter(qury, con)
       adapter2.Fill(ds, "cust")
       dvgCustomer.DataSource = ds.Tables("cust")
الرد
تم الشكر بواسطة:
#2
مرحباً اخى new_programer

كل ما عليك فعله ان تجعل كود الاستعلام بهذا الشكل
كود :
SELECT custCode,MIN(custName) as CuName,MAX(custID) as CusID,MIN(tel) as Phone from tblCustomers Group By custCode

يمكنك تغيير مسمى الكلمة بعد التى يلى كلمة as لما هو يناسبك من مسميات
كما يمكنك ان تجعلها مسميات عربي
حتى يظهر فى الداتا جريد عنوان كل عمود المسمى العربي دون الحاجة لعمل كود تغيير مسمى كل عمود

مثل ان يكون الاستعلام بهذا الشكل
كود :
SELECT custCode as `كود العميل`,MIN(custName) as `اسم العميل`,MAX(custID) as `رقم العميل`,MIN(tel) as `هاتف رقم` from tblCustomers Group By custCode

ستجد ما تقوم به من مسميات بالعربية تلقائي ادرج فى الداتا جريد بنفس المسميات
وينطبق الامر كذلك على الاستعلام العادى و البحث فكلمة as تعنى تغيير مسمى العمود للمسمى الذذى تريد ان يعرض به

وكلاً من جمل MIN و MAX المستخدمة هو لاخد اقبل قيمة او اقل قيمة
يعنى فى اسم العميل اذا كان العميل تحت اسم كمثال
محمد احمد محمد
واخر باسم
محمد احمد

فهنا يسعرض محمد احمد لكوننا استخدمنا MIN اى الاقصر / الاقل
و MAX خاصة عمود ID فتم استتخدامه بحيث
لنقول ان العميل له ID برقم 5 و ID برقم 6 سياخد اكبرهم واذا كان الكل متشابه فسيعرض واحد منهم

اتمنى ان يكون الشرح كامل لما تريده ان تتعلمه فى التعامل مع Group By

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: dubai.eig , new_programer , بدري
#3
شكرا لك استاذ - الجوكر
لكن بينه الكود غريبة  لكن سوف اقوم بالتجربة والتعديل
هل يوجد طريقة أخري لعرض البيانات بدون تكرار
الرد
تم الشكر بواسطة:
#4
الشكر لله والحمد لله
والحمد لله على كل حال

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود بحث المشكله لم تنحل ارجو المساعده mostafa12 3 111 منذ 11 ساعة مضت
آخر رد: mostafa12
  [VB.NET] بعد تعبئة خانة معينة منع التعديل في النموذج khairallah 3 80 15-10-19, 03:51 PM
آخر رد: elgokr
  طلب التعديل على هذا الكود ليضيف من التكست بوكس لملف التكست الخارجى على زهران 4 86 11-10-19, 02:59 AM
آخر رد: على زهران
Exclamation ارجو المساعده على زهران 2 74 08-10-19, 11:12 PM
آخر رد: على زهران
  [سؤال] اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت nazarakrawi 7 151 02-10-19, 10:21 PM
آخر رد: asemshahen5
Smile ممكن مساعده في حل هذي المشكله لو سمح يحدث معي عند التعديل moh123456 3 127 02-10-19, 07:57 PM
آخر رد: asemshahen5
  كود التعديل anis 1 83 20-09-19, 07:11 PM
آخر رد: ابراهيم ايبو
  [سؤال] ارجو المساعده فى خطأ فى الجمله الشرطيه على زهران 4 142 16-09-19, 11:57 PM
آخر رد: يونس علي
Tongue [VB.NET] ارجو المساعده في طباعه تقرير كريستال ريبورت؟؟!!!! elnfsyamstwya 5 167 06-09-19, 03:52 AM
آخر رد: elnfsyamstwya
  مشكلة غريبة مع كود تقسيم النص ارجو المساعدة dametucorazon 2 129 05-09-19, 07:24 PM
آخر رد: dametucorazon

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


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