APAGAR V?RIAS LINHAS AO MESMO TEMPO
Boa noite pessoal!
Tudo certo?
Bom, eu tenho um MSGlexGrid, que seleciono várias linhas, eu excluo uma a uma, mas queria ao selecionar várias, e clicar em DELETE, apagar todas as linhas do grid e inclusive do banco de dados. Alguém tem alguma ideia de como fazer isso?
Desde já, obrigado pela a ajuda.
Abraços.
Tudo certo?
Bom, eu tenho um MSGlexGrid, que seleciono várias linhas, eu excluo uma a uma, mas queria ao selecionar várias, e clicar em DELETE, apagar todas as linhas do grid e inclusive do banco de dados. Alguém tem alguma ideia de como fazer isso?
Desde já, obrigado pela a ajuda.
Abraços.
Veja se este exemplo te ajuda!!!
Cara, tentei de todo jeito, mas não vai.. 
ADILSOO, eu faria o seguinte, verifiquei que você já marca as linhas que deseja apagar, faça um loop verificando estas linhas se estão marcadas, no seu caso procure pela cor backcolor da celula, se tiverem e só apagar elas pelo Código e após isto faça uma releitura da grid.
Boa tarde!
Estou tentando fazer como o colega sugeriu, mas não consigo pegar a linha selecionada.
Estou tentando fazer como o colega sugeriu, mas não consigo pegar a linha selecionada.
i = 0
With gridproduto
For i = 1 To .Rows - 1
If gridcadpreparo.RowSel Then
gridcadpreparo.RemoveItem (gridcadpreparo.Row)
End If
Next i
End With 
Olhe e ver se pode aproveitar algo.
Seleione as linhas e execute o código.
Dim inicial As Integer, final As Integer
inicial = FlexGrid1.Row
final = FlexGrid1.RowSel
For i = inicial To final
MsgBox FlexGrid1.TextMatrix(i, 1)
[ô]FlexGrid1.RemoveItem (i)
Cnn.BeginTrans
Dim sql As String
sql = [Ô]Delete * From Livros where CodLivros = [Ô] & CLng(FlexGrid1.TextMatrix(i, 1)) & [Ô][Ô]
Cnn.Execute sql
Cnn.CommitTrans
Next i
Seleione as linhas e execute o código.
Dim inicial As Integer, final As Integer
inicial = FlexGrid1.Row
final = FlexGrid1.RowSel
For i = inicial To final
MsgBox FlexGrid1.TextMatrix(i, 1)
[ô]FlexGrid1.RemoveItem (i)
Cnn.BeginTrans
Dim sql As String
sql = [Ô]Delete * From Livros where CodLivros = [Ô] & CLng(FlexGrid1.TextMatrix(i, 1)) & [Ô][Ô]
Cnn.Execute sql
Cnn.CommitTrans
Next i
Caro colega,
Postei um projeto recente que tem uma rotina que apaga itens do grid e da tabela.
Veja em [Ô]Editor de Cores Simples[Ô]
Ao marcar os registros do grid precionar button <del>.
Um abraco,
AAS
Postei um projeto recente que tem uma rotina que apaga itens do grid e da tabela.
Veja em [Ô]Editor de Cores Simples[Ô]
Ao marcar os registros do grid precionar button <del>.
Um abraco,
AAS
Deveria ter postado onde encontrar,seria mais fácil.
Esta la em Ultimas Atualizacoes, e o segundo titulo.
Um abraco,
AAS
Um abraco,
AAS
Encontrei, mas não era o que eu imaginei...
Testou o que postei.
Tópico encerrado , respostas não são mais permitidas