4 svar · 198 visningar · startad av clacke
Jag hämtar ett datum från ett textfält, och utifrån detta datum så vill jag lägga in 35 st efterföljande datum i tabellen "tider" och i tabellen "tider2" vill jag börja med datumet+1 och i post 35 ska det stå "END".
Datumet ska öka med 1 för varje inlägg av datumet.
Det får inte bli mer än 35 poster i databasen.
Tacksam för hjälp.
Dim strSQL, dtmDate
dtmDate = CDate([i]textfält[/i])
For i = 0 To 34
strSQL = "INSERT INTO tider (datum) VALUES ('" & DateAdd("D", i, dtmDate) & "');"
[i]connection[/i].Execute strSQL, , 128
Next i
strSQL = "INSERT INTO tider VALUES ('END');"
[i]connection[/i].Execute strSQL, , 128
Fungerar detta?
Tack jag har provat något liknande och jag får in 35 st olika datum i tabellen, men det funkar bara med insert och inte med update som jag tror det måste vara då det bara får vara 35 st poster i tabellen.
Du kan ju förstås rensa tabellen tider innan du stoppar in nya datum.
[i]connection[/i].Execute "DELETE * FROM tider;", , 128
Sedan måste du ändra loopen jag gjorde från 0 To 34 till 0 To 33, det ger dig 34 datum + END i slutet vilket resulterar i 35 poster.
Tack, jag får prova och se hur det funkar.