أخوانى هذ الكود للاتصال بقاعدة البيانات عن طريق System.Data.SqlClient وتحديد الخطأ فى الاتصال هل من اسم السرفر ام كلمة المرور م قاعدة المعطيات :::::
'Start Date=06/04/2007
'End Date=06/04/2007
'By Programmer:- Bassam Alqadhi
'Email:Ajax-y@hotmail.com
Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim StrCon As New SqlConnection
Dim se As SqlError
Dim sErrorMsg As String
Try
StrCon.ConnectionString = "Provider=server=toshiba-user;database=Supports;uid=sa;pwd=22221112222"
StrCon.Open()
Select Case StrCon.State
Case 1
MsgBox("Succed Connect to database")
Case Else
MsgBox("Fuiler Connect to database", MsgBoxStyle.Information, "The Connection State=" & StrCon.State)
End Select
Catch XcpSQL As SqlException
For Each se In XcpSQL.Errors
Select Case se.Number
Case 1231
sErrorMsg = "Worng or missing server"
Case 4060
sErrorMsg = "Wrong or missing database"
Case 18456
sErrorMsg = "Wrong or missing username or password"
Case Else
sErrorMsg = se.Message
End Select
MsgBox(sErrorMsg, MsgBoxStyle.Information, "Error Code=" & se.Number)
Next
Finally
StrCon.Close()
End Try
End Sub
End Class
'Code Name:- Handle SqlExceptions