Datagriedview com checkboxes.

[aprendiz93]

Olá, Bom dia amigos.

Tenho um Datagriedview que é preenchido com dados do BD access. criei uma coluna com Checkboxes para o usário marcar quais registros ele deseja excluir.

como eu faço para excluir todos os registro marcados do Checkboxes?

Agradeço desde já pela atenção.

Até mais.

[NunoDinis]

Numa primeira fase tens que percorrer o datagrid. De seguida verificas se a checkbox na posicao esta "CHECKED". Se sim eliminas.

A logica e esta, qualquer duvida no codigo dispoe.

[aprendiz93]

Desculpa mais n entendi essa sua Lógica.

Vou explicar novamente o que eu preciso.

Tenho um Datagriedview que é preenchido com dados do BD access. Criei uma coluna no Datagriedview com Checkboxs para o usário marcar quais registros ele deseja excluir. Após o usuário marca os registros que ele quer excluir gostaria q ele clica-se

no botão remover e exclui-se o registro q ele selecionou.

Qual seria o código necessário para esse algoritimo?

Agradeço pela atenção.

[NunoDinis]

Acho que fui bem claro, mas volto a explicar, não tem problema 🙂

Tens que percorrer as posiçoes da dataGrid, e se a checkBox estiver checkada vais eliminar, então:

For i = 0 To dg.Rows.Count - 1

   If dg.Item(0, i).Value = "Sim" Then
       ''CODIGO PARA ELIMINAR
   End If

Next

Percebeste ?

NOTA: Nunca utilizei a opção de eliminar com checkbox em dataGrid, portanto não será " .Value = "SIM" ".

Edited August 3, 2012 at 08:01 AM by Caça
GeSHi

[aprendiz93]

Agradeço pela atenção. Vou fazer o teste e depois posto se deu certo ou não.

[ricasss]

Acho que fui bem claro, mas volto a explicar, não tem problema 🙂

Tens que percorrer as posiçoes da dataGrid, e se a checkBox estiver checkada vais eliminar, então:

For i = 0 To dg.Rows.Count - 1

If dg.Item(0, i).Value = "Sim" Then
	''CODIGO PARA ELIMINAR
End If

Next

Percebeste ?

NOTA: Nunca utilizei a opção de eliminar com checkbox em dataGrid, portanto não será " .Value = "SIM" ".

Penso que seja 1 ou 0 😉

[Caça]

O correcto é

If Convert.ToBoolean(dg.Item(0, i).Value) = True Then

[aprendiz93]

Para min eliminar todos os registros do bd utilizo o código

Dim sintaxe As String = "Delete from BDUSUA"

agora neste caso, qual seria o código para eliminar do banco de dados o registro selecionado do checkbox no datagriedview?

[NunoDinis]

Dim query as string = "Delete from TABELA where cod = " & dg.Item(0, i).Value & ""

isto dentro da tua condição IF.

[aprendiz93]

Boa Tarde!!

Implementei esse código mais n deu em nd. segue o meu código.

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

 Dim ligação As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\Projects\Controle de Despesas\Usuário.accdb;Persist Security Info=False;"

 For i = 0 To DataGridView1.Rows.Count - 1


	 If Convert.ToBoolean(DataGridView1.Item(0, i).Value) = True Then


		 'CODIGO PARA ELIMINAR

		 Dim query As String = "Delete from BDUSUA where codigo = " & DataGridView1.Item(0, i).Value & ""


	 End If
 Next
End Sub

Agradeço desde já pela força.

Edited August 10, 2012 at 08:01 AM by Caça

[FreiNando]

Nem podia dar. Ou estariamos perante um milagre.

O 0(zero) de Item(0,i) indica a coluna.

Por isso tens de colocar o numero da coluna que tens a checkbox na primeira expressão, e na outra (código para eliminar) indicas a coluna onde está o codigo (coluna com indice unico ou chave primária da tabela DBUSA).

[aprendiz93]

hm entendi. vou fazer o teste e depois posto se deu certo ou não. Obg pela atenção.

[aprendiz93]

Bom dia!!

Ainda continuo com problemas. Mesmo colocando as colunas corretas no código não faz função nenhuma e nem da erro. Segue o código.

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim ligação As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\Projects\Controle de Despesas\Usuário.accdb;Persist Security Info=False;"

For i = 0 To DataGridView1.Rows.Count - 1


If Convert.ToBoolean(DataGridView1.Item(1, i).Value) = True Then


'CODIGO PARA ELIMINAR

Dim query As String = "Delete from BDUSUA where Código = " & DataGridView1.Item(2, i).Value & ""


End If
Next
End Sub

[acao]

boas tardes,

presumo que faltem comandos para poder deletar os registos.

veja este toturial da wiki.

http://wiki.portugal-a-programar.pt/dev_net:vb.net:access

cumps

acao

[aprendiz93]

Boass!!

Fiz mais umas implementações no meu código mais agora esta dando error. "Nenhum valor foi fornecido para um ou mais parâmetros necessários."

