Ir para conteúdo
Fórum Script Brasil

toni26

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre toni26

toni26's Achievements

0

Reputação

  1. boa tarde esto com um pequeno problema tenho um sistema de nivel de permissao, porem esta funcionando tudo e na hora que vou pesquisar para editar na form de Administrador(Nivel de permissao) quando vou editar aparece varios niveis como vendedor,funcionario e administrador queria que quando o programa pesquisar que o nivel de acesso do camarada for administrador ele so manda informacao do administrador no data grid view tentei varias verificacao com o IF e nao deu certo segue meu codigo Imports System.DataImports System.Data.OleDbPublic Class editar_Administardor Private Sub Consultar_Editar_All_User_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load PCarregaDados() End Sub Private Sub PCarregaDados() Using con As OleDbConnection = geetConectionCadClientesFotos() Try con.Open() Dim sql As String = "SELECT * FROM usuarios" ' quero que ele seta apenas usuarios com nivel de administrador e deixa ambos invisivel se for outro nivel Dim cmd As OleDbCommand = New OleDbCommand(sql, con) Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim dt As DataTable = New DataTable da.Fill(dt) Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub Private Sub PExcluirDados() ' Using con As OleDbConnection = geetConectionCadClientesFotos() Try con.Open() Dim sql As String = "DELETE FROM usuarios WHERE codigo=" & CInt(dvgDadosUserAllDelete.CurrentRow.Cells("codigo").Value) Dim cmd As OleDbCommand = New OleDbCommand(sql, con) cmd.ExecuteNonQuery() MsgBox("Excluido com Sucesso", MsgBoxStyle.Information, "Sucesso") PCarregaDados() Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub Private Sub btnExcluir_Click(sender As System.Object, e As System.EventArgs) Handles btnExcluir.Click PExcluirDados() End Sub Private Sub dvgDadosUserAllDelete_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dvgDadosUserAllDelete.CellClick If (Not (dvgDadosUserAllDelete.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Is Nothing) Then Me.txtCodigo.Text = Me.dvgDadosUserAllDelete.CurrentRow.Cells(0).Value End If If (Not (dvgDadosUserAllDelete.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Is Nothing) Then Me.txtNome.Text = Me.dvgDadosUserAllDelete.CurrentRow.Cells(1).Value End If If (Not (dvgDadosUserAllDelete.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Is Nothing) Then Me.txtEmail.Text = Me.dvgDadosUserAllDelete.CurrentRow.Cells(2).Value End If If (Not (dvgDadosUserAllDelete.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Is Nothing) Then Me.txtSenha.Text = Me.dvgDadosUserAllDelete.CurrentRow.Cells(3).Value End If If (Not (dvgDadosUserAllDelete.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Is Nothing) Then Me.txtNivelPermissao.Text = Me.dvgDadosUserAllDelete.CurrentRow.Cells(14).Value End If End Sub Private Sub dvgDadosUserAllDelete_DataBindingComplete(sender As Object, e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles dvgDadosUserAllDelete.DataBindingComplete With dvgDadosUserAllDelete .Columns("empresa").Visible = False .Columns("Celular").Visible = False .Columns("Telefone").Visible = False .Columns("Cpf cnpj").Visible = False .Columns("CEP").Visible = False .Columns("Endereco").Visible = False .Columns("bairro").Visible = False .Columns("cidade").Visible = False .Columns("Data de Registro").Visible = False .Columns("Data de Edicao").Visible = False .Columns("Data De Pedido").Visible = False .Columns("Data da Entrega").Visible = False .Columns("Dias Para Pagar").Visible = False .Columns("Salario").Visible = False .Columns("Carga Horaria").Visible = False .Columns("Horario de Chegada").Visible = False .Columns("Horario de Almoco").Visible = False .Columns("horario de Saida").Visible = False .Columns("estado").Visible = False .Columns("Data Nascimento").Visible = False .Columns("Imagem").Visible = False 'Data Nascimento End With End Sub Private Sub btnNovo_Click(sender As System.Object, e As System.EventArgs) Handles btnNovo.Click Cadastrar_Administrador.ShowDialog() End Sub Private Sub EditarAdministrador() Using con As OleDbConnection = geetConectionCadClientesFotos() Try con.Open() Dim sql As String = "UPDATE usuarios SET nome=?,email=?,senha=?,[Nivel De Permissao]=? WHERE codigo=" & CInt(txtCodigo.Text) Dim cmd As OleDbCommand = New OleDbCommand(sql, con) cmd.Parameters.Add(New OleDb.OleDbParameter("@nome", txtNome.Text)) cmd.Parameters.Add(New OleDb.OleDbParameter("@email", txtEmail.Text)) cmd.Parameters.Add(New OleDb.OleDbParameter("@senha", txtSenha.Text)) cmd.Parameters.Add(New OleDb.OleDbParameter("@[Nivel De Permissao]", txtNivelPermissao.Text)) cmd.ExecuteNonQuery() MsgBox("Alterado com sucesso") PCarregaDados() Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub Private Sub btnEditar_Click(sender As System.Object, e As System.EventArgs) Handles btnEditar.Click EditarAdministrador() End SubEnd Class
×
×
  • Criar Novo...