VB.NET 2015 - Validar componentes e Cadastrar no Banco de Dados Sql Server 2014 (Parte 2) (Vídeo)
Autor: Melqui Serrano Arimuya | Publicado: 2016-01-07T05:07:00-04:00






Continuar nosso conteúdo...

hoje temos visto muitas matérias de como cadastrar dados no SQL mas nesta parte nosso artigo vamos a trabalhar tudo validação dos componente e a declaração de cadastro da nossa tabela dados, como pode analisar a conexão do banco de dados com o String não muda na minha declaração, mas porem a estrutura minha irei a realizar algumas ideia de como poder programar e trabalhar com o banco de dados.

a mudança começa quando em SQL e Access são declarados de como poder trabalhar e validar baseado em Values chamando assim a confirmação de cada declaração.

Acompanhe o nosso vídeo para poder entender esta parte do artigo.



Código fonte


 

  
Public Sub SalvarDados()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Using cn As SqlConnection = bd_conexao()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Try

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  cn.Open()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim sql As String = "Insert Into Dados([nome_de], [nome_para], [fone],
  [assunto], "

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sql += "[observ],
  [dt_reg])Values(@nome_de,@nome_para,@fone,@assunto,@observ,@dt_reg)Select *
  From dados Where(cod=SCOPE_IDENTITY())"

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim cmd As SqlCommand = New SqlCommand(sql, cn)

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cmd.Parameters.Add(New SqlParameter("@nome_de", SqlDbType.NVarChar)).Value
  = txt_nomede.Text

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cmd.Parameters.Add(New SqlParameter("@nome_para", SqlDbType.NVarChar)).Value
  = txt_nomepara.Text

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cmd.Parameters.Add(New SqlParameter("@fone", SqlDbType.NVarChar)).Value
  = msk_telefone.Text

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cmd.Parameters.Add(New SqlParameter("@assunto", SqlDbType.NVarChar)).Value
  = cbo_Assunto.Text

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cmd.Parameters.Add(New SqlParameter("@observ", SqlDbType.NVarChar)).Value
  = txtObservacoes.Text

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cmd.Parameters.Add(New SqlParameter("@dt_reg", SqlDbType.DateTime)).Value
  = dt_tempo

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cmd.ExecuteNonQuery()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  MsgBox("Dados inserido com
  sucesso. !", MsgBoxStyle.Information,
  "Arimuya - Projetos T.I.")

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call CarregarDados()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Call BloquearCampos()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Call LimparCampos()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'bloquear/desbloquear botoes

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  btnNovo.Enabled = True

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  btnSalvar.Enabled = False

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  btnCancelar.Enabled = False



&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Catch ex As Exception

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  MsgBox(ex.Message)

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Finally

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  cn.Close()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Try

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Using

&nbsp;&nbsp;&nbsp;
  End Sub

 





 

  
  
Public Sub LimparCampos()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  txt_nomede.Clear()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txt_nomepara.Clear()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtObservacoes.Clear()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; msk_telefone.Clear()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  cbo_Assunto.SelectedIndex = -1

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txt_nomede.Focus()

&nbsp;&nbsp;&nbsp; End Sub



&nbsp;&nbsp;&nbsp; Public Sub BloquearCampos()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txt_nomede.Enabled = False

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txt_nomepara.Enabled = False

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtObservacoes.Enabled = False

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; msk_telefone.Enabled = False

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cbo_Assunto.Enabled = False



&nbsp;&nbsp;&nbsp; End Sub



&nbsp;&nbsp;&nbsp; Public Sub DesbloquearCampos()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txt_nomede.Enabled = True

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txt_nomepara.Enabled = True

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtObservacoes.Enabled = True

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; msk_telefone.Enabled = True

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cbo_Assunto.Enabled = True



&nbsp;&nbsp;&nbsp; End Sub