chunk.fs

open FSharp.Data

[<Literal>]
let connectionString = 
    @"Data Source=.;Initial Catalog=XXX;Integrated Security=True"

[<EntryPoint>]
let main argv = 
    let getData pagesize offset = 
        use cmd = new SqlCommandProvider<"
            SELECT STUFF
            FROM SOMETABLE
            ORDER BY SOMETHING
            OFFSET @offset ROWS
            FETCH NEXT @pagesize ROWS ONLY
            ", connectionString>()
        cmd.Execute(offset = offset, pagesize = pagesize)
    let rec response pagesize offset = seq {
        let result = getData pagesize offset |> Seq.toList
        let resultLength = (int64)result.Length
        yield! result
        if (resultLength = pagesize) then 
            yield! response pagesize (offset + resultLength)
    }
    response 19L 0L |> Seq.iter (printfn "%A")
    let a = response 19L 0L |> Seq.toList
    let b = response 1L 0L |> Seq.toList
    let c = response 11234231L 0L |> Seq.toList
    printfn "Er dette riktig %b " (a = b)
    printfn "Er dette riktig %b " (a = c)
    System.Console.ReadKey() |> ignore
    0