Continuar nosso conteudo...hoje temos visto muitas materias de como cadastrar dados no SQL mas nesta parte nosso artigo vamos a trabalhar tudo validacao dos componente e a declaracao de cadastro da nossa tabela dados, como pode analisar a conexao do banco de dados com o String nao muda na minha declaracao, mas porem a estrutura minha irei a realizar algumas ideia de como poder programar e trabalhar com o banco de dados.a mudanca comeca quando em SQL e Access sao declarados de como poder trabalhar e validar baseado em Values chamando assim a confirmacao de cada declaracao.Acompanhe o nosso video para poder entender esta parte do artigo.Codigo fonte Public Sub SalvarDados() Using cn As SqlConnection = bd_conexao() Try cn.Open() Dim sql As String = "Insert Into Dados([nome_de], [nome_para], [fone], [assunto], " sql += "[observ], [dt_reg])Values(@nome_de,@nome_para,@fone,@assunto,@observ,@dt_reg)Select * From dados Where(cod=SCOPE_IDENTITY())" Dim cmd As SqlCommand = New SqlCommand(sql, cn) cmd.Parameters.Add(New SqlParameter("@nome_de", SqlDbType.NVarChar)).Value = txt_nomede.Text cmd.Parameters.Add(New SqlParameter("@nome_para", SqlDbType.NVarChar)).Value = txt_nomepara.Text cmd.Parameters.Add(New SqlParameter("@fone", SqlDbType.NVarChar)).Value = msk_telefone.Text cmd.Parameters.Add(New SqlParameter("@assunto", SqlDbType.NVarChar)).Value = cbo_Assunto.Text cmd.Parameters.Add(New SqlParameter("@observ", SqlDbType.NVarChar)).Value = txtObservacoes.Text cmd.Parameters.Add(New SqlParameter("@dt_reg", SqlDbType.DateTime)).Value = dt_tempo cmd.ExecuteNonQuery() MsgBox("Dados inserido com sucesso. !", MsgBoxStyle.Information, "Arimuya - Projetos T.I.") Call CarregarDados() Call BloquearCampos() Call LimparCampos() 'bloquear/desbloquear botoes btnNovo.Enabled = True btnSalvar.Enabled = False btnCancelar.Enabled = False Catch ex As Exception MsgBox(ex.Message) Finally cn.Close() End Try End Using End Sub Public Sub LimparCampos() txt_nomede.Clear() txt_nomepara.Clear() txtObservacoes.Clear() msk_telefone.Clear() cbo_Assunto.SelectedIndex = -1 txt_nomede.Focus() End Sub Public Sub BloquearCampos() txt_nomede.Enabled = False txt_nomepara.Enabled = False txtObservacoes.Enabled = False msk_telefone.Enabled = False cbo_Assunto.Enabled = False End Sub Public Sub DesbloquearCampos() txt_nomede.Enabled = True txt_nomepara.Enabled = True txtObservacoes.Enabled = True msk_telefone.Enabled = True cbo_Assunto.Enabled = True End Sub Vamos a trabalhar este artigo referente ao componente ListBox, mais uma vez existem muitas forma de aplicar o listbox, como por exemplo no artigo VB.NET 2008 - Controlar BackgroundWorker1 e gerando pelo Evento Click e adicionando o resultado na ListBox podemos ver que se aplica de muitas formas, mostra tambem uma serie de elementos dos que o usuario pode selecionar um ou mais itensVeja este exemplo VB.NET 2010 - Desenvolvendo Um Registro de Chamadas com ListBox, Button, Textbox e Label simples e VB.NET 2010 - Lista de Paises e Capitais Mediante com objeto TreeVierw e ListaBoxAlgumas funcoes que sao usadas com frequencias.Veja o Codigo Fonte Public Class frmListboxSimples Private Sub btnAdicionar_Click(sender As Object, e As EventArgs) Handles btnAdicionar.Click If txtAdicionar.Text = "" Then MsgBox("Favor informar um valor na caixa de Adicionar um registro. !", MsgBoxStyle.Information, "Arimuya - Projeto T.I.") Exit Sub Else Me.LstHistorico.Items.Add(txtAdicionar.Text) MsgBox("Valor foi incluido na lista de Registro. !", MsgBoxStyle.Information, "Arimuya - Projeto T.I.") txtAdicionar.Text = "" End If End Sub Private Sub btnLimpar_Click(sender As Object, e As EventArgs) Handles btnLimpar.Click LstHistorico.Items.Clear() End Sub Private Sub btnDeletarRegistro_Click(sender As Object, e As EventArgs) Handles btnDeletarRegistro.Click If LstHistorico.SelectedIndex > -1 Then LstHistorico.Items.RemoveAt(LstHistorico.SelectedIndex) End If End Sub Private Sub btnBloqueadoDesbloqueado_Click(sender As Object, e As EventArgs) Handles btnBloqueadoDesbloqueado.Click If LstHistorico.Enabled = True Then LstHistorico.Enabled = False Else LstHistorico.Enabled = True End If End Sub Private Sub btnOcultarMostrar_Click(sender As Object, e As EventArgs) Handles btnOcultarMostrar.Click If LstHistorico.Visible = True Then LstHistorico.Visible = False Else