دستور open Recordset

[EffatBandehlou]

دوستان عزيز سلام
من يه برنامه دارم كه با vb هستش و بانك اطلاعاتي اون Access .

به من بگيد دستور زير چه اشكالي داره:
پيام خطا ميده كه نمي تونه recordset رو باز كنه.

rst.open "Select * From Test where no=1",conn,adOpenStatic,adLockOptimistic
با گزينه هاي ديگه هم امتحان كردم مشكل حل نشد

[mpmsoft]

دوست عزیز متن پیغام خطا چی هست ؟


به دیتا تایپها دقت کردید ؟

[EffatBandehlou]

Method open of object _recorset failed

[ayub_coder]

پارامتر آخر که adCmdText هست رو وارد کردین؟ خوب دقت کنید یه جایی حتما چیزی رو فراموش کردین

[EffatBandehlou]

اگه همين دستور رو بخوام به بانك sql وصل بشه هيچ مشكلي نداره

[EffatBandehlou]

منظورتون از پارامتر آخر چيه؟؟
من دقيقاً همون كدي رو كه در بالا مشاهده كردين نوشتم و نه چيزي بيشتر .
اگر لطف كنيد و بگين چي بايد بهش اضافه كنم ممنون ميشم.

[ayub_coder]

پارامتر آخری بعد از همه ی پارامترا قرار میگیره و تعیین میکنه رکورد ست به چه صورتی باز بشه چون شما دستور sql نوشتین با قرار دادن پارامتر آخری به رکورد ست می فهمونید که می خوام یه دستور sql اجرا کنم

adCmdText یعنی دستور sql اجرا بشه
adCmdTable یعنی رکورد ست به صورت جدول باز بشه

شما باید adCmdText رو قرار بدین

[EffatBandehlou]

Rst.Open "Select No From Section", Conn, adOpenKeyset, adLockOptimistic, adCmdText
دوست عزيز من به شكل بالا نوشتم اما بازم مشكل حل نشد

[ayub_coder]

اگه میتونی برنامتو بذار تا ببینم مشکلش چیه اخه اینجوری نمیشه گفت
پارامتر سوم (adOpenKeyset) رو به adOpenDynamic تغییر بده اگه نشد برنامه رو باید دید...

[EffatBandehlou]

With Conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\publicdb.mdb;Persist Security Info=False"
.Open
End With
Rst.Open "Select No From Section", Conn, adOpenDynamic, adLockOptimistic, adCmdText

[EffatBandehlou]

دوست عزيز متوجه شديد كه مشكل از كجاست؟؟؟/

[EffatBandehlou]

Dim PreCode As Integer
With Conn
.ConnectionString = ConString
.Open
End With
Rst.CursorType = adOpenKeyset
Rst.LockType = adLockOptimistic
Rst.Open "Select * From Section", Conn, , , adCmdText
Rst.Open
If Not Rst.EOF Then
PreCode = Rst!No
End If
Rst.Close

[ayub_coder]

اینجوری نمیشه کل برنامه رو اگه میشه upload کنید این کد ظاهرا که درسته ولی گفتم نمیشه اینجوری دقیق تشخیص داد... اگه کل برنامه رو upload کنی شاید بشه حلش کرد

[EffatBandehlou]

برنامه رو براتون گذاشتم