Segue o código.

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim ligação As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\Projects\Controle de Despesas\Usuário.accdb;Persist Security Info=False;"

Dim conecção As New OleDbConnection(ligação)

For i = 0 To DataGridView1.Rows.Count - 1


If Convert.ToBoolean(DataGridView1.Item(1, i).Value) = True Then

'CODIGO PARA ELIMINAR

Dim sintaxe As String = "Delete from BDUSUA where Código = " & DataGridView1.Item(2, i).Value & ""

Dim command As New OleDbCommand(sintaxe, conecção)

conecção.Open()

Dim insere As Integer = command.ExecuteNonQuery()

If insere < 1 Then
MsgBox("Usuário não foi exluido!! Tente novamente!!")
Else
MsgBox("Usuário Excluido com sucesso!!")
End If

conecção.Close()

Dim da As New OleDb.OleDbDataAdapter
Dim ds As DataSet
Dim sintaxe2 = "Select * From BDUSUA"
command.CommandText = sintaxe2
command.Parameters.Clear()
da.SelectCommand = command
' Cria um DataSet, ou seja, uma representação em memória da informação
ds = New DataSet
' Coloca a informação da tabela definida no DataSet
da.Fill(ds, "BDUSUA")
' Define que a fonte de dados da DataGridView é a nossa DataSet
' criando automáticamente as colunas e linhas de dados
Me.DataGridView1.DataSource = ds.Tables("BDUSUA")
sintaxe = Nothing
conecção = Nothing

End If
Next
End Sub

[FreiNando]

Mais uma vez eu digo: usem apenas códigos que saibam o que faz. Algum dia ainda terão dissabores serios.

Quanto ao teu problema,

1- Tu pediste ajuda num código para eliminar registos de um tabela, que estão carregados numa datagrid, mas não indicaste como eles foram carregados.

2- O objecto Command deve ser usado depois da conecção ser aberta e antes de a fechar, e não deves dentro de um ciclo estar a abrir e fechar constantemente essa conecção.

3- Também só é suposto recarregares os registos restantes depois de todas as eliminações.

4- A coluna com checkbox está ligada a um campo da tabela BDUSUA? Se não então os valores perdem-se a cada recarregamento.

[aprendiz93]

Boas!

Eu esclareci muito bem o que eu preciso, mais cada um fala para min fazer uma coisa, ai sai essas cacas.

Mais vamos lá, vou explicar novamente o que eu preciso.

Tenho um Datagriedview ligado a uma tabela do BD access que tem apenas 3 campos, codigo,nome, senha. Criei uma coluna no Datagriedview com Checkboxs chamada Selecionar, para o usário marcar quais registros ele deseja excluir. Após o usuário marca os registros que ele quer excluir gostaria q ele clica-se no botão remover que fica fora do Datagriedview "Óbvio"e exclui-se os registros q ele selecionou.

Edited August 10, 2012 at 08:40 PM by aprendiz93

[FreiNando]

As cacas que sairam foram apenas porque você não desenvolveu um código seguindo as dicas aqui apresentadas.

Você ficou sempre à espera de um código completo e pronto a usar.

Revisando:

Existe um procedimento, que você não mostrou, para carregar a tabela na datagrid.

Essa datagrid tem como primeira coluna uma checkbox, será a coluna 0

O código do usuário será coluna 1 (segunda coluna).

A coluna seguinte (2) deve ter o Nome.

Então:

Para apagar os usuários selecionados na checkbox (coluna 0) deve percorrer todas as linhas da checkbox, e onde o valor for 'True' (Valor Lógico) apagar o respecivo usuário da tabela pelo código (coluna 1).

No final carregar a tabela novamente na datagrid, para visualizar os usuários que ficaram.

Penso não ser difícil, se você está realmente interessado em aprender a programar.

Se não for o caso disso, deixo-lhe uma papinha feita por min:

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
 Dim ligação As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\Projects\Controle de Despesas\Usuário.accdb;Persist Security Info=False;"
 Dim conecção As New OleDbConnection(ligação)
 conecção.Open()
 Dim command As New OleDbCommand
 command.Connection = conecção
 Dim r As Long = 0
 For i = 0 To DataGridView1.Rows.Count - 1
	 If DataGridView1.Item(0, i).Value = True Then
		 command.CommandText = "DELETE FROM BDUSUA WHERE Código = " & DataGridView1.Item(1, i).Value
		 r = r + command.ExecuteNonQuery()
	 End If
 Next
 conecção.Close()
 If r Then
	 MsgBox(r & " Usuários Excluidos com sucesso!!")
 Else
	 MsgBox("Nenhum Usuário não foi exluido!! Tente novamente!!")
 End If
 'Carregar novamente a tabela BDUSUA na DataGridView1
End Sub

A escolha é sua.

Edited August 11, 2012 at 10:27 AM by FreiNando

[aprendiz93]

Blzs. Obg pela ajuda.