Visual Studio Comunity 2015 - Cannot evaluate expression because the code of the current method is optimized

Erro ao debugar programa:

Cannot evaluate expression because the code of the current method is optimized

Correção:

Deixe desmarcada a opção Enable optimizations

Stored Procedure SQL Server para limpar uma tabela e resetar o indice(autoincremento)

CREATE PROCEDUREResetaID
@TABELA as sysname
AS
BEGIN
EXEC('DELETE FROM ' + @TABELA )
EXEC('DBCC CHECKIDENT(' + @TABELA + ', reseed, 0)')
END

Limitar o tamanho do texto digitado em textBox Multiline VB ASPX

1)No evento Load da pagina:

'Aceita somente 10 caracteres digitados em textBox1
textBox1.Attributes.Add("maxlength", "10")
textBox1.Attributes.Add("onkeyup", "return ismaxlength(this)")

2)No código HTML da página:
...
 </style>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">

<script type="text/javascript">
function ismaxlength(obj)
{
    var mlength=obj.getAttribute ? parseInt(obj.getAttribute("maxlength")) : ""
    if (obj.getAttribute && obj.value.length > mlength)
    {
        obj.value = obj.value.substring(0, mlength)
    }
}
...

Copiado de:
http://raphaelcardoso.com.br/dica-limitando-a-quantidade-caracteres-em-um-textbox-do-tipo-multiline/

VB.NET-Informações sobre o usuário logado no Windows

  Public Enum TipoInformacao
    NomeUsuario
    Dominio
    Hostname
  End Enum

  Public Function InformacoesUsuario(Informacao As TipoInformacao) As String
    Select Case Informacao
      Case TipoInformacao.Dominio
        Return System.Environment.UserDomainName.ToString
      Case TipoInformacao.Hostname
        Return System.Environment.MachineName.ToString
      Case TipoInformacao.NomeUsuario
        Return System.Environment.UserName.ToString
      Case Else
        Return "Erro"
    End Select
  End Function

Função VB.Net para verificar se o ano é Bissexto

Public Function AnoEBissexto(Ano As Integer) As Boolean
    If Ano Mod 4 = 0 Then
        If Ano Mod 100 = 0 Then
            If Ano Mod 400 = 0 Then
                Return True
            Else
                Return False
            End If
       Else
          Return True
       End If
    Else
        Return False
    End If
End Function

Formatos de datas no SQL Server

Mon DD YYYY (AM or PM)

SELECT CONVERT(VARCHAR(20), GETDATE(), 100) AS DataConvertida

MM/DD/YY

SELECT CONVERT(VARCHAR(8), GETDATE(), 1) AS DataConvertida

MM/DD/YYYY

SELECT CONVERT(VARCHAR(10), GETDATE(), 101) AS DataConvertida

YY.MM.DD

SELECT CONVERT(VARCHAR(8), GETDATE(), 2) AS DataConvertida

DD/MM/YY

SELECT CONVERT(VARCHAR(8), GETDATE(), 1) AS DataConvertida

DD/MM/YYYY

SELECT CONVERT(VARCHAR(10), GETDATE(), 103) AS DataConvertida

DD.MM.YY

SELECT CONVERT(VARCHAR(8), GETDATE(), 4) AS DataConvertida

DD.MM.YYYY

SELECT CONVERT(VARCHAR(10), GETDATE(), 104) AS DataConvertida

DD-MM-YY

SELECT CONVERT(VARCHAR(8), GETDATE(), 5) AS DataConvertida

DD-MM-YYYY

SELECT CONVERT(VARCHAR(10), GETDATE(), 105) AS DataConvertida

DD Mon YY

SELECT CONVERT(VARCHAR(9), GETDATE(), 6) AS DataConvertida

DD Mon YYYY

SELECT CONVERT(VARCHAR(11), GETDATE(), 106) AS DataConvertida

Mon DD, YY

SELECT CONVERT(VARCHAR(10), GETDATE(), 7) AS DataConvertida

Mon DD, YYYY

SELECT CONVERT(VARCHAR(12), GETDATE(), 107) AS DataConvertida

HH:MM:SS

ELECT CONVERT(VARCHAR(8), GETDATE(), 108) AS DataConvertida

Mon DD YYYY HH:MI:SS:MMM (AM or PM)

SELECT CONVERT(VARCHAR(26), GETDATE(), 109) AS DataConvertida

MM-DD-YY

SELECT CONVERT(VARCHAR(8), GETDATE(), 10) AS DataConvertida

MM-DD-YYYY

SELECT CONVERT(VARCHAR(10), GETDATE(), 110) AS DataConvertida

YY/MM/DD

SELECT CONVERT(VARCHAR(8), GETDATE(), 11) AS DataConvertida

YYYY/MM/DD

SELECT CONVERT(VARCHAR(10), GETDATE(), 111) AS DataConvertida

YYMMDD

SELECT CONVERT(VARCHAR(6), GETDATE(), 12) AS DataConvertida

YYYYMMDD

SELECT CONVERT(VARCHAR(8), GETDATE(), 112)  AS DataConvertida

DD Mon YYYY HH:MM:SS:MMM(24h)

SELECT CONVERT(VARCHAR(24), GETDATE(), 113) AS DataConvertida

HH:MI:SS:MMM(24H)

SELECT CONVERT(VARCHAR(12), GETDATE(), 114) AS DataConvertida

YYYY-MM-DD HH:MI:SS(24h)

SELECT CONVERT(VARCHAR(19), GETDATE(), 120) AS DataConvertida

YYYY-MM-DD HH:MI:SS.MMM(24h)

SELECT CONVERT(VARCHAR(23), GETDATE(), 121) AS DataConvertida

YYYY-MM-DDTHH:MM:SS:MMM

SELECT CONVERT(VARCHAR(23), GETDATE(), 126) AS DataConvertida

DD Mon YYYY HH:MI:SS:MMM

SELECT CONVERT(VARCHAR(26), GETDATE(), 130) AS DataConvertida

DD/MM/YYYY HH:MI:SS:MMM

ELECT CONVERT(VARCHAR(25), GETDATE(), 131) AS DataConvertida

Fonte:

https://augustopierzynski.wordpress.com/2011/08/25/formatando-data-no-sql-server/

Criar caixa de mensagem em VB.NET ASPX

Criar uma subrotina na classe da página conforme abaixo:

  Private Sub CaixaDeAviso(ByVal Mensagem As String)
    Dim lbl As New Label
    lbl.Text = ""
    Page.Controls.Add(lbl)
  End Sub

Para chamar a subrotina, coloque o seguinte código onde desejado, normalmente dentro de um "IF"

Exemplo:

If Alguma coisa Then
    CaixaDeAviso("Isto é um aviso.")
End If

Caixa de confirmação em páginas ASPX com VB.NET

1) Criar uma classe (ou colocar o procedimento abaixo em uma classe existente)

Public Class CaixaDeConfirmacao
    Public Sub CriarCaixaDeConfirmacao(ByRef Botao As WebControls.Button, ByVal Mensagem As     String)
        Botao.Attributes.Add("onclick", "return confirm('" & Mensagem & "');")
    End Sub
End Class



2) No Load da página:

Dim CAIXA As New CaixaDeConfirmacao

CAIXA.CriarCaixaDeConfirmacao(btnApagar, "Deseja Continual?")


Quando Clicar no botão "btnApagar", Aparecerá uma caixa com os dois botões, "OK" e "Cancelar", se clicar em cancelar o procedimento será abortado.