پیغام خطای عدم نمایش اتصال به بانک

[automa]

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

[Di Di]

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

کد php:

Private Sub LoadConnection()

On Error Goto ErrLBL
.
.
{Your Load Connection Source}
.
.
Exit Sub
ErrLBL
IF Err.Number=-2147467259  then
MSgbox "Can not Connect to the Server"
Else
MSGBox err.Descraption
end if
End Sub 


[automa]

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

[Di Di]

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

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

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

[automa]

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

[Di Di]

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

[automa]

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

[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"

[automa]

کد را زدم چه اتصال درست بود چه نبود پیغام خطا 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"

[automa]

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