خطای 2147217900-

[MMR_1344]

با سلام به تمامی دوستان
در برنامه خودم برای افزودن اطلاعات به فايل اکسس از دستور Execute طبق برنامه پيوست استفاده کرده ام اما برای برنامه جديدم مشکلی با کد خطای بيان شده در بالا بوجود آمده است
کدهای نوشته شده بصورت زير هستن


Dim Cnn As New ADODB.Connection
Dim Tbl As New ADODB.Recordset
Dim a, f As String
Cnn.CursorLocation = adUseClient
Cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
f = App.Path & "\123.mdb"
Cnn.Open f
a = "1": f = "nwkdl;qjhd;jbdljb"
Cnn.Execute "INSERT INTO Information (No,Index) VALUES ('& a &" ','" & f &"')"

[xxxxx_xxxxx]

احتمالاً به خاطر permission ها باید باشه. خط سوم از آخر رو به این صورت تغییر بدید:


Cnn.Open f, adOpenStatic, adLockOptimistic
لطفاً نتیجه رو اعلام کنید.

[MMR_1344]

دوست عزيز
با تغييرات شما اين ارور بوجود میآيد:قهقهه:
C:\Documents and Settings\Nima\My Documents\My Pictures

[MMR_1344]

نمیدونم چار نمیتونم از مديريت ضمائم برای ارسال استفاده کنم اگر میشد برنامه رو قرار میدادم به هر حال متشکر

[Dr.Bronx]

میشه در مورد اون کلمه ی F توضیح بدید چی هست ؟!
شما Cnn تعریف کردید دیگه اون f اونجا چی می گه ؟

[MMR_1344]

دوست مهربان
کلمه F متغيری که در خودش نام فايل اکسس و محل قرار گيری اون رو نگهداری می کنه که دستور Cnn بتونه اون رو باز کنه
تونستم فايل ضميمه رو هم بگذارم
به هر حال از تمامی دوستان متشکرم

[xxxxx_xxxxx]

به سه دلیل خطا میده:
1- شما نباید فیلدی با نام Index داشته باشید، چون Index از کلمات کلیدی و تعریف شده sql هست.
2- شما نباید فیلدی با نام No داشته باشید باز هم به همان دلیل بالا.
3- نصف دستور Insert شما سبزرنگ شده چطور متوجه نشدید که کوتیشن ها رو درست نگزاشتید. و این که فیلد No از نوع عددی هست و نیازی به تک کوتیشن نداره.

پس با توجه به موارد بالا اگر فرض کنیم فیلد Index را به Indexx تغییر نام داده ایم و فیلد No را Noo دستور به شکل زیر صحیح هست:


Cnn.Execute "INSERT INTO Information (Noo,Indexx) VALUES (" & a & ",'" & f & "')"

موفق باشید/

[sohrab o]

دوست عزیز اگر می تونی متن خطا رو بزار نه عددشو