تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كود التعديل علي حقل في الاكسس اسامه الهرماوي 3 48 منذ 8 ساعة مضت
آخر رد: الحازمي
  [VB.NET] عندما يكون حقل معين في الداتا جريد فيو ممتلا يمنع التعديل khairallah 3 100 13-07-19, 10:24 AM
آخر رد: ابراهيم ايبو
  [سؤال] ارجو المساعده فى هذا الملف bdwwsyd 9 276 09-06-19, 12:24 AM
آخر رد: ابراهيم ايبو
  [VB.NET] ارجو المساعدة في crystal report 0theghost0 9 638 29-05-19, 03:06 PM
آخر رد: sami4
  [VB.NET] التعديل علي عمود اسامه الهرماوي 1 134 23-05-19, 01:26 AM
آخر رد: ملهمـ
  سؤال حول TextBox مرتبط ب WebBrowser ارجو رد من الاخ DK-x وشكرا للاخ بدري حاتمي 4 175 09-04-19, 06:16 PM
آخر رد: حاتمي
  ارجو المساعده فى ظهور هذا الخطأ فى اضافه اصناف للفاتوره خالد كامل1 3 223 09-04-19, 03:22 AM
آخر رد: elgokr
  كود التعديل و الحفظ و كود الادراج او اضافة سجل جديد anis 11 629 06-04-19, 06:08 PM
آخر رد: Emam emam
  [VB.NET] محتاج التعديل على الكود backgroundworker mysql progressbar dubai.eig 6 278 02-04-19, 10:16 AM
آخر رد: dubai.eig
  [VB.NET] التعديل في احد اصفف DataGridView dubai.eig 5 241 24-03-19, 04:18 PM
آخر رد: حريف برمجة

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


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