PDA

View Full Version : سوال: خطای شماره 91



dadsara
یک شنبه 07 تیر 1388, 11:04 صبح
سلام
من توسط اکسس پروجکت به بانک SQL متصل شده ام
در طراحی یک فرم که قصد داشتم عملیات جستجوی یک رکورد خاص را توسط RecordSet انجام دهد با خطای شماره 91 مطابق تصویر پیوست مواجه شدم .
درصورت امکان لطف کنید بفرمائید علت بروز خطا چیست

Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("select * from main where (accesskey = '" & Text0 & "')")
Me.Text2 = rst.Fields(1)

dadsara
سه شنبه 09 تیر 1388, 13:35 عصر
اگر از دوستان کسی به راه حلی رسیده اعلام کند

HAMRAHSOFT.IR
سه شنبه 09 تیر 1388, 15:00 عصر
روش ديگري غير از RecordSet ميشه استفاده كرد مثلان يك كوئري بزاري پشت فرم و بعد با گزينه فيلتر اين كار انجام بدي

dadsara
چهارشنبه 10 تیر 1388, 07:14 صبح
سلام
باتوجه به اینکه من قبلا تمام قسمتهای این نرم افزار را نوشته ام و بنا به دلایلی قصد دارم آنرا تحت اکسس پروجت اجرا کنم لذا اصرار دارم از رکوردست استفاده کنم

dadsara
یک شنبه 21 تیر 1388, 09:16 صبح
سلام
اگر از دوستان کسی به راه حلی رسیده لطفا اعلام کند !

amirzazadeh
یک شنبه 21 تیر 1388, 10:05 صبح
سلام
من توسط اکسس پروجکت به بانک SQL متصل شده ام
در طراحی یک فرم که قصد داشتم عملیات جستجوی یک رکورد خاص را توسط RecordSet انجام دهد با خطای شماره 91 مطابق تصویر پیوست مواجه شدم .
درصورت امکان لطف کنید بفرمائید علت بروز خطا چیست

Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("select * from main where (accesskey = '" & Text0 & "')")
Me.Text2 = rst.Fields(1)
سطر اول رو به اين شكل اصلاح كن:
Dim db As Dao.Database
به آخر كدهات هم اين كد رو اضافه كن:
set db = nothing
.......................
موفق باشيد

dadsara
یک شنبه 21 تیر 1388, 10:30 صبح
سلام
جناب Amirzazadeh مطابق فرمایش جنابعالی کد مربوطه را تغییر دادم ولی مشکل همچنان به قوت خود باقی است

RESMAILY
سه شنبه 23 تیر 1388, 11:03 صبح
به نام خدا
اين كد را امتحان كنيد
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set cn = Application.CurrentProject.Connection
'---------------------------------------------- مثلا
intX = Val(Combo0.Text)

sql = " SELECT dbo.Main.* FROM dbo.Main" & _
" WHERE (field1=" & intX & ")"
'----------------------------------------------
rs.Open sql, cn, adOpenDynamic, adLockBatchOptimistic
me.text1 = rs!field1

dadsara
سه شنبه 23 تیر 1388, 14:04 عصر
سلام
دوست عزیز Resmaily فرمایش جنابعالی عمل شد ولی متاسفانه مشکل حل نشد

nabeel
سه شنبه 23 تیر 1388, 20:24 عصر
سلام dadsara

دوست گرامي شما به چند نكته دقت نكرديد ، اشاره اي كوتاه به اونها دارم تا انشاء ا.. خودتون مشكل رو به کمک بقیه دوستان حل كنيد :

ديتابيس شما SQL هستش و اتصال به SQL تابع قوانين خاص خودش
به نظر شما CurrentDB موضوعيت مكاني داره !؟ ( با توجه به همون توضيح اول )
كد خطاي 91 يك كد استاندارد مربوط به Jet Database نيست ، شرح خطا رو مجدداً مطالعه بفرماييد ( با توجه به توضيح اول مطمئناً متوجه نقص ميشيد ) , از کنار کلمه Object در خط دوم پیغام خطا به سادگی نگذرید
و لیکن , در خصوص SqlOLEDB هم یه بررسی مختصری داشته باشید تا مشکلتون به صورت کامل حل بشه

توضيح : دوست من Dadsara به نظر ميرسه در راه انتقال به پلت فرم SQL قرار داريد . از اين دست مشكلات به وفور در اتصال به SQL براي شما به وجود خواهد اومد ، اين توضيح رو خدمتتون عرض كردم چون اون رو در ارتباط با يكي از تاپيكهاي قبلي خودتون در رابطه با ديتابيس مورد استفاده ميدونم ( تاپیک قبلی (http://barnamenevis.org/forum/showthread.php?t=166129) )

با سعی و تلاش بیشتر حتماً موفق میشید

alirezabahrami
سه شنبه 13 مرداد 1388, 14:40 عصر
سلام
من توسط اکسس پروجکت به بانک SQL متصل شده ام
در طراحی یک فرم که قصد داشتم عملیات جستجوی یک رکورد خاص را توسط RecordSet انجام دهد با خطای شماره 91 مطابق تصویر پیوست مواجه شدم .
درصورت امکان لطف کنید بفرمائید علت بروز خطا چیست

Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("select * from main where (accesskey = '" & Text0 & "')")
Me.Text2 = rst.Fields(1)
خدمت دادسرای عزیز سلام
نمیدانم در خصوص سؤال فوق مشکلت حل شد یا نه ؟ بنده هم که به تازگی با اکسس پروجکت کم و بیش کار می کنم با این مشکل مواجه شده ام . ممنون میشوم اگر راه حلی پیدا کرده اید آن را جهت اطلاع بنده و دوستان دیگر ارائه فرمائید . در غیر اینصورت از با تجربه های بزرگوار التماس دعا داریم.
با تشکر

dadsara
چهارشنبه 14 مرداد 1388, 07:35 صبح
سلام
دوست عزیز جناب آقای بهرامی : خیر ، مشکل همچنان به قوت خود باقی است