رفع ارور ران تایم 2147467259- (80004005)

[mamali1377]

آقا یه برنامه نوشتم یه جور همراه زبان سادست برای اول دبیرستانی ها جزو کارهای اولمم هست بعد تو فرم لود اصافه کردن لغت بین دیتابیسم و برنامه راحت ارتباط برقرار کردم اما تو فرم لود لیست ایجا نمی کنه و ارور میده که
could not fiand installable ISAM
بعدشم میاد
'(run -time error '-2147467259(80004005
method 'refresh' of object 'IAdodc' failed
چی کار کنم؟
ممنون میشم اگه سریع کمکم کنید
مرسی

[m.4.r.m]

کد رو بزارید اینجا راهنمایی کنیم

[mamali1377]

اینم کد
Adodc1.ConnectionString = "provider=microsoft.Jet.OLEDB.4.0;" & "data sourse=" & App.Path & "\english17.mdb;JetOLEDB:Database Password=16137716;"
Adodc1.RecordSource = "SELECT * FROM english16"
Adodc1.Refresh

اصا می خواید کل برنامه رو براتون ایمیل کنم؟

[mamali1377]

آقا پس چی شد جواب من؟
مهمه ها عجله دارم

[Fereshte.T]

خوب اگه میتونی کل برنامه رو بزار تا بچه ها نگاه کنن بت بگن دیگه:متفکر:

[m.4.r.m]

این کد رو جایگزین کنید ببینید مشکلتون حل میشه در ضمن
Adodc1.ConnectionString = "provider=microsoft.Jet.OLEDB.4.0;data sourse=" & App.Path & "\english17.mdb;Jet OLEDB:Database Password=16137716;"
Adodc1.RecordSource = "SELECT * FROM english16"
Adodc1.Refresh


چند تا نکته :
1- وقتی از طریق کد نویسی ارتباط میدی به بانک اطلاعاتی با Adodc دیگر به صورت ایستاتیک از Properties خود Adodc نباید اتصال بدی ها حواست باشه
فقط یه Adodc بزار روی فرم به هیچیش دست نزن و در فرم لود این کد ها رو بهش اضافه کن باید اتصال بگیره . همین

[mamali1377]

ممنون ها
ولی درست نشد
چی کار کنم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟

[m.4.r.m]

بازم همون خطا رو میده ؟

[Is Null]

بهتره شما یک بار برای همیشه، برای کل پروژه مسیر و نوع کانکشن به دیتابس رو تنظیم کنید (داخل ()Form_Load برای فرم Login)
Provider رو به صورت دستی یک بار تنظیم کنید:

cn.Provider = MyProvide
cn.Open

Rs.Close
With Rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.ActiveConnection = cn
End With


سپس به کمک یک Module برای کل پروژه این متغیر ها رو تنظیم کنید:

Public cn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Rs1 As New ADODB.Recordset
.
.
.



با این روش در هر فرم فقط کافیه از Rsهای متعدد و مشخصه های اون استفاده کنید. و دیگه برای هر فرم 1 کانکشن به بانک نخواهید داشت.
سرعت و دقت بالا میره، کد نویسی شما منظم و دقیق میشه و ...

[mamali1377]

بازم همون خطا رو میده ؟
بله بازم همین خطا رو می ده:گریه::گریه::گریه::گریه:

[mamali1377]

بهتره شما یک بار برای همیشه، برای کل پروژه مسیر و نوع کانکشن به دیتابس رو تنظیم کنید (داخل ()Form_Load برای فرم Login)
Provider رو به صورت دستی یک بار تنظیم کنید:

cn.Provider = MyProvide
cn.Open

Rs.Close
With Rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.ActiveConnection = cn
End With


سپس به کمک یک Module برای کل پروژه این متغیر ها رو تنظیم کنید:

Public cn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Rs1 As New ADODB.Recordset
.
.
.



با این روش در هر فرم فقط کافیه از Rsهای متعدد و مشخصه های اون استفاده کنید. و دیگه برای هر فرم 1 کانکشن به بانک نخواهید داشت.
سرعت و دقت بالا میره، کد نویسی شما منظم و دقیق میشه و ...

ممنون فقط من از این سر در نیاوردم عرض کردم که خیلی زیاد وقت ندارم که کار کنم به خاطر همین خیلی ماهر نیستم این رو عینا کپی کنم؟
اگر نه با توجه به کدی که بالا دادم می شه کدی رو بنویسید که من کپیش کنم یا اینکه کد رو تر جمه می کنید تا من خودم جاگذاری کنم؟ممنون:لبخندساده:

[hamed747]

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

[hamed747]

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

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\DB.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tablename"
Adodc1.Refresh

[Is Null]

من که واضح توضیح دادم !
اینم کاملتر و حاضر و آماده !
اینا رو توی یک Module میذاریم.


Public cn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Rs1 As New ADODB.Recordset
Public Rs2 As New ADODB.Recordset


توی اولین فرمی که به نمایش در میاد:


Private Sub Form_Load()
On Error Resume Next

path_ = App.Path & "\Database\DB.mdb"
Sa = "******"
Sa_Net = ";database=" + Left(path_, Len(path_) - 4) + ";pwd=" + Sa
Provide = "MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=MS Access Database;DBQ=" + path_ + ";DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;;PWD=" + Sa + ";UID=admin;"
cn.Provider = Provide
cn.Open

Rs.Close
With Rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.ActiveConnection = cn
End With
End Sub


دیگه نمیدونم چه جوری توضیح بدم ! بیشتر از این بخوایی باید پروژه خودم رو بذارم !

به اینجا (http://www.connectionstrings.com/) هم سر بزنی همه آرزو هات بر آورده میشه !!