Digitar somente números em VB.NET

Se digitado não for caracter de digito e não for a tecla Enter então tá liberado, caso seja falso o código não deixa digitar caracter de texto.

Basta incluir esse código no evento KeyPress do TextBox.

        If Not Char.IsDigit(e.KeyChar) And Not e.KeyChar = vbBack Then
            e.Handled = True
        End If

ENTER com a função de TAB no VB.NET

Inserir esse código no evento KeyPress do TextBox

        ' Verifica se foi pressionado a tecla enter
        If e.KeyChar = Convert.ToChar(13) Then
            e.Handled = True

            SendKeys.Send("{TAB}")
            SendKeys.Send("{HOME}+{END}")

        End If

Testar Fonte ATX

Para testar o funcionamento da fonte ATX devemos fazer uma ligação entre o pino VERDE e o pino PRETO

na figura abaixo é o pino 16 e 17.

Instrução SQL SELECT com INNER JOIN

Nesse exemplo utilizarei o banco de dados BD_PESSOA, no qual temos nesse blog o código para criação da tabela que utilizaremos abaixo:

Para selecionar o CPF e o NOME do cliente cadastrado, utilizaremos a instrução 'INNER JOIN' para juntar as tabelas CLIENTE e CLI_FIS.


SELECT CPF,NOME FROM CLIENTE
INNER JOIN CLI_FIS ON CLIENTE.CODIGO = CLI_FIS.CODCLI

No exemplo acima o resultado será:

Esse exemplo mostra todos os clientes físicos.





SELECT CPF,NOME FROM CLIENTE
INNER JOIN CLI_FIS ON CLIENTE.CODIGO = CLI_FIS.CODCLI
WHERE CLIENTE.CODIGO = 1

Com o código acima o resultado será o mesmo, pois o diferencial é o filtro do código do cliente.

Cabo de Rede

Abaixo uma tabela para a crimpar o cabo de rede o famoso RJ45

Roteadores

Primeiro devemos saber qual o seu endereço para acessá-lo, como no exemplo de um roteador Intelbras o endereço físico dele é de 10.0.0.1 e usuário e senha é 'admin', esse IP digitamos na barra de endereço do browser, mas por outro lado temos roteadores com o endereço 192.168.1.1 em relação a isso depende da marca do roteador que pode confundir com o roteador da Speedy no qual seu endereço de Ip é 192.168.2.1.

Observação para identificar o endereço do Ip do seu roteador, basta ver se no manual tem o endereço ou verificar se atras do aparelho.

O cabo da internet você conectará na porta WLAN do roteador para que distribuir a conexão da internet.

Para utilizar o Wireless basta ativar o serviço no Menu Wireless do seu roteador e não se esqueça de colocar uma senha para que vizinhos não utiliza a sua internet via Wireless.

Usuário e senha dos roteadores podem ser diferentes veja alguns exemplos:

Usuário : 'admin' e Senha : 'admin'

Usuário : 'admin' e Senha : '123456'

Criando tabela via código SQL SERVER

No exemplo abaixo mostra as tabelas pelo tipo de Pessoa (Física e Juridica)

Digamos que exista o banco de dados BD_PESSOA

USE BD_PESSOA


GO
CREATE TABLE CLIENTE(CODIGO BIGINT NOT NULL IDENTITY(1,1),
ENDERECO NVARCHAR(50),
BAIRRO NVARCHAR(50),
CIDADE NVARCHAR(30),
UF BIGINT,
CEP NVARCHAR(8),
TIPO CHAR(1),
TEL1 NVARCHAR(10),
TEL2 NVARCHAR(10),
OBS NVARCHAR(250),
ULTNOME NVARCHAR(15),
ULTDATA DATETIME,
CONSTRAINT PK_CODCLIENTE PRIMARY KEY(CODIGO))

GO
CREATE TABLE CLI_FIS(CODIGO BIGINT NOT NULL IDENTITY(1,1),
CODCLI BIGINT,
NOME NVARCHAR(30),
CPF NVARCHAR(11),
RG NVARCHAR(9),
CONSTRAINT PK_CLI PRIMARY KEY(CODIGO),
CONSTRAINT FK_CODCLI FOREIGN KEY(CODCLI)
REFERENCES CLIENTE(CODIGO))

GO
CREATE TABLE CLI_JUR(CODIGO BIGINT NOT NULL IDENTITY(1,1),
CODJUR BIGINT,
RAZAO NVARCHAR(50),
FANTASIA NVARCHAR(50),
CNPJ NVARCHAR(14),
IE NVARCHAR(12),
CONSTRAINT PK_JUR PRIMARY KEY(CODIGO),
CONSTRAINT FK_CJUR FOREIGN KEY(CODJUR)
REFERENCES CLIENTE(CODIGO))

