BOTÃO EXCLUIR

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Imports System.Data.SqlClient
Imports System.Data
Public Class frmCliente
 Dim strConn As String = "Data Source=EDNILSON-NOTE\SQLEXPRESS; Initial Catalog=db_PFB045; Integrated Security=true; Connect Timeout = 60"
 Private Function consulta(ByVal sql As String) As String
 Dim cnn As SqlConnection
 Dim cmd As SqlCommand
 Dim reader As SqlDataReader
 cnn = New SqlConnection(strConn)
 Try
 cnn.Open()
 cmd = New SqlCommand(sql, cnn)
 reader = cmd.ExecuteReader()
 While reader.Read()
 Return reader.Item(0)
 End While
 reader.Close()
 cmd.Dispose()
 cnn.Close()
 Catch ex As Exception
 Return MsgBox("Conexão não abre!")
 End Try
 Return MsgBox("sem conexão")
 Return sql
 End Function
 Private Sub insert_update_delete(ByVal sSql As String)
 ' cria objeto de conexão e comando
 Dim cnn As New SqlConnection(strConn)
 Dim cmd As SqlCommand
 Try
 ' instancia comando de conexão
 cmd = New SqlCommand(sSql, cnn)
 ' abre conexão
 cnn.Open()
 ' executa comando de conexão
 cmd.ExecuteNonQuery()
 Catch ex As Exception
 MessageBox.Show("Erro ao inserir dados: " & ex.Message)
 Finally
 ' fecha conexão 
 cnn.Close()
 End Try
 End Sub
 Private Sub Label4_Click(sender As System.Object, e As System.EventArgs)
 End Sub
 Private Sub Label5_Click(sender As System.Object, e As System.EventArgs)
 End Sub
 Private Sub NumericUpDown1_ValueChanged(sender As System.Object, e As System.EventArgs)
 End Sub
 Private Sub btnSair_Click(sender As System.Object, e As System.EventArgs)
 Me.Close()
 End Sub
 Private Sub lblBairroCliente_Click(sender As System.Object, e As System.EventArgs) Handles lblBairroCliente.Click
 End Sub
 Private Sub btnSairCliente_Click(sender As System.Object, e As System.EventArgs) Handles btnSairCliente.Click
 Me.Close()
 End Sub
 Private Sub btnCadastrarCliente_Click(sender As System.Object, e As System.EventArgs) Handles btnCadastrarCliente.Click
 Dim sSql As String
 sSql = "INSERT INTO tbl_Cliente (ID_CLIENTE, ID_DISPOSITIVO, NOME, SOBRENOME, RG, CPF, RUA_AVENIDA, BAIRRO, CEP, TELEFONE_RESIDENCIAL, TELEFONE_CELULAR) values (" & txtIDCliente.Text & ", " & txtIDDispCliente.Text & ", '" & txtNomeCliente.Text & "', '" & txtSobrenomeCliente.Text & "' , " & txtRGCliente.Text & ", " & txtCPFCliente.Text & ", '" & txtEnderecoCliente.Text & "', ' " & txtBairroCliente.Text & "', " & txtCEPCliente.Text & ", " & txtResidencialCliente.Text & ", " & txtCelularCliente.Text & ")"
 insert_update_delete(sSql)
 MessageBox.Show("Dados inseridos com Sucesso!")
 End Sub
 Private Sub btnConsultarCliente_Click(sender As System.Object, e As System.EventArgs) Handles btnConsultarCliente.Click
 Dim Sql As String = "SELECT ID_CLIENTE FROM tbl_Cliente Where ID_CLIENTE = " & txtIDCliente.Text
 txtIDDispCliente.Text = consulta(Sql)
 Sql = "SELECT NOME FROM tbl_Cliente Where ID_CLIENTE = " & txtIDCliente.Text
 txtNomeCliente.Text = consulta(Sql)
 Sql = "SELECT SOBRENOME FROM tbl_Cliente Where ID_CLIENTE = " & txtIDCliente.Text
 txtSobrenomeCliente.Text = consulta(Sql)
 Sql = "SELECT ID_DISPOSITIVO FROM tbl_Cliente Where ID_CLIENTE = " & txtIDCliente.Text
 txtIDDispCliente.Text = consulta(Sql)
 Sql = "SELECT RUA_AVENIDA FROM tbl_Cliente Where ID_CLIENTE = " & txtIDCliente.Text
 txtEnderecoCliente.Text = consulta(Sql)
 Sql = "SELECT BAIRRO FROM tbl_Cliente Where ID_CLIENTE = " & txtIDCliente.Text
 txtBairroCliente.Text = consulta(Sql)
 Sql = "SELECT TELEFONE_CELULAR FROM tbl_Cliente Where ID_CLIENTE = " & txtIDCliente.Text
 txtCelularCliente.Text = consulta(Sql)
 Sql = "SELECT CPF FROM tbl_Cliente Where ID_CLIENTE = " & txtIDCliente.Text
 txtCPFCliente.Text = consulta(Sql)
 Sql = "SELECT RG FROM tbl_Cliente Where ID_CLIENTE = " & txtIDCliente.Text
 txtRGCliente.Text = consulta(Sql)
 Sql = "SELECT TELEFONE_RESIDENCIAL FROM tbl_Cliente Where ID_CLIENTE = " & txtIDCliente.Text
 txtResidencialCliente.Text = consulta(Sql)
 Sql = "SELECT CEP FROM tbl_Cliente Where ID_CLIENTE = " & txtIDCliente.Text
 txtCEPCliente.Text = consulta(Sql)
 End Sub
 Private Sub btnAlterarCliente_Click(sender As System.Object, e As System.EventArgs) Handles btnAlterarCliente.Click
 Dim Sql As String = "UPDATE tbl_Cliente SET ID_DISPOSITIVO = '" & txtIDDispCliente.Text & "' WHERE ID_CLIENTE = " & txtIDCliente.Text
 insert_update_delete(Sql)
 Sql = "UPDATE tbl_Cliente SET NOME = '" & txtNomeCliente.Text & "' WHERE ID_CLIENTE = " & txtIDCliente.Text
 insert_update_delete(Sql)
 Sql = "UPDATE tbl_Cliente SET SOBRENOME = '" & txtSobrenomeCliente.Text & "' Where ID_CLIENTE = " & txtIDCliente.Text
 insert_update_delete(Sql)
 Sql = "UPDATE tbl_Cliente SET RUA_AVENIDA = '" & txtEnderecoCliente.Text & "' Where ID_CLIENTE = " & txtIDCliente.Text
 insert_update_delete(Sql)
 Sql = "UPDATE tbl_Cliente SET BAIRRO = '" & txtBairroCliente.Text & "' Where ID_CLIENTE = " & txtIDCliente.Text
 insert_update_delete(Sql)
 Sql = "UPDATE tbl_Cliente SET TELEFONE_CELULAR = '" & txtCelularCliente.Text & "' Where ID_CLIENTE = " & txtIDCliente.Text
 insert_update_delete(Sql)
 Sql = "UPDATE tbl_Cliente SET CPF ='" & txtCPFCliente.Text & "' Where ID_CLIENTE = " & txtIDCliente.Text
 insert_update_delete(Sql)
 Sql = "UPDATE tbl_Cliente SET RG = '" & txtRGCliente.Text & "' Where ID_CLIENTE = " & txtIDCliente.Text
 insert_update_delete(Sql)
 Sql = "UPDATE tbl_Cliente SET TELEFONE_RESIDENCIAL = '" & txtResidencialCliente.Text & "' Where ID_CLIENTE = " & txtIDCliente.Text
 insert_update_delete(Sql)
 Sql = "UPDATE tbl_Cliente SET CEP = '" & txtCEPCliente.Text & "' Where ID_CLIENTE = " & txtIDCliente.Text
 insert_update_delete(Sql)
 MessageBox.Show("Dados inserido com sucesso!")
 End Sub
 Private Sub frmCliente_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 End Sub
 Private Sub btnExcluirCliente_Click(sender As System.Object, e As System.EventArgs) Handles btnExcluirCliente.Click
 Dim conexao As SqlConnection
 Dim comando As SqlCommand
 conexao = New SqlConnection("server=EDNILSON-NOTE\SQLEXPRESS; Initial Catalog=db_PFB045; Integrated Security=true; Connect Timeout = 60")
 conexao.Open()
 comando = New SqlCommand("DELETE tbl_Cliente WHERE(ID_CLIENTE, ID_DISPOSITIVO, NOME, SOBRENOME, RG, CPF, RUA_AVENIDA, BAIRRO, CEP, TELEFONE_RESIDENCIAL, TELEFONE_CELULAR", conexao)
 comando.ExecuteNonQuery()
 MessageBox.Show("Dados DELETADO com sucesso!")
 End Sub
End Class