quinta-feira, 20 de dezembro de 2018

Pegar os itens selecionados em um ListBox VB.NET ASPX

´Lê os itens selecionados em List1 e coloca-os na variável sTexto separados por vírgula(,), Exceto o 'último item que não terá vírgula após.

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim iContador As Integer
    Dim sTexto As String = String.Empty

    For iContador = 0 To List1.GetSelectedIndices.Count - 1
        If iContador < List1.GetSelectedIndices.Count - 1 Then
            sTexto &= List1.Items(List1.GetSelectedIndices(iContador)).ToString & ";"
        Else
            iContador &= List1.Items(List1.GetSelectedIndices(iContador)).ToString & ";"
        End If
    Next iContador
End Sub

quinta-feira, 13 de dezembro de 2018

Descobrir o MTU da rede

Usar o comando PING com os parâmetros -f -l e o tamanho do buffer.

Exemplo:
C:>ping 192.168.1.1 -f -l 1500

Se retornar:
O pacote precisa ser fragmentado, mas a desfragmentação está ativa.

Diminui o tamanho do buffer.

Exemplo:
C:>ping 192.168.1.1 -f -l 1490
C:>ping 192.168.1.1 -f -l 1480
C:>ping 192.168.1.1 -f -l 1470

Até encontrar um retorno positivo:
Resposta de 192.168.1.1: bytes=1470 tempo=9ms TTL=125

Ai vai ajustando o tamanho do buffer até encontrar o tamanho máximo.

quarta-feira, 7 de novembro de 2018

Stored Procedure dinâmica - SQL SERVER

Descrição da tabela - tblNome

id - int - Primary key
Nome - nvarchar(30)
Idade - int

id nome idade
2 Rita 35
3 Carla 40
4 Julia 20
5 Mariana 19
6 Marina 21
9 Regina 36
10 Paula 22

CREATE PROCEDURE BuscaNomeIdade
    @NOME nvarchar(30),
    @IDADE nvarchar(3)
    AS
        DECLARE @SQl varchar(300)
SET @SQL = 'SELECT id, nome, idade FROM tblNome WHERE 1 = 1'
IF (@Nome IS NOT NULL)
BEGIN
    SET @SQl = @SQl + ' AND Nome = ''' + @NOME + ''''
END

IF (@idade IS NOT NULL)
BEGIN
    SET @SQl = @SQl + ' AND idade = ' +  @IDADE
END
EXECUTE(@SQL)
--PRINT(@SQL)
GO

Executar
EXEC BuscaNomeIdade 'Rita', 35

EXEC BuscaNomeIdade 'Rita', NULL

EXEC BuscaNomeIdade NULL, 35


EXEC BuscaNomeIdade NULL, NULL

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))