conforme acima para cadastro fica apenas uma tela, sendo que no banco de dados fica mais fácil de identificar os dois tipos de pessoa.

Conectar ao banco SQL via CSharp 2010

Nesse exemplo estou utilizando uma classe BD para incluir o código de conexão ao banco

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Data.SqlClient;

namespace Exemplo
{
    class BD
    {
        public static SqlConnection Conecta()
        {
            SqlConnection cnt = new SqlConnection();
            String SQL;

            SQL = "DATA SOURCE = " + Servidor + ";" + // Nome do Servidor
             "USER ID = " + Usuario + ";" + // Nome do Usuario
             "PASSWORD = " + Senha + ";" +  // Senha do Usuário
             "INITIAL CATALOG = " + Base + ";"; // Base de Dados

            cnt.ConnectionString = SQL;
            try
            {
                cnt.Open();
                return cnt;
            }
            catch (Exception)
            {
                cnt,Close();
                return cnt;
            }
        }
    }
}

Conectar a ACCESS via VB.NET

Nesse exemplo estou utilizando no próprio formulário:

Imports System.Data.OleDb

Public Class Form1

Dim CNT As New OleDbConnection

Private Function BD() As OleDbConnection
        Try
            Dim ArqBD As String = Application.StartupPath & "\BD_AGENDA.mdb"
            Dim CamBD As String = "provider=microsoft.jet.oledb.4.0;data source="
            CNT.ConnectionString = CamBD & " " & ArqBD
            CNT.Open()
        Catch ex As Exception
            MsgBox("Erro" & vbNewLine & ex.ToString)
        End Try
        Return CNT
    End Function
End Class

No evento Load do Form coloque o código abaixo:
  BD()

Tratamento de Dados para inclusão no SQL

Antes de incluir dados no SQL, devemos tratar essas informações:

String devemos deixar (') aspas no inicio e no fim da string, podemos utilizar a função replace("'", ""); ex.: 'administrador';

Data/ Hora devemos inverter para inclusão no banco em campo DateTime; ex.: 01/02/2000 para 2000/02/01

Valor em Moeda trocamos a vírgula e colocamos ponto, para incluir em um campo Decimal com duas casas. ex.: 2,00 fica assim 2.00

Carregar um DataGridView VB.NET

        Dim ds = New DataSet
        Dim SQL As String

       SQL = "SELECT * FROM " & Tabela & " ORDER BY " & Campo

        ' CNT veja em Conexão com Banco de Dados
        Dim da As New System.Data.SqlClient.SqlDataAdapter(SQL, CNT)
        da.Fill(ds, "tabela")

        ' Carrega os Dados e mostra no DataGrid
        DataGridView.DataSource = ds.Tables("tabela")
        DataGridView.Refresh()

Cronometro no VB.NET

No Form inclua um Label, renomeie para lblRelogio;

Inclua um Timer

No Form_Load coloque o código abaixo:

lblRelogio.Text = "00:00:00"

No Evento do Timer coloque o código abaixo:

lblRelogio.Text = DateAndTime.DateAdd("s", 1, lblRelogio.Text)

Dica:

Você pode colocar botões para "Parar, Continuar e Zerar o contador"

Conectar a Banco de Dados via SQL Server no VB.NET

Primeiro devemos incluir o Namespace para conectar via código.


Pode colocar em um Módulo como no exemplo:


Imports System.Data.SqlClient
Module modBD
    Public SQL As String
    Public CNT As New SqlConnection
    Public Function Carregar_Banco() As SqlConnection
        Dim msg As String = "Erro ao Carregar Banco de Dados"
        ' Carregar o Banco de Dados SQL
        SQL = "DATA SOURCE = " & Servidor & ";" ' Nome do Servidor
        SQL = SQL & "USER ID = " & Usuario & ";" ' Nome do Usuario
        SQL = SQL & "PASSWORD = " & Senha & ";" ' Senha do Usuário
        SQL = SQL & "INITIAL CATALOG = " & Base '& ";" ' Base de Dados
        'SQL = SQL & "INTEGRATED SECURITY = YES"
        CNT.ConnectionString = SQL


            If CNT.State = 0 Then
                Try
                    CNT.Open()
                    'MsgBox("Banco de Dados Carregado")
                    'Return True

                Catch ex As Exception
                    MsgBox(msg & vbNewLine & ex.ToString(), MsgBoxStyle.Exclamation, "Alerta")

                End Try
            End If
        Return CNT
    End Function

End Module