Olá João,
Obrigado por responder!
Então, vamos lá!
A variável vMes pega o número do mês atual e compara com o banco que são números também, assim: janeiro = 1, fevereiro = 2,...
a variável total mês recebe o valor total da coluna 2 que no caso é fevereiro e está vazia, ou seja, 0 e então recebe um incremento de + 1. Feito isso, ele continua e busca o ano e a variável RsTotalMes("ano") vai carregar exatamente o ano
atual vigente automaticamente e atualizar o dado.
Eu coloquei a instrução que você me deu acima e retornou o seguinte erro:
update db_mes set 2 = 1 where ano = 2017
Microsoft OLE DB Provider for ODBC Drivers
error '80040e09'
[TCX][MyODBC]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '2 = 1 where ano = 2017' at line 1
/combo1/contador/conta1.asp, line 43
Abaixo, vou colocar toda a página para que entenda melhor e construção do raciocínio do conteúdo.
<!--#include file="conexao.asp" -->
<%
Session.LCID = 1046
dim RsRevisitas, RsVisitas, RsMes, RsDia, RsTotalMes, RsTotalDia, RsIn, vSQL
dim vData, aData, vDia, vMes, vAno, totalMes, totalDia, totalAno, x
vData = FormatDateTime(Date(), 2)
aData = Split(vData, "/")
vDia = Trim(aData(0))
vMes = Trim(aData(1))
vAno = Trim(aData(2))
%>
<%
'1.2 - aqui estes selects pegarão a quantidade de visitantes por mês e dia respectivamente.
vSQL = "select * from db_mes order by ano desc"
set RsTotalMes = cnnDB.execute(vSQL)
totalAno = RsTotalMes(1) + RsTotalMes(2) + RsTotalMes(3) + RsTotalMes(4) + RsTotalMes(5) + RsTotalMes(6) +_
RsTotalMes(7) + RsTotalMes(8) + RsTotalMes(9) + RsTotalMes(10) + RsTotalMes(11) + RsTotalMes(12)
vSQL = "select * from db_dia where "& vDia &" = "& vDia &" and mes = "& vMes & " and ano = '" & vAno &"' "
set RsTotalDia = cnnDB.execute(vSQL)
'1.3 se o ano atual for maior que o ano que está sendo selecionado, inserimos mais um conjunto de 12 meses no banco. até aqui funciona tudo certinho.
if vAno > RsTotalMes("ano") then
for x = 1 to 12
vSQL = "Insert into db_dia (mes,ano) values ("& x &", "& vAno &")"
set RsIn = cnnDB.execute(vSQL)
set RsIn = nothing
next
vSQL = "insert into db_mes (ano) values("& vAno &")"
set RsIn = cnnDB.execute(vSQL)
end if
'ate aqui vai bem, daqui pra baixo não atualiza o banco. dá o erro descrito na mensagem.
'aqui ele pegaria os valores das tabelas de acordo com o mês vigente e o dia e o ano, veria qual o registro atual, faria o incremento de
'mais um e atualizaria. Só que não rola.
totalMes = RsTotalMes(vMes) + 1
Response.Write "update db_mes set "& vMes &" = "& totalMes &" where ano = "& RsTotalMes("ano") &""
cnnDB.execute = "update db_mes set "& vMes &" = "& totalMes &" where ano = "& RsTotalMes("ano") &""
set RsMes = cnnDB.execute(altera_mes)
'totalMes = RsTotalMes(vMes) + 1
'cnnDB.execute = "update db_mes set "& vMes &" = "& totalMes &" where ano = "& RsTotalMes("ano") &""
'set RsMes = cnnDB.execute(altera_mes)
'totalDia = RsTotalDia(vDia) + 1
'altera_dia = "update db_dia set "& vDia &" = "& totalDia &" where mes = "& vMes &" and ano = '"& vAno &"' "
'set RsDia = cnnDB.execute(altera_dia)
%>
UPDATE com MYSQL e ASP
