AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Tabloya Döngü İle Tarih Ekleme

1 2 3
31/01/2020, 09:37

accessman

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
31/01/2020, 09:38

accessman

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"))
    );
31/01/2020, 09:42

accessman

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';
31/01/2020, 10:15

accessman

şö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
31/01/2020, 17:55

feraz

Select case ilede olabilir

Select case i

Case 1,3,5,7,8,12

End select

Gibi
01/02/2020, 16:39

berduş

For i=clng(baslangictarihi) to clng(bitistarihi)
Ekleme kodlari
Next i
1 2 3