Olá amigos do forum estou com esse probleminha pra vcs mi ajudarem
estou querendo fazer um loop onde esse loop exclui um produto de cada vez na tabela selecionada estou usando sql e o codigo é esse:
dim result as string
dim busca as string
Set BANCO = OpenDatabase((ThisWorkbook.Path & "\EA.mdb"), False)
busca = me.text_codvenda
Set TABELA = BANCO.OpenRecordset("SELECT * from PRODUTOS where COD_VENDA LIKE '" & busca & "';")
If TABELA.EOF And TABELA.BOF Then
End If
Do Until TABELA.EOF
If TABELA("COD_PRODUTO") <> "" Then
result = TABELA("COD_PRODUTO")
End If
SQL = ("DELETE from PRODUTOS WHERE COD_VENDA LIKE '" & busca & "' AND COD_PRODUTO LIKE '" & result & "';")
BANCO.Execute SQL
TABELA.MoveNext
Loop
o codigo é esse ai, caso na consulta que eu fiz apareça quatro registro cada um tem um codigo de produto diferente, então tem que exclui produto por produto, ele pega o codigo do primeiro produto e coloca na variavel result e amarra junto com o codigo de venda que o codigo de venda é um só para todos os produtos e exclui, dai ele tem que voltar para o inicio da tabela e fazer o procedimento novamente até zerar a tabela, nesse codigo ai em cima ele exclui só que exclui o primeiro ele não exclui o resto dos produtos
deve ta faltando algum detalhe, mais o codigo é mais ou menos dessa forma
alguem mi ajuda, aradeço desde já, um abraço a todos!
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
fazer um loop para excluir
-
- Colaborador
- Mensagens: 35
- Registrado em: Sex Jan 28, 2011 9:02 pm