21 lines
710 B
VB.net
21 lines
710 B
VB.net
Public Class ConnectionString
|
|
Public Enum ConnectionStringType
|
|
MSSQLServer
|
|
ODBC
|
|
Oracle
|
|
End Enum
|
|
|
|
Public Shared Function GetConnectionStringType(pConnectionString As String) As ConnectionStringType
|
|
' This variable only exists to shorten the if-conditions
|
|
Dim c = pConnectionString
|
|
|
|
If (c.Contains("Server=") Or c.Contains("Data Source=")) And (c.Contains("Database=") Or c.Contains("Initial Catalog=")) Then
|
|
Return ConnectionStringType.MSSQLServer
|
|
ElseIf (c.Contains("dsn=")) Then
|
|
Return ConnectionStringType.ODBC
|
|
Else
|
|
Return ConnectionStringType.Oracle
|
|
End If
|
|
End Function
|
|
End Class
|