PDA

View Full Version : سوال: گرفتن و نمایش مجموع رکورد ها



Juventus FC
جمعه 23 مرداد 1394, 13:00 عصر
درود بر اساتید

چه طور میشه به فرض در پایگاه داده 10 تا رکورد داشته باشی و با vb به این 10 رکورد فرمان بدی که با هم جمع بشن و نتیجه را در یک مثلا تکست باکس نمایش بدهند ؟

در واقع من یک فرم دارم که 1 تکست باکس داره و یک دیتاگرید ! در تکست باکس عدد وارد میشه و پس از وارد شدن و زدن دکمه Run میره در پایگاه داده اکسس و سریع در دیتاگرید نمایشش میده ! حالا میخواهم کاری کنم که هر عددی که وارد میشه با قبلی جمع بشه و به صورت آنلاین در یک تکس باکس در همون فرم نمایش داده بشه ، من کدش و میدونم که به این ترتیب هست :


If Text9.Text = "" Then
Exit Sub
Else
Text10.Text = Val(Text10.Text) + Val(Text9.Text)
Timer1.Enabled = False
End If


مشکل این کد این هست که :

1) اگر رکوردی از پایگاه داده حذف شد در تکست 10 هیچ تغییری ایجاد نمیشه و همون مقدار قبلی محموع باقی میمونه.
2) اگر کل رکورد ها هم حذف بشن از پایگاه داده باز هم تکست 10 همون مقدار آخر نشون میده.

به قولی ایستا هست پویا نیست فقط میتونه با عدد وارد شده در تکست قبلی جمع بکنه و نمایش بده همین. تغییرات نمیتونه دقیق اعمال بکنه ! من میخواهم پویا باشه و تغییرات و حس کنه و عمل بده.

isaac23
شنبه 24 مرداد 1394, 09:53 صبح
Dim sum
Adodc1.Recordset.MoveFirst
sum = 0
For i = 0 To Adodc1.Recordset.RecordCount
sum = sum + DataGrid1.Columns.Item(5)
Adodc1.Recordset.MoveNext
Next i
Text10.Text = sum



به جای DateGrid میشه Adoct هم نوشت...Adoct1.Recordset.Filde.(Sum)