ESTRANHO... LOOP PAROU DE FUNCIONAR

WEBIER 20/07/2011 16:55:28
#379615
possuo um botão que faz 2 loop.

antes estava funcionando normal e agora só o primeiro loop funciona direitinho o outro nao dar erro e nem faz as alterações... simplesmente ele nao faz nada...

Private Sub cmdAtualizar_Click()
dim i as long
picAguarde.Visible = True
DoEvents

For i = 1 To Grid.Rows - 1
    execSQL [Ô]UPDATE PRODUTOS_ENTRADA_ITENS SET VENDA = [ô][Ô] & Grid.TextMatrix(i, 8) & [Ô][ô] WHERE CODIGO = [Ô] & Grid.TextMatrix(i, 1) & [Ô][Ô]
Next

For i = 1 To Grid.Rows - 1
    execSQL [Ô]UPDATE PRODUTOS SET DESCRICAO = [ô][Ô] & Grid.TextMatrix(i, 4) & [Ô][ô], FABRICANTE = [ô][Ô] & Grid.TextMatrix(i, 5) & [Ô][ô], QUANT_ESTOQUE = [ô][Ô] & Grid.TextMatrix(i, 6) & [Ô][ô], QUANT_MIN = [ô][Ô] & Grid.TextMatrix(i, 7) & [Ô][ô], CATEGORIA = [ô][Ô] & Grid.TextMatrix(i, 9) & [Ô][ô] WHERE CODIGO = [Ô] & Grid.TextMatrix(i, 2) & [Ô][Ô]
    execSQL [Ô]UPDATE PRODUTOS_ENTRADA_ITENS SET DESCRICAO = [ô][Ô] & Grid.TextMatrix(i, 4) & [Ô][ô] WHERE CODIGO_PRODUTO = [Ô] & Grid.TextMatrix(i, 2) & [Ô][Ô]
    execSQL [Ô]UPDATE PEDIDOS_ITENS SET DESCRICAO = [ô][Ô] & Grid.TextMatrix(i, 4) & [Ô][ô] WHERE COD_PRODUTO = [Ô] & Grid.TextMatrix(i, 2) & [Ô][Ô]
Next
picAguarde.Visible = False
End Sub


primeiro loop = OK
segundo loop = Faz todo o processo, mas nao altera os dados (nem dar erro tb)

que devo fazer?
WEBIER 20/07/2011 17:55:01
#379623
ele chega a entrar no loop

faz todo o procedimento, só que nao altera nos registros

os cabos estão corretos
os tratamentos de campos estão corretos tb
Tópico encerrado , respostas não são mais permitidas
Voltar