مشکل در دستور For

[RezaS_1354]

با سلام به جمعی دوستان بی غل و غش که بدون هیچ ادعا و انتظاری اطلاعات خود را در اختیار دیگران قرار می دهند من دیتا بیس در اکسس دارم که یک فیلد دارد و و قتی دستور for را در وی بی اجرا میکنم در شی لیست باکس جواب می دهد ولی در پایگاه داده بوسیله Adodc اجرا نمی شود و error می دهد نمونه ای از کد را در ذیل گذاشتم با سپاس از عزیزانی که می توانند بنده را راهنمایی کنند یا علی.

Private Sub Timer1_Timer()
On Error GoTo SrdErr
'
'my problems is.............
Dim SrData As Integer
For SrData = 0 To 10
List1.AddItem SrData
Adodc1.Recordset.AddNew
Adodc1.Recordset.UpdateBatch adAffectAll
Next SrData
'
Exit Sub
SrdErr:
'
MsgBox Err.Description
'
'Adodc in DataBase Access Have Only One Field("nNumber")
'
End Sub

[hrj1981]

PrivateSub Timer1_Timer()
On Error GoTo SrdErr
'
'my problems is.............
Dim SrData As Integer
For SrData = 0 To 10
List1.AddItem SrData
Adodc1.Recordset.AddNew
Adodc1.Recordset.UpdateBatch adAffectAll
Next SrData
'
Exit Sub
SrdErr:
'
MsgBox Err.Description
'
'Adodc in DataBase Access Have Only One Field("nNumber")
'
End Sub

[hrj1981]

دوست عزیز متغییر SrData را از نو long انتخاب کن ببین درست می شه

[RezaS_1354]

دوست عزیز از اینکه راهنمایی فرمودید ممنون هستم ولی long را هم قبلاٌ امتحان کردم ولی نتیجه نگرفتم شما بیزحمت فکرتان را متمرکز روی قسمت addnew در Adodc که به دیتا بیس اکسس متصل هست بفرمائید فکر میکنم مشکل حل شود چون دستور for اگر اجرا بفرمایید در وی بی میبینید که درست کار میکند ولی در اکسس ذخیره نمی شود باز هم ممنون

[hrj1981]

در کد ذخیره سازی آخر آن را با کد زیر عوض کن ببین درست می شه
Adodc1.Recordset.UpdateBatch adAffectCurrent

[RezaS_1354]

میتونم از شما خواهش کنم این کد را در یک پروژه جدید وی بی تست کنید فکر میکنم اینطور راحتتر به جواب برسید ممنون

[hrj1981]

شاید این سورس کمکت کنه

[RezaS_1354]

بابا خیلی ایول داری دمت گرم بیخود نبود اینقدر پاچه خواری کردم استحقاق آن را داشتی و خیلی بیشتر همین که جواب دادی اگر اشتباه هم بود ولی لطف کردی ریا نمی کنم درسته درست ممنون و با سپاس فراوان