Last active
September 3, 2015 14:36
-
-
Save ststeiger/6930171636b5f96e57b6 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Public Shared Function GetFlagDescription(flag As Integer) As String | |
| Dim vcRet As String = Nothing | |
| ' Flag: | |
| ' SUM | |
| ' ( | |
| ' CASE | |
| ' WHEN PRIVILEGE_TYPE = 'SELECT' THEN 1 | |
| ' WHEN PRIVILEGE_TYPE = 'INSERT' THEN 2 | |
| ' WHEN PRIVILEGE_TYPE = 'UPDATE' THEN 4 | |
| ' WHEN PRIVILEGE_TYPE = 'DELETE' THEN 8 | |
| ' ELSE 100 | |
| ' END | |
| ' ) AS Flag | |
| Select Case flag | |
| Case 0 | |
| vcRet = "N" | |
| Case 1 | |
| vcRet = "S" | |
| Case 2 | |
| vcRet = "I" | |
| Case 3 | |
| vcRet = "SI" | |
| Case 4 | |
| vcRet = "U" | |
| Case 5 | |
| vcRet = "SU" | |
| Case 6 | |
| vcRet = "IU" | |
| Case 7 | |
| vcRet = "SIU" | |
| Case 8 | |
| vcRet = "D" | |
| Case 9 | |
| vcRet = "SD" | |
| Case 10 | |
| vcRet = "ID" | |
| Case 11 | |
| vcRet = "SID" | |
| Case 12 | |
| vcRet = "UD" | |
| Case 13 | |
| vcRet = "SUD" | |
| Case 14 | |
| vcRet = "IUD" | |
| Case 15 | |
| vcRet = "SIUD" | |
| End Select | |
| vcRet = Replace(Replace(Replace(Replace(vcRet, "D", "DELETE "), "S", "SELECT "), "U", "UPDATE "), "I", "INSERT ") | |
| vcRet = Trim(vcRet) | |
| vcRet = Replace(vcRet, " ", vbCrLf) | |
| Return vcRet | |
| End Function | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment