عدم ذخيره شدن مقادير محاسبه شده در ديتابيس

[amiralex]

سلام به همه دوستان

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

مثلا يكي از محاسبات به اينصورته :

Dim A As Double
Dim A1 As Double
A = adoPrimaryRS.Fields(33)
A1 = adoPrimaryRS.Fields(6)
adoPrimaryRS.Fields(7) = A * A1



اما مشكل اينجاست بعد از محاسبه شدن در فيلد 7 نشون ميده مبلغ رو ولي وقتي فرم و ميبندم دوباره باز ميكنم هيچي تو اون فيلد 7 نيست


از اين حلقه براي ذخيره هم استفاده ميكنم اما جواب نميده ( تعداد افراد چون زياده مثلا 10 نفر قراره فيلد 7 اونها محاسبه بشه از حلقه استفاده كردم)


Dim i As Double
adoPrimaryRS.MoveFirst
For i = 1 To Me.txtrecord.Text
adoPrimaryRS.UpdateBatch
adoPrimaryRS.MoveNext
Next i



چي كار بايد بكنم؟

[ashkan1234]

به نظرم بهترین کار اینه که وقتی داری فیلد 33 و فیلد 6 رو ذخیره میکنی،محاسبه و ذخیره فیلد 7 رو اونجا قرار بده!
البته اینجوری که شما نوشتی برات مشکل ساز میشه!adoPrimaryRS.Fields(7) = A * A1
A و A1 یک مقدار رشته است!که باید به val تبدیلش کنی و بعد محاسبه رو انجام بدی!

[Hashemvp]

ashkan1234 (http://barnamenevis.org/member.php?258329-ashkan1234) درست میگه برای محاسبه عددی بهتره از تابع val استفاده کنی و چون متغیر ها رو تعریف کردی فکر نکنم نیازی باشه برای اپدیت کردن هم اگه اون روش جواب نمیده از این روش استفاده کن


adoPrimaryRS.Update 7, A * A1

موفق باشی