کانکنت بودن یا نبودن به دیتابیس؟؟

[mikhak]

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


Dim strsql As String
Dim strcon As String = "provider =microsoft.jet.OLEDB.4.0;" & "data source = ..\dot.mdb"
Dim con As New OleDbConnection(strcon)
con.Open()

حالا میخوام تشخیص بدم که اگه نتونست کانکت بشه یه پیغام بده باید چی رو بررسی کنم؟؟؟

[یاشار]

هر جای کد که قراره با دیتابیس ارتباط برقرار کنه رو، داخل یک بلوک Try ... Catch قرار بدید و داخل قسمت Catch هر پیغامی رو که می‌خواهید نمایش داده بشه، نشون بدین.



Try
DataAdapter1.Fill(DataSet1)

Catch ex As Exception
Dim Prompt As String = "Connection to the database could not be established." & vbCrLf
Prompt &= "If the problem persists, contact your database manager."

MsgBox(Prompt, MsgBoxStyle.Information, "DB unavailable")
End Try

[karimi84]

می تونی توسط State چک کنی
بعنوان مثال
if con.state = connectionclose then

[mikhak]

ممنون