SQL - INSERT
Ola vbnianos, como é eu faço inserir um certo campo de um banco de dados todos os dias do mes corrente de uma vez só?
Agradeço desde já
Agradeço desde já
Qual banco de dados vc utiliza ?
Pode fazer da seguinte maneira:
vMes = "02/2004" 'Mes de referencia
vDia = 1
While Not vDia = 31
If IsDate(Format(Format(vDia, "00") & "/" & vMes, "DD/MM/YYYY")) Then
sSQL = "INSERT INTO TABELA VALUES(" & Format(Format(vDia, "00") & "/" & vMes, "DD/MM/YYYY") & ")"
'Executa comando de Insert no banco de dados
End If
vDia = vDia + 1
Wend
Espero ajudar ...
vMes = "02/2004" 'Mes de referencia
vDia = 1
While Not vDia = 31
If IsDate(Format(Format(vDia, "00") & "/" & vMes, "DD/MM/YYYY")) Then
sSQL = "INSERT INTO TABELA VALUES(" & Format(Format(vDia, "00") & "/" & vMes, "DD/MM/YYYY") & ")"
'Executa comando de Insert no banco de dados
End If
vDia = vDia + 1
Wend
Espero ajudar ...
Sim, realmente o mes 2 não tem 30.
Por isso a checagem do ISDATE.
Senão for válida não é gravado no banco de dados.
Na verdade os dois funcionam corretamente.
Agora, acho que o LUAN pode escolher qual código adotar para sua aplicação.
[S41][S41][S41]
Por isso a checagem do ISDATE.
Senão for válida não é gravado no banco de dados.
Na verdade os dois funcionam corretamente.
Agora, acho que o LUAN pode escolher qual código adotar para sua aplicação.
[S41][S41][S41]
Tópico encerrado , respostas não são mais permitidas