Stored Procedure para apagar os dados da tabela e resetar o indice(auto incremento) - SQL Server

   USE NomeDoBanco
   GO
   SET ANSI_NULLS ON
   GO
   SET QUOTED_IDENTIFIER ON
    GO
   --=============================================
   -- Author:
   -- Create date:
   -- Description:
   --=============================================
    CREATE PROCEDURE ResetaID
          @TABELA as sysname
   AS
      BEGIN
          EXEC('DELETE FROM ' + @TABELA )
          EXEC('DBCC CHECKIDENT(' + @TABELA + ', reseed, 0)')
      END

Importar arquivos texto no Excel

Para importar um arquivo texto no Excel:

1 - Com o Excel aberto, clique em:

Arquivo --> Abrir;

2 - Selecione a pasta onde está o arquivo, depois o tipo de arquivo, pode deixar "Todos os arquivos(*.*)" e clique em no botão Abrir;

3 - Selecione a forma do arquivo: Delimitado ou Largura fixa e clique no botão avançar:

Obs. Abrindo arquivo delimitado:

4 - Selecione o separador do arquivo, neste caso, tabulação, pois o arquivo foi gerado com um caracter de tabulação entre as colunas.

Observe que na caixa Visualização dos dados, existe uma amostra do arquivo.

Clique em Avançar, depois em Concluir e estará pronto.

Caso o arquivo a ser importado não tenha um carácter de separação de colunas, pode-se usar a importação de largura fixa quando o arquivo não tem um carácter de separação de colunas, assim, você fará a delimitação das colunas para o Excel.

Para tanto, na caixa de Visualização dos dados, clique onde quiser que as colunas sejam separadas e aparecerá uma seta na vertical com a ponta para cima onde clicar, o que significa que a coluna será quebrada ali. Pode-se clicar e arrastar esta seta para esquerda e/ou direita.

Após clicar no botão finalizar, o arquivo será aberto na planilha do Excel.

Configurar uma coluna como UNIQUE SQL SERVER

Este procedimento impede a inserção de dados duplicados em uma coluna da tabela.

1) Abra o SQL Server Management Studio
2) Selecione o Banco de dados e expanda o item Tables

3) Clique com o botão direito do mouse sobre a tabela onde se que criar a condição
4) Selecione Design

5) Clique com o botão direito do mouse sobre a coluna onde quer criar a condição e selecione Indexes/Keys

6) Click em ADD

7) Altere o nome do campo e o tipo
Nome do campo - Campo onde se quer criar a condição
Type - Unique Key

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.

Informações de usuários logados no Windows

No prompt de comandos:

qwinsta

Retorna:

As sessões abertas no host ;

Username logado  na sessão;

ID da sessão;

Estado da sessão.

rwinsta

                Reseta a sessão remota fazendo logoff do usuário.

Fonte:

http://usuarioavancado.blogspot.com.br/2011/02/identificar-o-usuario-que-esta-logado.html

Descobrir o Nome da máquina remota pelo Endereço IP

Para descobrir o HostName de  uma máquina remota:

1) No prompt de comandos digite nslookup seguido de Endereço IP da máquina

Exemplo: nslookup 192.168.2.2

          No retorno do comando será exibido várias informações da máquina remota, inclusive o HostName da mesma.


2) Outra forma é usar, no Prompt de Comandos, o comando nbtstat seguido do Endereço IP da máquina remota
Exemplo: nbtstat -a 192.168.2.2

Para saber a sintaxe completa dos comandos, digite o nome do comando seguido de "/?"

Exemplos:

Resetar senha de administrador do Windows

1.       Colocar CD de instalação Windows

2.       Clicar em Reparar o Computador

3.       Clicar em promt de comando

      4.       Achar o drive que o Windows está instalado (c: d: ....)

5.       Digitar: copy c:\windows\system32\sethc.exe c:\

6.       Verificar que o arquivo foi copiado

7.       Digitar: copy c:\windows\system32\cmd.exe c:\windows\system32\sethc.exe

8.       Reiniciar o computador

9.       Apertar a tecla shift 5 vezes

10.   Digitar: net user usuario  senha

Para habilitar usuário desabilitado digitar: net user usuario /active:yes

Para verificar usuários: net user

Após copiar o arquivo sethc.ex para sua pasta de origem, para isto deve-se dar boot com o CD do Windows novamente repetindo os passos 2 e 3 e depois efetuando a cópia.
(copy c:\sethc.exe c:\windows\system32).

Fontes:

http://www.howtogeek.com/96630/how-to-reset-your-forgotten-windows-password-the-easy-way/

http://www.howtogeek.com/howto/windows-vista/enable-the-hidden-administrator-account-on-windows-vista/

Colaboração: Roberto Dias Aquino