الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في الاستعلام من جدولين مع خاصية Sum

بدأه ذاكر في 23 أبريل 2009 · 3 رد · 594 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه ،،

اخوتي اعضاء المنتدي الكريم

بعد عمل متواصل لشهرين في برنامج محاسبي واجهتني مشكله لم اجد لها حلا

وهي

اريد ان استعلم من جدولين الاول يحمل رقم المورد واسمه والثاني يحمل اجمالي الفواتير واجمالي المدفوعات مع وجود رقم المورد وهو الرابط بين الجدولين

ما اريدة في الاستعلام هو جمع اجمالي فواتير الموردواجمالي مدفوعاته بشرط رقم المورد ومن الجدول الاخر يجلب اسم المورد ليضعها في داتا جريد حيث اني لا اريد ان احفظ اسم المورد في جدول الثاني لاحتمال تعديل في الاسم

استخدمت كود نجح في جميع الاستعلامات معدا الذي يحوي خاصية sum فانه يعطي رسالة خطا بعدم وجود حقل اسم المورد ويقف عند كلمة رفرش الاادودسي

اليكم الكود

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\afri.mdb;Persist Security Info=False"

SQLs = ("SELECT totalsell.name,totalsell.nomard,sanf.mnum,sanf.mname,sum (totalsell.totaly) as totaly1, sum (totalbuy.esf) as esf1,totaly1 - esf1 as too FROM [totalsell] ,[sanf]where totalsell.nomared = " & text1 & "  and totalsell.nomared = sanf.mnum  group by totalsell.nomard")





Adodc1.RecordSource = SQLs

Set DataGrid1.DataSource = Adodc1

Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then

Adodc1.Recordset.MoveLast

End If

حيث ان اسم جدول الموردين(sanf)

واسم حقل رقم المورد في جدول الموردين (mnum)

واسم حقل اسم المورد في جدول الموردين (mname)

واسم جدول الاجماليات (totalsell)

واسم حقل رقم المورد في جدول الجماليات (nomoared)

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

وشكرا

#2

ونكم شباب

#3

أرجو إرفاق الجزء الذي فيه مشكلة من المشروع ليتم التعديل عليه.

هذه الجملة خاطئة  :wacko: 


#4

اشكرك اخي علي الرد والمشكلة تكمن في الكود السابق

ولكن بعد بحث وجهد جهيد ومساعدة من الاستاذ الفاضل فياض الجاك

توصلت للحل

وهذا الكود لتعم الفائدة

SQLs = ("SELECT totalsell.name,totalsell.nomard,min(sanf.mname) as name1,sum (totalsell.totaly) as totaly1, sum (totalbuy.esf) as esf1,totaly1 - esf1 as too FROM [totalsell] ,[sanf]where totalsell.nomared = " & text1 & " and totalsell.nomared = sanf.mnum group by totalsell.nomard")

علي ان يكون اسم الحقل في الداتا جريد هو name1

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…