کمک در مورد نحوه جمع کردن یک ستون DataGrid

[mamad_avril]

سلام و خسته نباشید خدمت اساتید
من یک دیتابیس اکسس دارم از نوع DataGrid که میخام با کلیک روی دکمه ای توی فرم، اعداد ستون دوم اون جمع و در textbox نمایش داده بشه
خیلی توی سایتهای خارجی گشتم اما به جایی نرسیدم
ممنون میشم اگه کمک کنین
VB6

[ahmad abdoli]

سلام

Adodc1.RecordSource="SELECT Sum(نام ستون دوم) AS JamKol FROM نام جدول"

text1.text=Adodc1.Recordset.Fields("JamKol")

[mamad_avril]

دوست خوبم ممنون اما این پیغام رو میده وقتی ران میکنم
Item cannot be found in the collection corresponding to the requested name or ordinal
دیباگر از خط دوم خطا میگیره

[ahmad abdoli]

سلام مجدد اینطوری اصلاح کن کد رو

Adodc1.RecordSource="SELECT Sum(نام ستون دوم) AS JamKol FROM نام جدول"

َAdodc1.Refresh



text1.text=Adodc1.Recordset.Fields("JamKol")

[mamad_avril]

خیلی ممنون. کاملا عالی
حالا من هی سوالام بیشتر میشه ببخشید!
دو تا مشکل کوچیک هست فقط! یکیش اینکه وقتی روی دکمه جمع کلیک میکنم و کد اجرا میشه بخاطر سطر دوم، تمام اطلاعات دیتاگرید روی فرم رو محو میکنه.
و دوم اینکه من تکس باکس هایی توی فرم دارم که وقتی متن توش تایپ میکنم دیتا گرید رو فیلتر میکنه. با این کد :
ado.RecordSource = "Select *from phone where family='" & Text2.Text & "'"
مثلن اگه کلا 5 تا رکورد وجود داشته باشه وقتی فیلترش میکنم، 2تا رکورد توی دیتاگرید نشون میده و در نهایت روی دکمه جمع زدن که کلیک میکنم، میخام جمع همون 2 تا رکورد فیلتر شده توی دیتاگرید رو نشون بده اما با این کد جمع همون 5 تا رکورد کلی رو نشون میده

[ahmad abdoli]

سلام مجدد

سوال اولتون رو متوجه نشدم


اما برا سوال دوم جون شما برای جستو جو از شرط where استفاده کردید برای جمع زدن هم باید اون شرط رو توی کد جمع کردن استفاده کنید وگر نه همه جدول در نظر گرفته می شه

Adodc1.RecordSource="SELECT Sum(نام ستون دوم) AS JamKol FROM نام جدول where family='" & Text2.Text & '"



َAdodc1.Refresh



 

text1.text=Adodc1.Recordset.Fields("JamKol")

[hamed_vb]

دوست عزیز کد زیر رو کپی کن توی Command باکسو مولفه هاشم رعایت کنن

If Adodc1.Recordset.RecordCount > 0 Then

Adodc1.Recordset.MoveFirst

For i = 1 To Adodc1.Recordset.RecordCount

jam = jam + Val(DataGrid1.Columns(3).Text)

Adodc1.Recordset.MoveNext

Next

Label2.Caption = jam

Adodc1.Recordset.MoveFirst

Else

Label2.Caption = "0  ريال"

End If

[isaac23]

این روش اصلا بدرد نمیخوره واسه اطلاعات زیاد باید یک ساعت فقط از بالا تا پایین رو چک کنه.
با sql بهترین حالت ممکنه رو داره

[m.4.r.m]

سلام مجدد

سوال اولتون رو متوجه نشدم

اما برا سوال دوم جون شما برای جستجو از شرط where استفاده کردید برای جمع زدن هم باید اون شرط رو توی کد جمع کردن استفاده کنید وگر نه همه جدول در نظر گرفته می شه

Adodc1.RecordSource="SELECT Sum(نام ستون دوم) AS JamKol FROM نام جدول where family='" & Text2.Text & '"

َAdodc1.Refresh

text1.text=Adodc1.Recordset.Fields("JamKol")

در قسمت اول چون ارتباط جدول رو با‌adodc1 گرفتین و برای جمع مجدداً از Adodc1 استفاده می کنین میاد اطلاعات رو رفرش می کنه و فقط جمع رو نشون میده برای این کار می تونید از‌adodc2 استفاده کنید و از نتیجه‌adodc2 استفاده کنید.