Vídeo recomendado
https://youtu.be/diWPPPhW-9E

fazer um loop para excluir

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
joaofrancisco
Colaborador
Colaborador
Mensagens: 35
Registrado em: Sex Jan 28, 2011 9:02 pm

fazer um loop para excluir

Mensagem por joaofrancisco »

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!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder