-
پایان فعالیت بخشهای انجمن: امکان ایجاد موضوع یا نوشته جدید برای عموم کاربران غیرفعال شده است
مشکل این برنامه کجاست
- شروع کننده موضوع salarblacklove
- تاریخ شروع
Y.P.Y
Registered User
من این برنامه رو دارم می نویسم ولی یک مشکل دارم اونم اینه که وقتی میخوام ذخیره کنم خطا میده نتونستم مشکل رو حل کنم
1- همیشه در بالای کد فرم هاتون از دستور Option Explicit استفاده کنید!
2- در ساب Form_Unload و Form_QueryUnload دستور Cancel = 0 رو قرار بدید.
3- اینگونه تعریف متغیر اشتباه است:
کد:
Dim nam, famil, f_name, code, b_date, id, sodor, mobile, tel, job, address, _
morafe, gender, standard, Time, s_shoro, s_payan, dore, t_shoro, t_payan, sheft, morabi, kart As Stringصحیح:
کد:
Dim xxx As String, zzz As String, yyy As String4- از Import(وارد) کردن Component های اضافی به داخل نرم افزار خودداری کنید.
5- هنگاه تعریف توابع از فایلهای کتابخانه ای(DLL)، نام فایل و پسوند فایل رو دقیقاً مشخص کنید. User32.dll, Kernel32.dll...
6- از نامهای پیش فرض برنامه(VB) برای نامگذاری استفاده نکنید! مثل Data, Text, Time,...
این خطا هم بدلیل کاراکتر فاسی هست که با دستورات برنامه/SQL یکی شده. دستورات SQL رو جداگانه در یک ویرایشگر SQL قرار بدید و چکشون کنید.
من کمی تغییرات در برنامه ایجاد کردم. از این استفاده کنید.
rouzbeh_ziafati
Registered User
در بانک اکسس
یکی از جداول من تعداد رکوردهایی که توی دیتاگرید نشون میده یکی بیشتر از تعداد رکوردهایی هست که توی بانک نشون میده !
وقتی می خوام رکوردها رو پاک کنم به همین دلیل خطای
row cannot be located for updating. some values may have been changed since it was last read
رو بهم میده !!!!
چکار باید بکنم ؟!؟! اصلا چرا این مشکل بوجود میاد هر از گاهی ؟ چطور رفعش کنم ؟ یکی کمک کنه که خیلی ضروریه
لازم به ذکر هست که برنامه من نوبت دهی به ماشین هاست برای بارگیری .
بعضی ماشین ها ممکن هست چند روز توی نوبت باشند .
برنامه هر شب سر ساعت 12 شب ماشین هایی رو که بیش از 3 روز هست توی نوبت هستند از جدول پاک میکنه . برنامه خوب کار میکنه اما هر از گاهی بعد از مدتی اون خطا رو میده و بسته میشه وقتی بررسی میکنم میبینم که یک رکورد توی بانک کمتر از تعداد رکوردهایی هست که توی جدول دارم . انگار که از بانک حذف شده اما از دیتا گرید یا شئی adodc حذف نشده !!!! نمی دونم ممکنه مشکل از کجا باشه ؟!؟!؟!
این یه قطعه کد از برنامه است
یکی از جداول من تعداد رکوردهایی که توی دیتاگرید نشون میده یکی بیشتر از تعداد رکوردهایی هست که توی بانک نشون میده !
وقتی می خوام رکوردها رو پاک کنم به همین دلیل خطای
row cannot be located for updating. some values may have been changed since it was last read
رو بهم میده !!!!
چکار باید بکنم ؟!؟! اصلا چرا این مشکل بوجود میاد هر از گاهی ؟ چطور رفعش کنم ؟ یکی کمک کنه که خیلی ضروریه
لازم به ذکر هست که برنامه من نوبت دهی به ماشین هاست برای بارگیری .
بعضی ماشین ها ممکن هست چند روز توی نوبت باشند .
برنامه هر شب سر ساعت 12 شب ماشین هایی رو که بیش از 3 روز هست توی نوبت هستند از جدول پاک میکنه . برنامه خوب کار میکنه اما هر از گاهی بعد از مدتی اون خطا رو میده و بسته میشه وقتی بررسی میکنم میبینم که یک رکورد توی بانک کمتر از تعداد رکوردهایی هست که توی جدول دارم . انگار که از بانک حذف شده اما از دیتا گرید یا شئی adodc حذف نشده !!!! نمی دونم ممکنه مشکل از کجا باشه ؟!؟!؟!
این یه قطعه کد از برنامه است
If Adodc8.Recordset.EOF <> True Then
Do While Adodc8.Recordset.EOF <> True
ekhtelaf = DateDiff("d", Right(Adodc8.Recordset.Fields(0), 8), Right(J_TODAY(1), 8))
If Val(ekhtelaf) > Adodc13.Recordset.Fields(0) Then
Adodc8.Recordset.Delete
End If
Adodc8.Recordset.MoveNext
Loop
End If
Do While Adodc8.Recordset.EOF <> True
ekhtelaf = DateDiff("d", Right(Adodc8.Recordset.Fields(0), 8), Right(J_TODAY(1), 8))
If Val(ekhtelaf) > Adodc13.Recordset.Fields(0) Then
Adodc8.Recordset.Delete
End If
Adodc8.Recordset.MoveNext
Loop
End If
rouzbeh_ziafati
Registered User
لازم به ذکر هم هست که اول من برنامه رو با شئی data نوشته بودم و اصلا با این خطا مواجه نمیشدم. اما چون مجبور شدم برای بانک پسوورد بگذارم مجبور شدم از شئی adodc بجای data استفاده کنم . و وقتی این کار رو کردم هر از گاهی با این خطا مواجه میشم .
بعضی از ارور ها رو با دستور
adodc.recordset.close
adodc.recordset.open
از بین بردم . اما این دو دستور پشت سر نیز باز نتونست جلوی همه خطاهارو بگیره !!!
بعضی از ارور ها رو با دستور
adodc.recordset.close
adodc.recordset.open
از بین بردم . اما این دو دستور پشت سر نیز باز نتونست جلوی همه خطاهارو بگیره !!!