+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tabloya Döngü İle Tarih Ekleme (/konu-tabloya-dongu-ile-tarih-ekleme.html)
Tabloya Döngü İle Tarih Ekleme - accessman - 31/01/2020
Hayırlı cumalar
"INSERT INTO " kullanarak
for next gibi bir döngü ile 2020 yılının tüm günlerini tabloya nasıl ekleyebilirim
yani başlangıç tarihi ile bitiş tarihi arasında döngü yapabilir miyim
Cvp: Tabloya Döngü İle Tarih Ekleme - accessman - 31/01/2020
mesela şöyle şeyler var bunları nasıl Vba accessde kullanabilirim
Kod:
static IEnumerable<DateTime> AllDatesBetween(DateTime start, DateTime end)
{
for(var day = start.Date; day <= end; day = day.AddDays(1))
yield return day;
}Kod:
var calculatedDates =
new List<string>
(
AllDatesBetween
(
DateTime.Parse("2009-07-27"),
DateTime.Parse("2009-07-29")
).Select(d => d.ToString("yyyy-MM-dd"))
);Cvp: Tabloya Döngü İle Tarih Ekleme - accessman - 31/01/2020
Kod:
CREATE TABLE num (i int);
INSERT INTO num (i) VALUES (0), (1), (2), (3), (4), (5), (6), (7), (8), (9);
select adddate('2009-01-01', numlist.id) as `date` from
(SELECT n1.i + n10.i*10 + n100.i*100 AS id
FROM num n1 cross join num as n10 cross join num as n100) as numlist
where adddate('2009-01-01', numlist.id) <= '2009-01-13';Cvp: Tabloya Döngü İle Tarih Ekleme - accessman - 31/01/2020
şöyle çözdüm ama acemi işi oldu daha güzel nasıl olabilir
For i = 1 To 12
If (i = 1 Or i = 3 Or i = 5 Or i = 7 Or i = 8 Or i = 10 Or i = 12) Then aysonu = 31
If (i = 4 Or i = 6 Or i = 9 Or i = 11) Then aysonu = 30
If (i = 2 And CInt(y) \ 4 = CInt(y) / 4) Then aysonu = 29
If (i = 2 And CInt(y) \ 4 <> CInt(y) / 4) Then aysonu = 28
For ii = 1 To aysonu
dbs.Execute "INSERT INTO " & "year" & y & "" _
& "(tarih, mod, vardiya) VALUES " _
& "('" & ii & "." & i & ".20" & y & "', '-1', '.');"
Next ii
Next i
Cvp: Tabloya Döngü İle Tarih Ekleme - feraz - 31/01/2020
Select case ilede olabilir
Select case i
Case 1,3,5,7,8,12
End select
Gibi
Cvp: Tabloya Döngü İle Tarih Ekleme - berduş - 01/02/2020
For i=clng(baslangictarihi) to clng(bitistarihi)
Ekleme kodlari
Next i