@line Postado Setembro 21, 2004 Denunciar Share Postado Setembro 21, 2004 Preciso incrementar alguns campos de uma tabela utilizando o UPDATE da seguinte forma:SQL = "UPDATE Avaliação SET "If optBom.Value Then SQL = SQL & "QBom = QBom + 1 "Else If optRegular.Value Then SQL = SQL & "QRegular = QRegular + 1 " Else SQL = SQL & "QRuim = QRuim + 1 " End IfEnd IfSQL = SQL & "WHERE CodTreinamento = " & CodTreinamentoNão dá erro mas também não incrementa os campos. Alguém pode me ajudar? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 @line Postado Setembro 21, 2004 Autor Denunciar Share Postado Setembro 21, 2004 Já descobri o problema!!!Preciso usar "," e não "AND" no UPDATE. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 William Rodrigues Postado Setembro 22, 2004 Denunciar Share Postado Setembro 22, 2004 SQL = "UPDATE Avaliação SET "If optBom.Value ThenSQL = SQL & "QBom = QBom + 1 "ElseIf optRegular.Value ThenSQL = SQL & "QRegular = QRegular + 1 "ElseSQL = SQL & "QRuim = QRuim + 1 "End IfEnd IfSQL = SQL & "WHERE CodTreinamento = " & CodTreinamentoPreciso usar "," e não "AND" no UPDATE. No seu código nem tem "AND"....Abraços,William Rodrigues Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
@line
SQL = "UPDATE Avaliação SET "
If optBom.Value Then
SQL = SQL & "QBom = QBom + 1 "
Else
If optRegular.Value Then
SQL = SQL & "QRegular = QRegular + 1 "
Else
SQL = SQL & "QRuim = QRuim + 1 "
End If
End If
SQL = SQL & "WHERE CodTreinamento = " & CodTreinamento
Não dá erro mas também não incrementa os campos.
Alguém pode me ajudar?
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.