كنترل اين خطا run time error

[ali682344]

با سلام
من هر كاري مي كنم نمي تونم اين خطا كه عكسشو گذاشتم رو با on error كنترل كنم
آيا دوستان راهي دارند؟

http://barnamenevis.org/forum/attachment.php?attachmentid=46665&stc=1&d=1270629951

[xxxxx_xxxxx]

سلام،
دستورات اون Sub یا Function رو اینجا بنویسید.

[ali682344]

سلام،
دستورات اون Sub یا Function رو اینجا بنویسید.

Sub Main()
Dim Con As New Connection
Dim aa
aa = App.Path + "\database\db.mdf"
Con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=master;"
Con.Execute "EXEC sp_attach_db @dbname = N'" & "db" & "', @filename1 = N'" & Trim(UCase(aa)) & "'"
Con.Execute "Use DB;EXEC sp_changedbowner '" + "nader" + "'"
Con.Close
mdb_path = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=nader;Initial Catalog=db;"
End Sub

[xxxxx_xxxxx]

سلام،
در دستوراتی که نوشتید On Error ای وجود نداره که !!!!

[HjSoft]

مشکل از :

Con.Execute "EXEC sp_attach_db @dbname = N'" & "db" & "', @filename1 = N'" & Trim(UCase(aa)) & "'"
است . شما احتمالا دوباره دارید یک دیتابیس رو attach میکنید . attach در هر بار نصب sql باید یک بار انجام شود .

موفق باشید

[ali682344]

مشکل از :

Con.Execute "EXEC sp_attach_db @dbname = N'" & "db" & "', @filename1 = N'" & Trim(UCase(aa)) & "'"
است . شما احتمالا دوباره دارید یک دیتابیس رو attach میکنید . attach در هر بار نصب sql باید یک بار انجام شود .

موفق باشید


اينو مي دونم كه پايگاه اتچه مي خوام يه كد بنويسم اگه اتچ بود ديگه دستور اتچ اجرا نشه يكبار اتچ كنه و با اين خطا مي تونم كنترل كنم

من بال گذاشتن On Error GoTo ned در اولين خط بعد از sub و گذاشتن
ned:
If Err.Number - 2147217900 Then
MsgBox ""
در يك خط مانده به end sub
اصلا پيغام msgbox ظاهر نميشه

چه كار بايد كرد؟

[HjSoft]

شاید کد ارور ادامه داره ، یه else هم بنویس . که msgbox err.number رو بده .

[ali682344]

از hjsoft و xxxx ممنونم

مشکل حل شد

برنامه ویژوال بیسیک رو حذف و دوباره نصب کردم
حل شد
نمی دونم دلیلش چی بود

[vbhamed]

از hjsoft و xxxx ممنونم

مشکل حل شد

برنامه ویژوال بیسیک رو حذف و دوباره نصب کردم
حل شد
نمی دونم دلیلش چی بود

سلام

دليلش اين بوده :
به منوي Tools گزينه Option بريد و تبGeneral رو بزنيد
در قسمت Error Trapping اگر گزينه Break On All Errors انتخاب شده باشه برنامه پيام خطاهاش رو مي ده و كاري به On Error هاي داخلي هم نداره

البته اين براي تست مكانهاي خطاي برنامه مفيده ولي در فايل exe مشكلي وجود نداره
وقتي ويژوال بيسيك رو دوباره نصب كردين اين گزينه روي تنظيم اصلي خودش يعني Break On Unhandled Errors قرار گرفته كه فقط يك سري خطاهاي خاص رو ازشون نمي گذره

[kian_skf]

سلام ببخشید من یه برنامه با ویژوال بیسیک 6 نوشتم و وقتی با برنامه پکیج فایل setup براش درست می کنم error میده.
run time error 53
file not found