محاسبه اختلاف دو فیلد عددی و ثبت در یک فیلد دیگر

[robatic2009]

با عرض سلام و ادب
میخواستم از اساتید محترم سوال کنم مشکل این کد کجاست؟من توی برنامه ام دوتا تا ستون دارم به اسم های num1 , num2 m میخوام به صورت اتوماتیک وقتی روی یه دکمه کلیک می کنم num2-num1 کنه و جوابش رو در num2 بریزه
از دستور forاستفاده کردم که هر چقدر سطر داشتم برام به صورت اتوماتیک انجام بده این عمل رو




For i = 1 To Ado1.Recordset.RecordCount
Ado1.Recordset.Fields("num2") = Ado1.Recordset.Fields("num2") - Ado1.Recordset.Fields("num1")
Ado1.Recordset.Update
Ado1.Refresh
Ado1.Refresh
Next i

[isaac23]

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

نمونه کد:

Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Anbar.mdb;"
Adodc2.RecordSource = "SELECT * FROM Kala "
Adodc2.Refresh

Adodc2.RecordSource = "SELECT SUM(NUm1-NUM) as mysum FROM Kala"
Adodc2.Refresh
MySums = Adodc2.Recordset("mysum")
Text1 = MySums

از یه Adoct جداگانه واسه این کار استفاده کن غیر از اون adoct که دیتا گرد بهش وصل شده

[robatic2009]

سلام
تشکر بابت جواب دادنت
شما که آدرسی نگذاشتید
راستش من متوجه نشدم دقیقا چ جور هست و سر در نیاوردم
میشه با ی سورس مثال رو واضح تر کنید
تشکر

[isaac23]

ببین فکر کن من دو تا ستون دارم NUm, Num2 می خوام از هم کم کنه و بریزه توی یه تکس

باید اینکار رو بکنی

Adodc2.RecordSource = "SELECT SUM(Num -NUm 2) as mysum FROM alldata"
Adodc2.Refresh
MySums = Adodc2.Recordset("mysum")
Text1.Text = MySums



باز متوجه نشدی پیام بده
roz_7937@yahoo.com