Dando continuidade do artigo, entao vamos usar hoje Alteracao de um Registro voces sabem que existem muitos trabalhos deste mesmo artigo que estou elaborando, mas para alguns ou para quem esta aprendendo a trabalhar com linguagem de programacao pode ter ainda algumas dificuldades, neste artigo o unico que apresentamos a voces e de como trabalhar justamente na modificacao de um dado de cadastro, assim podem ver voces o modo de usar basicamente a elaboracao de um registro cadastrado.Cabe informar que este servico e quase identico como usamos em Access, porem tem algumas mudancas na comunicacao do string.Vamos ver de como poder trabalhar esta parte.boa pesquisa...! REM alterar dados registrado Public Sub AlterarDados() Using cn As SqlConnection = bd_conexao() Try cn.Open() Dim sql As String = "Update Dados Set nome_de=@nome_de, nome_para=@nome_para, fone=@fone, assunto=@assunto, observ=@observ Where cod='" & lblcodigo.Text & "'" 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.ExecuteNonQuery() MsgBox("Dados alterados com sucesso. !", MsgBoxStyle.Information, "Arimuya - Projetos T.I.") Call CarregarDados() Call BloquearCampos() Call LimparCampos() 'bloquear/desbloquear botoes btnNovo.Enabled = True btnEditar.Enabled = False btnAlterar.Enabled = False btnExcluir.Enabled = False btnSalvar.Enabled = False btnCancelar.Enabled = False ListBoxMovimento.Items.Add("Data Registrado: " & dt_tempo & " Um Registro foi alterado...") Catch ex As Exception MsgBox(ex.Message) Finally cn.Close() End Try End Using End Sub Bom galera, nesta parte do projeto e onde aprendemos a trabalhar de como excluir um registro de nosso banco de dados em Sql, como podemo ver, existe muitas forma de programar que facilita a comunicacao e o comportamento do sistema, espero que seja este artigoBaixar o Programa de ControleDeRecados2016 Public Sub ExcluirDados() Using cn As SqlConnection = bd_conexao() Try cn.Open() Dim msginformar As String msginformar = MsgBox("Deseja Excluir os dados de: " & txt_nomede.Text & " ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Arimuya - Projetos T.I.") If msginformar = System.Windows.Forms.DialogResult.No Then MsgBox("Operacao de Exclusao cancelada. ", MsgBoxStyle.Information, "Arimuya - Projetos T.I.") Call LimparCampos() Call BloquearCampos() ListBoxMovimento.Items.Add("Data Registrado: " & dt_tempo & " Foi cancelado uma operacao de exclusao...") 'bloquear/desbloquear botoes btnNovo.Enabled = True btnEditar.Enabled = False btnAlterar.Enabled = False btnExcluir.Enabled = False btnSalvar.Enabled = False btnCancelar.Enabled = False Exit Sub Else Dim sql As String = "Delete From dados Where cod='" & lblcodigo.Text & "'" Dim cmd As SqlCommand = New SqlCommand(sql, cn) cmd.ExecuteNonQuery() MsgBox("Dados Deletados com sucesso. !", MsgBoxStyle.Information, "Arimuya - Projetos T.I.") CarregarDados() Call LimparCampos() Call BloquearCampos() ListBoxMovimento.Items.Add("Data Registrado: " & dt_tempo & " foi deletado um Registro, do sistema...") 'bloquear/desbloquear botoes btnNovo.Enabled = True btnEditar.Enabled = False btnAlterar.Enabled = False btnExcluir.Enabled = False btnSalvar.Enabled = False btnCancelar.Enabled = False End If Catch ex As Exception MsgBox(ex.Message) Finally cn.Close() End Try End Using End Sub Em uma interface MDI - Mutilple Document Interface - uma janela pode conter varios outros formularios e cada um com apenas um documento. Uma aplicacao MDI consiste de uma formulario MDI pai e multiplos formularios filhos ; os formularios filhos estao contidos no interior do formulario pai.O proprio VB.NET e um exemplo de aplicacao