ايران ويج

سلام
من می خواستم برنامه وقتی به بانک متصل نمی شود یک پیغام خطای به دلخواه خودم بدهد و گرنه برنامه اجرا شود
لطفا راهنمایی بفرمایید
باتشکر

باید روتین اتصال به بانکتون رو به شکل زیر اصلاح کنید:

سلام
این کد کار نکرد و باز پیغام خطای پیش فرض خود را می دهد
لطفا راهنمایی بفرمایید
با تشکر

خوب گل پسر راه حل رو که برات گذاشتم، اگر فقط یک بار این کد رو بخونی

متوجه طرز کارش خواهی شد و فقط با عوض کردن کد خطا می تونی به جواب دلخواهت برسی.

لطفا برای حل شدن مشکلت خودت هم همت کن.

آخه دقیقا همین کد را می دهد
-214767259(80004005)
ویا 11001
من هر سه شکل را
-214767259(80004005)
-214767259
11001
امتحان کردم
ولی باز کار نمی کند

خوب پس اصلا شرط شماره خطا رو بردار و در صورت بروز خطا پیغام مورد نظرت رو نمایش بده

کد را به شکل زیر نوشتم ولی باز همان پیغام خود را نمایش داد
Private Sub LoadConnection()
On Error GoTo ErrLBL
Adodc1.ConnectionString = mdb_path
Exit Sub
ErrLBL
MsgBox "Can not Connect to the Server"
End Sub

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

مثل این کد عمل کنید

کد را زدم چه اتصال درست بود چه نبود پیغام خطا Can not Connect to the Server می دهد
ولی به شکل زیر
Private Sub Form_Load()
On Error GoTo ErrLBL
Adodc1.ConnectionString = mdb_path
Adodc1.RecordSource = "SELECT * FROM man"
Adodc1.Refresh
Exit Sub
ErrLBL:
MsgBox "Can not Connect to the Server"
End
End Sub
در صورت درست نبودن هم پیغام خطای اصلی و هم Can not Connect to the Server را نمایش می دهد
من پیغام خطای اصلی را نمی خواهم نمایش بدهم

(۲۸-فروردین-۱۳۹۱, ۰۹:۴۲:۵۰)Di Di نوشته است: [ -> ]گل پسر کد لودکردن کانکشن هات درست درمون نیست !!

مثل این کد عمل کنید

کد:

Dim AdoData As New ADODB.Connection
On Error GoTo ErrLBL
With AdoData
    .ConnectionString = mdb_path
    .Open
End With

Exit Sub
ErrLBL:
MsgBox "Can not Connect to the Server"

به این شکل اگر بنویسم قسمت
Dim AdoData As New ADODB.Connection را خطا می گیرد