خطاي نا معلوم

[aminkk]

سلام
من از اين كد استفاده مي كنم ولي نمي دونم چرا خطا مي ده:


Public Cn As New ADODB.Connection
Public Rec As New ADODB.Recordset
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB.mdb;Persist Security Info=False"
Rec.Open "select * from student", Cn, adOpenStatic, adLockBatchOptimistic, adCmdText
Set DataGrid.DataSource = rec
Rec.Close
Cn.Close

دوستان خيلي احتياج دارم.

[اوبالیت به بو]

به ظاهر كد درست هستش.
يه سوال مي پرسم شايد ربطيم نداشته باشه اين كد رو كجا مي نويسد؟ داخل Scope برنامه يا Module؟ چون اگه داخل Module بنويسيد فكر كنم خطا بده.

[aminkk]

نه هيچ ربطي نداره چون داخل برنامه هم كه مي نويسم همين خطا رو مي ده.
دوستان بايد چي كار كنم؟

[اوبالیت به بو]

كد شما كاملاً درست هستش مگر اشتباهي در انتخاب نسخه Provider برنامه انجام داده باشين. يا پايگاه داده Access شما قديمي باشه يا ....

[فاطمه وطن دوست]

سلام

اینا دو خط رو هم به پروژتون اضافه کنید شاید درست شد.




Set Rec = Nothing
Set Cn = Nothing

[arman007]

شما باید قبل از اینکه رکوردستتون رو باز کنید ست کنید

set rec=new adodb.recordset
این دستور رو قبل از open بنویسید

[ferdin]

توصیه میکنم از command استفاده کنیدقبل از اون active connectionرو مشخص کنید و حاصل اجرای commandرا در rec ذخیره کنید