یه سوال ساده ...

دوستان بهم بگید تو VB چطو میتونم مقادیر مختلف یه فیلد رو بخونم

مثلا مقدار فلان فیلد از یه دیتا بیس رو توی یه متغیر بریزه

sum=data1.recourdset.filds(a)

چنین چیزی درسته؟
مثلا فیلد a هرچی توشه رو بریزه تو sum

بله که میشه !! اما اصلا توصیه نمیشه .. چون رکورد فعلیت آخرین رکوردی هست که رو اون فعالیت انجام دادی مثلا شما می خوای به رکورد 100 دست رسی داشته داشی اما فکوس روی رکورد 1 هست یا روی آخرین رکورد میره که اونجوری باید بعد از محاسبه رکورد با دستور move که به صورت زیر هست به اون رکورد بری بعد اون فیلد رو بخوانی تا edit کنی :

کد:

---

Me.Data1.Recordset.Move (X)

---

X عدد رکورد مورد نظر هست (رکورد ها از صفر شمار گذاری میشن)

بعد اون رکورد رو با شکل صحیح کد که گذاشتی خواند :

کد:

---

a = Me.Data1.Recordset.Fields("name").Value

---

برای اضافه کردن هم باید :

کد:

---

Me.Data1.Recordset.AddNew
Me.Data1.Recordset.Fields("name").Value = "sara"

---

استفاده کنی البته شیئ data اولا امنیت نداره دوما با فارسی مشکلات فراوان داره و از همه مهم تر اینکه فایل های اکسس ساخته شده با Microsoft access رو پشتیبانی نمی کنه ..

برای حل این مشکلات بهتره از طرق ADODC این مشکلات رو حل کنی..

ممنون
میدونی هدفم چیه؟
میخوام مثلا همه مقادیری که تو فیلد a هست رو بخونه و با هم جمع کنه
تعداد زیادی هم رکورد باشه

خوب بازم جوابت همون پست قبلی هست.. فقط باید زحمت استفاده از کد رو در برنامه بکشی ! ((-:

من یک مثال برات میزنم با همون شیئ Data :

ما یک mdb به نام db1 داریم یک جدول به نام ta1 داخل اون ایجاد می کنیم و یک فیلد به نام a داخل اون ایجاد می کنیم...

2 تا لیست باکس هم برای قشنگی به برنامه اضافه می کنیم تا ببینم چه رخداد هایی در برنامه اتفاق می افته.!-:

اول اعداد 1 تا 10 رو داخل فیلد a می ریزم:(می تونی این کد رو داخل یک باتون قرار بدی)

کد:

---

For i = 0 To 9
    Data1.Recordset.AddNew
    Data1.Recordset.Fields("a").Value = i + 1
    Me.List1.AddItem (Data1.Recordset.Fields("a").Value)
    Me.Data1.Recordset.Update
Next i

---

در آخر هم باید مقادیر رو به هم جمع کنیم :(این کد هم می تونی داخل یک باتون دیگه بگذاری)

کد:

---

Dim sum As Integer
Dim RecNumber As Integer: RecNumber = 0
'-------------------------
Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF
    sum = sum + Data1.Recordset.Fields("a").Value
    Me.List2.AddItem (Data1.Recordset.Fields("a").Value)
    Data1.Recordset.MoveNext
    RecNumber = RecNumber + 1
Loop
Print ("Sum Value is = " & Str(sum))
Print ("All Record Number = " & Str(RecNumber))

---

خروجی همه چیز رو بیان می کنه !! به همین راحتی !!-:

خیلی مرسی :n12: