با سلام به دوستان و اساتید
سوالم رو اینجوری مطرح می کنم :
تو دیتا بیس یه فیلدی داریم بنام variz که مه مقدار عددی می گیرد
حال می خوام توی فرم یه دستوری بنویسم که توی یک label یا textbox
محموع مقادیر این فیلد واریز را نشان بده؟
میشه این دستور را برام بنویسید؟
دوست عزیز
به اولین رکورد از دیتابیس برید و تمام مقادر واریز وارده شده را تا انتها خوانده و با هم جمع کنید و در نهایت در یک
Lable نمایش بدید.
حالا هر جاش که مشکل دارید بگید تا دقیبق تر راهنمائی کنیم.
میشه در قالب کد یک مثال بزنید
من فرض می کنم شما با استفاده از کنترل 1Data به بانک اطلاعاتی اکسس متصل شدید :
کد:
data1.recordset.MoveFirst
While Data1.RecordSet.EOF <> True
Variz = Data1.RecordSet.Fild ("Variz")
VKol = VKol + Variz
Data1.RecordSet.MoveNext
Wend
Lable1 = VKol
دوست عزیز کد شما را در قسمت vkol = vkol + code ارور run time 13
type mismach می گیرد
ضمنا من از adodc1 استفاده می کنم
کد را بصورت زیر تغییر دادم درست شد
بازم ممنون
کد:
Private Sub Form_Load()
Adodc1.Recordset.MoveFirst
vkol = 0
While Adodc1.Recordset.EOF <> True
code = Adodc1.Recordset.Fields("code")
vkol = vkol + code
Adodc1.Recordset.MoveNext
Wend
Lable1 = vkol
End Sub[hr]
فقط یه مشکل کوچولو
در همان لحظه اگر ار داخل دیتا گرید مقادیر را تغییر بدیم label ما جمع ش در همان لحظه تغییر نمی کند؟
مشکل چیست؟
دوست عزیز
دیتابیستون رو ریفرش کنید و مجددا این عمل رو انجام بدید.