Naravno da ti se pojavljuje SqlException. Treba da procitas sadrzaj tog SqlException-a. Ukratko, evo ti funkcija koja proverava sql server i/ili neku bazu na njemu koju ja koristim pa probaj, moze da pomogne:
Code:
''' <summary>Testianje da li server/baza postoji. Radi se connect pa disconnect. Ovu funkciju koristimo ako nismo instancirali bazu. Samim tim je potrebno uneti argumente. Ako Server/baza postoji, vraca se OK a ako ne postoji, vraca se exception sa razlogom </summary>
''' <param name="ServerName">Ime servera (zajedno sa putanjom) </param>
''' <param name="DbName">Ime baze. Ako testiramo postojanje samog servera onda ukucamo 'master' </param>
''' <param name="LoginSecure">Ako je LoginSecure=True, to je Windows Authentication mod. Ako je False, to je SQL server mod i za njega treba username i password </param>
''' <param name="LoginName">Username </param>
''' <param name="LoginPassword">Password </param>
Public Shared Function TestServerOrDatabaseExistence(ByVal ServerName As String, ByVal DbName As String, ByVal LoginSecure As String, Optional ByVal LoginName As String = "", Optional ByVal LoginPassword As String = "") As String
Dim SqlServ As Microsoft.SqlServer.Management.Smo.Server
Dim ServConn As New Microsoft.SqlServer.Management.Common.ServerConnection()
Dim SqlConnection As SqlClient.SqlConnection
'povezivanje na bazu
If CType(LoginSecure, Boolean) = False Then
ServConn.ServerInstance = ServerName
ServConn.LoginSecure = LoginSecure
If LoginName.Length > 0 Then ServConn.Login = LoginName
If LoginPassword.Length > 0 Then ServConn.Password = LoginPassword
SqlServ = New Microsoft.SqlServer.Management.Smo.Server(ServerName)
SqlConnection = New SqlClient.SqlConnection("Data Source=" & ServerName & ";Initial Catalog='" & DbName & "';Integrated Security=False;User ID=" & LoginName & ";Password=" & LoginPassword & ";")
Else
ServConn.ServerInstance = ServerName
ServConn.LoginSecure = LoginSecure
SqlServ = New Microsoft.SqlServer.Management.Smo.Server(ServerName)
SqlConnection = New SqlClient.SqlConnection("Data Source=" & ServerName & ";Initial Catalog='" & DbName & "';Integrated Security=True")
End If
'pokusaj konektovanja na server
Try
ServConn.Connect()
ServConn.Disconnect()
Return "OK"
Catch ex As Exception
If ex.InnerException Is Nothing Then
Return ex.Message
Else
Return ex.Message & vbCrLf & vbCrLf & ex.InnerException.Message
End If
End Try
End Function