quarta-feira, 10 de janeiro de 2018

Enum no Vb.Net

vb.net aspx

'Declaração do enum
Private Enum Cargo
   Usuario = 1
   supervisor = 2
   Gerente = 3
   Diretor = 4
End Enum

'Popular um DropDowmList com os itens do enum
Dim Nomes As Array = System.Enum.GetNames(GetType(Cargo))
Dim iContador as integer

For iContador = 0 To Nomes.Length - 1
    ddlCargo.Items.Add(Nomes(iContador))

Next

'Ler o valor associado ao texto do combobox
 Dim i As Integer


i = CInt(System.Enum.Parse(GetType(Cargo), ddlCargo.Text))

'Colocaar texto do enum em textbox a aprtir do valor
txtcargo.Text = CType(CInt(numero item enum)), cargo).ToString
******************************************************************

Windows Application

'Declaração de enum
Private Enum Status
    Ativa = 1
    Cancelada = 2
    Definitiva = 3
End Enum

'Colocar os membros do Enum em um comboBox
cmbStatus.Items.AddRange(System.Enum.GetNames(GetType(Status)))


'Ler os valores dos membros do enum
Dim i as Integer

i = Cint(System.Enum.Parse(GetType(Status), cmbStatus.Text))

sexta-feira, 27 de outubro de 2017

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

sexta-feira, 29 de setembro de 2017

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.



terça-feira, 12 de setembro de 2017

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

segunda-feira, 4 de setembro de 2017

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



sexta-feira, 1 de setembro de 2017

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

quarta-feira, 26 de julho de 2017

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/

quarta-feira, 19 de julho de 2017

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